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

[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)


請養成習慣，做適當的縮排，並做好變數的宣告。

--
推 windwofswold:我來跑沒問題耶@__@
推 smaljohn:所以我見鬼了...?
的確並沒有問題，你確定你貼上來的程式碼跟你 VB 中的一樣嗎？

你貼上來的程式碼少了 End Sub，不過錯誤訊息顯然不是這個問題...

--
VB 程式設計   倉木麻衣       PTT 星爺板     行列輸入法
======================================================
Visual_Basic  MaiKuraki      Stephen        Array

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 210.58.156.43