Re: [請益] 請問關於do loop

[smaljohn (平平)]

※ 引述《fumizuki (小獅)》之銘言：
: 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變成無限迴圈了..?你們跑的時候有出現數字嗎?謝謝

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 203.67.104.186
→ smaljohn:雖然問題還沒搞清楚 但是我已經完成了 先感謝
推 windwofswold:是無窮回圈沒錯 = =
推 smaljohn:果然...**
推 fumizuki:好奇怪的迴圈條件@@"