PTT數位生活區 / Visual_Basic

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

看板Visual_Basic作者 (平平)時間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
→
203.67.104.186 05/28, , 1F
雖然問題還沒搞清楚 但是我已經完成了 先感謝
203.67.104.186 05/28, 1F
推
220.133.0.216 05/28, , 2F
是無窮回圈沒錯 = =
220.133.0.216 05/28, 2F
推
203.67.104.186 05/29, , 3F
果然...**
203.67.104.186 05/29, 3F
推
210.58.156.43 05/29, , 4F
好奇怪的迴圈條件@@"
210.58.156.43 05/29, 4F
‣ 更多 smaljohn 的文章
文章代碼(AID): #12c7TJ6o (Visual_Basic)
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 3 之 5 篇)：
排序： 最舊先 | 最新先 | 留言數
在新視窗開啟完整討論串 (共5篇)
Visual_Basic 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 smaljohn 的文章
文章代碼(AID): #12c7TJ6o (Visual_Basic)