[請益] 請問關於do loop

[smaljohn (平平)]

正在寫一個猜數字的程式 其中用到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:我來跑沒問題耶@__@
推 smaljohn:所以我見鬼了...?