[請益] 請問關於do loop

看板Visual_Basic作者smaljohn (平平)時間19年前 (2005/05/28 20:46)推噓2(2推 0噓 0→)

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

正在寫一個猜數字的程式其中用到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)

推

windwofswold

220.133.0.216 05/28, , 1^F

220.133.0.216 05/28, 1^F

推

smaljohn

203.67.104.186 05/28, , 2^F

203.67.104.186 05/28, 2^F

‣ 返回看板[ Visual_Basic ] 程設

‣ 更多 smaljohn 的文章

文章代碼(AID): #12c6WZvl (Visual_Basic)