[請益] 請問關於do loop
正在寫一個猜數字的程式 其中用到do loop
目前只希望能做出四位不同數字的陣列r(1)~r(4)
程式碼如下(有問題處用紅色標了)
Private Sub Command1_Click()
For i = 1 To 4
For j = 1 To 4
Randomize
f = Int(Rnd * 10)
If f = 0 Then
r(i - 1) = 0
ElseIf f = 10 Then
r(i - 1) = 1
Else
r(i - 1) = f
End If
Do While r(i - 1) <> r(j - 1)
If r(i - 1) = r(j - 1) Then
Randomize
f = Int(Rnd * 10)
If f = 0 Then
r(i - 1) = 0
ElseIf f = 10 Then
r(i - 1) = 1
Else
r(i - 1) = f
End If
Else
End If
Loop
Next
Next
Print r(0); r(1); r(2); r(3)
她一直顯示錯誤訊息"有loop卻沒有do"
可是很明顯的do就在上面呀 還是因為for next的關係造成某些錯誤?
請高手指點迷津 大感謝^^
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 203.67.104.186
※ 編輯: smaljohn 來自: 203.67.104.186 (05/28 20:50)
推
220.133.0.216 05/28, , 1F
220.133.0.216 05/28, 1F
推
203.67.104.186 05/28, , 2F
203.67.104.186 05/28, 2F
討論串 (同標題文章)
完整討論串 (本文為第 1 之 5 篇)：
2
2
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
