作者smaljohn (平平)
看板Visual_Basic
標題Re: [請益] 請問關於do loop
時間Sat May 28 21:52:32 2005
※ 引述《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
1F：→ smaljohn:雖然問題還沒搞清楚 但是我已經完成了 先感謝 203.67.104.186 05/28
2F：推 windwofswold:是無窮回圈沒錯 = = 220.133.0.216 05/28
3F：推 smaljohn:果然...** 203.67.104.186 05/29
4F：推 fumizuki:好奇怪的迴圈條件@@" 210.58.156.43 05/29