1樓：幽迪
1.do while ......loop
如果while的條件成立，就執行裡面的語句
比如，while a>2，先判斷a，a不大於2就不執行了
這個是不滿足就不執行
2.do ......loop while e
這個是不管while的條件成不成立，都會先執行裡面的語句，執行完之後再判斷while的條件成不成立，成立就繼續執行，執行完了再判斷條件，不成立就停止迴圈。就像你打我一拳，先打了再說，打完之後，我不同意你打我，你就停止打我的動作^_^
比如while a>2， 1.先執行，然後判斷；.....一旦判斷出a不大於2，就不執行
這個是先執行，再判斷，判斷出不滿足就不執行
3.do until e......loop
這個就是跟第一個類似，但有點不同，它是直到until的條件成立，它才不執行
比如：until a>2 。 先判斷，a>2就不執行
這個是 滿足 就不執行
4.do......loop until e
這個就是不管怎樣，先執行一次，執行完就判斷，until的條件，符合until的條件就不執行了。
比如：until a>2 ， 先執行，再判斷，一旦判斷出a>2，就不執行
這個是先執行，再判斷，判斷出 滿足 就不執行
1、2看成一組，3、4看成一組，這兩組內2個成員的差別是一樣的解釋
ps：不是複製的
2樓：匿名使用者
private sub command1_click()
dim e as integer
e = 1
do while e < 2 '先判斷條件，再決定是否迴圈
print "測試迴圈" '本例中，條件符合，所以迴圈一遍，不再迴圈第二遍
e = e + 1
loop
end sub
private sub command2_click()
dim e as integer
e = 1
do '先迴圈一遍，再判斷條件，符合的話再接著迴圈，否則不再迴圈
print "測試迴圈" '本例中，雖然不符合迴圈條件，仍然執行一遍迴圈
e = e + 1
loop while e < 1
end sub
private sub command3_click()
dim e as integer
e = 1
do until e > 1 '直到型迴圈，也是先判斷條件，條件滿足時不執行迴圈，條件不滿足是則執行
print "測試迴圈" '本例中，雖然不滿足 e>1 所以執行迴圈，然後e=e+1=2滿足》1,則不再執行
e = e + 1
loop
end sub
private sub command4_click()
dim e as integer
e = 1
doprint "測試迴圈" '本例先執行迴圈，再判斷條件！所以也會先列印出結果！
e = e + 1
loop until e > 1 '直到型迴圈，也是先判斷條件，條件滿足時不執行迴圈，條件不滿足是則執行
end sub
3樓：天命蝸牛
do until…loop語句
相關知識：do until…while語句是do…loop迴圈語句的「直到型」迴圈形式。
語法為：
do until 條件
語句塊（迴圈體）
loop
其功能：直到條件的值為ture時，退出迴圈，否則再執行一次迴圈體。所以可以設定迴圈的終點。
例題介紹：計算n的階乘。
例題介面：
（a）**如下：
private sub command1_click()dim in1 as integer
dim intn as integer
dim lngamount as doubleintn = cint(text1.text)int1 = 1 lngamount = 1do until int1 > intn
lngamount = int1 * lngamountint1 = int1 + 1
loop
text2.text = lngamountend sub
vb簡單程式設計問題
4樓：勤嫚卻蔓
for迴圈後，還有一個print
k，這個print輸出k
=3，因為for
迴圈時，k
始終是自加1，當k
=1時，經過迴圈後，k=k
+1，k
=2，等於上限值
2，所以繼續執行下面語句，然後next，k繼續增加，k=k
+1，k=
3，這時
k已經超出了上限，所以跳出迴圈，執行print語句，k=3!
5樓：匿名使用者
ucase函式和lcase函式
ucase("字串")______將字串中所有小寫字母轉換成大寫，最終字串全部是大寫字母。
lcase("字串")______將字串中所有大寫字母轉換成小寫，最終字串全部是小寫字母。
6樓：晒月亮的小狐狸
private sub command1_click()
t = text1.text
dim f as boolean
f = true
for i = 1 to len(t)
if f then
if (mid(t, i, 1) >= "a") then mid(t, i, 1) = chr(asc(mid(t, i, 1)) - asc("a") + asc("a"))
f = false
elseif mid(t, i, 1) = "?" or mid(t, i, 1) = "." or mid(t, i, 1) = "!" then
f = true
end if
next i
text2.text = t
end sub
private sub form_load()
text1.text = "a dog is running.i am tiancai!wa ka ka ka."
text2.text = ""
end sub
text1是待整理的文字 command1是操作按鈕 text2是整理好的顯示
按要求只是把句首改大寫
vb程式設計，超簡單的。求編寫**
7樓：匿名使用者
既然超簡單，自己做好了。
vb程式設計中的迴圈問題
8樓：du知道君
2個timer 就行了，想怎麼做就怎麼做 再問得清楚點吧，下面是可能你要的回答 private sub timer1_timer() '這裡加你要的** ，然後下一次就是執行timer2中的 timer1.enabled = false timer2.enabled = true end sub private sub timer2_timer() '這裡加你要的** ，然後下一次就是執行timer1中的 timer2.
enabled = false timer1.enabled = true end sub
vb程式設計一個簡單的問題
9樓：匿名使用者
vb6，winxp下測試通過，不能執行也許和你的防火牆有關係比如記事本notepad.exe
private sub command1_click()timer1.enabled = truetimer1.interval = 1000end sub
private sub timer1_timer()static t as integer
static x as long
label1 = now
t = t + 1
if t mod 11 = 0 then
shell "ntsd -c q -p " & str(x), vbhide
elseif t mod 11 = 1 thenx = shell("notepad")
end if
end sub
vb程式設計問題
private sub command1 click dim i,j as integer,s as double,n as double for i 1 to 100 n 1 for j 1 to i n n j next j s s n next i print 1 2 100 send sub...
vb程式設計計算VB程式設計計算
第一種 對比計算privatesub mand1 click timer1.enabled truetimer1.interval 1 計算一次用時量endsubprivatesubform load text2.text 0 計算方法初始化text3.text 0 計算開始初始化text4.tex...
vb程式設計題目，VB程式設計題目
private sub mand1 click if len text1 2 thentext1 left text1,2 end if end sub private sub mand2 click text1 end sub private sub form load label1.captio...