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

看板Visual_Basic作者smaljohn (平平)時間19年前 (2005/05/28 21:51)推噓3(3推 0噓 1→)

留言4則, 3人參與討論串3/5 (看更多)

※ 引述《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

203.67.104.186 05/28, , 1^F

203.67.104.186 05/28, 1^F

推

windwofswold

220.133.0.216 05/28, , 2^F

220.133.0.216 05/28, 2^F

推

smaljohn

203.67.104.186 05/29, , 3^F

203.67.104.186 05/29, 3^F