1樓:匿名使用者
你看前兩題這樣做行不?
第一題:
dim i as integer
dim sum as long
i = 0
sum = 0
while i <= 100
i = i + 1
if (i mod 5 = 0) or (i mod 7 = 0) then sum = sum + i
wend
第二題:
dim i as integer
dim j as integer
for i = 1 to 4
for j = 1 to 2 * i - 1print "*";
next j
next i
2樓:
1.private sub command1_click()i = 1
while i <= 100
if i mod 5 = 0 or i mod 7 = 0 then sum = sum + i
i = i + 1
wend
print sum
end sub
2.private sub command1_click()for i = 1 to 7 step 2for j = 1 to i
print "*";
next
next
end sub
3.private sub command1_click()f1 = 1
f2 = 1
sum = 2
dofn = f1 + f2
f1 = f2
f2 = fn
sum = sum + fn
loop until fn = 144
print sum
end sub
4.private sub command1_click()for i = 3 to 300 step 3sum = sum + i
next
print sum
end sub
5.private sub command1_click()p = 1
for i = 10 to 20
for j = 2 to i - 1
if i mod j = 0 then exit fornext
if j = i then p = p * inext
print p
end sub
3樓:媒
2.for i = 1 to 4
for j= 1 to 2*i-1
print "*";
next j
next i
哪位大俠幫我做個vb(visual basic)題目,就是,輸入很多行字串,然後去掉重複的,統計共有多少個 20
4樓:匿名使用者
這樣的資料excel操作最方便,見附件!
private sub commandbutton1_click()
dim arr, i as long, dc as object
arr = range("a2:a" & [a65536].end(3).row)
set dc = createobject("scripting.dictionary")
for i = 1 to ubound(arr)
dc(arr(i, 1)) = val(dc(arr(i, 1))) + 1
next
[b2].resize(dc.count) = worksheetfunction.transpose(dc.keys)
[c2].resize(dc.count) = worksheetfunction.transpose(dc.items)
end sub
點一下附件中的「去重」按鈕即可!結果顯示在b,c列!
5樓:銷聲匿跡
將上面資料儲存在 123.txt 中
將123.txt 放在與該程式儲存的同個資料夾中
6樓:玩籬笆的貓
1、使用split函式把字串轉為陣列,。
2、使用ubound函式取得陣列上標。
3、迴圈判斷上標數,如等於大於1,就表示有重複,去掉..
弄明白這幾個函式的意思就明白了..
我在用vb做乙個小功能,但是遇到了麻煩,我做的是考試系統。
7樓:匿名使用者
不是很理解您的意思,你的每一題的按
鈕也是按鈕控制項做的嗎
但是不管怎樣
你應該有乙個回指向每一答題的索引,比如說curindex,那麼不管你是按下面的數字還是上面的上一題和下一題,curindex=curindex+1 或減1,在每個數字按鈕用command.caption, 按按鈕3 就curindex=3,如果改題做過了就可以在tag屬性裡加上yes,然後為了規範可以做乙個函式
setbuttomcolor curindexfunction setbuttomcolor(index)for 全部的按鈕
if 按鈕的tag=yes then
設定答過的顏色
else
設定未答過的顏色
end if
end if
設定當前正在答得按鈕顏色command(index)next
end function
8樓:圖杭科技
**發上來幫你改一下。很簡單的
麻煩那位冒險島大俠來幫我解決下,麻煩那位冒險島大俠來幫我解決下
阿海那的隱藏地圖 叫馬體安的草原 往左走綠虎那裡有個 叫皮拉體安的草原 再往左走啊亮那裡有個 叫美卡體安的草原 我覺得是綠虎那個你沒找著吧 那個不是石頭進的 是在綠虎下面 有個機器那進 祝你好運 冒險島女皇的祝福任務!幫我解決給200分!100 你說的4轉是完成了騎士團長勳章任務和拿到了英雄回聲技能...
名人故事有哪些?請那位大俠幫我查查
1 鑿壁偷光 漢朝元帝時的匡衡,從小喜好讀書。可是家裡很窮,連飯都吃不飽,哪有錢上學讀書呢?他只好白天幹活,晚上自己學習。家裡沒有錢買燈油,怎麼辦呢?匡衡沒有向困難屈服,想出了乙個辦法 在牆壁上鑿了個小洞,借鄰居家照射過來的微弱燈光看書學習。他勤奮刻苦,學到了許多知識,後來做了宰相。比喻 在艱苦的條...
那位大俠幫我看看電腦幾個繡頭怎麼插謝謝啦
power sw是電源線 reset sw是重啟線 hdd led是硬碟燈 power led 是電源燈 我給你個口訣 缺針旁邊加電源 電源後面插重啟 電源旁邊插電源燈 重啟旁邊插硬碟燈 給你個圖 1電源2電源燈 3重啟4硬碟燈 hdd是硬碟燈,pwsw是開關 pwled是電源指示燈 resw是重啟...
請大俠幫忙看一下這套整機值麼,那位大俠幫忙看一下這套二手電腦配置值多少錢?
可以!就是因為現在電子產品更新換代得太快了,不可能跟得上,你這電腦買了可以用幾年時間了,在這幾年時間裡,你現在就算買得再好的,幾年後也過代了對吧。還不如幾年後換一台更新的。如果沒有什麼特別的要求,這電腦是沒有什麼問題的。垃圾了,還如果買最新的g620配置主機強很多倍,那都是騙人的垃圾cpu。獨立顯示...
請問那位大俠幫看看600569的近期怎樣操作
屬於黑色金屬冶煉加,河南,180板塊,g股概念,滬深300,上證50等板塊。趨勢指標顯示該股目前處於 趨勢中。短期股價呈現強勢。該股中期壓力6.13,短期壓力5.95,中期支撐5.22,短期支撐5.49。建議適當 堅定你的判斷不要動搖!安陽鋼鐵在上週的5.3元發力之前吧裡一片罵聲。到現在短 期漲幅已...