1樓：匿名使用者
dim i as integer, d1 as integer, d2 as integer, d3 as integer, d4 as integer
dim str1 as string
dim str2() as string
private sub form_load()
command1.caption = "隨機0,1字元"
command2.caption = "計算"
end sub
private sub command1_click() '隨機出一個由0和1組成長度為21的字串
randomize
str1 = ""
for i = 0 to 20
str1 = str1 & math.round(rnd)
next i
text1.text = str1 '隨機出的字串顯示在text1中
end sub
private sub command2_click() '計算d1，d2，d3，d4
d1 = 0
d2 = 0
d3 = 0
d4 = 0
redim str2(21)
for i = 0 to 20 '將字串str1分解成陣列str2()以作判斷
str2(i) = mid(str1, i + 1, 1)
next i
'd1,最開始有多少個0
for i = 0 to 20
if str2(i) = "0" then
d1 = d1 + 1
else
exit for
end if
next i
'd2,0後面到0之間有多少個1
for i = d1 to 20
if str2(i) = "1" then
d2 = d2 + 1
else
exit for
end if
next i
'd3,第二組0的個數
for i = d1 + d2 to 20
if str2(i) = "0" then
d3 = d3 + 1
else
exit for
end if
next i
'd4,第二組1的個數
for i = d1 + d2 + d3 to 20
if str2(i) = "1" then
d4 = d4 + 1
else
exit for
end if
next i
msgbox text1.text & "計算結果為:" & vbcrlf & "d1=" & d1 & vbcrlf & "d2=" & d2 & vbcrlf & "d3=" & d3 & vbcrlf & "d4=" & d4
end sub
''''看能看懂不，不能聯絡。
2樓：匿名使用者
需要更好的答案找我。
vb6.0有沒有中途跳出當前for迴圈，進行下次迴圈？
3樓：匿名使用者
vb中沒有類似c語言的continue這樣的語句，如果使用exit for就會直接跳出for迴圈。樓上的解決方法應該是可行的。不過得修改下，不然會出錯。
for i = 1 to 9 if i<>5 then print i 『語句直接在then後面，不用end if
next i
4樓：然後去遠足
可以用goto語句來實現，例如：
private sub cmd1_click()for i = 1 to 9
if i = 5 then goto continueprint i
continue : '直接跳過print i 了，注意冒號next i
end sub
5樓：匿名使用者
for i = 1 to 9 if i<>5 then print i end if next iend sub 這樣如何？
vb中,閏年怎麼表示，vb6 0中,閏年判斷 如何表示
閏年是我們生活中再平常不過的事了。不過你知道它是怎麼計算的嗎？閏年公式如下 若公立年可以被 4 整除,則很有可能為公立年,除非.這個公立年可以被 100 整除,但是不可以被 400 整除,就不是閏年 測試程式及模組如下 public function isleapyear yr as integer...
vb6 0 用ado修改access資料庫中指定某行某列的單
你用ado控制元件還是物件呢？vb6.0 使用adodc控制元件讀取access資料庫.怎麼修改資料庫指定某一列的所有見容?adodc控制元件是這個兄弟，使用很簡單，舉個按鈕單擊的例子 private sub command1 click adodc1.connectionstring provid...
VB中正確的迴圈語句是，vb中的迴圈語句
for x 迴圈變數 1 初始值 to 10 終止值 step 2 步進 next 以上為完整的迴圈結構 1.沒有終止值 所以錯 3.初始值比終止值小 所以步進應該為整數 而它是負數 所以也錯4.初始值大於終止值 預設步進為1 無法迴圈 所以也錯 for語句 for counter start to...