Re: [請益] 請問關於do loop
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)
請養成習慣，做適當的縮排，並做好變數的宣告。
--
推
220.133.0.216 05/28,
220.133.0.216 05/28
推
203.67.104.186 05/28,
203.67.104.186 05/28
的確並沒有問題，你確定你貼上來的程式碼跟你 VB 中的一樣嗎？
你貼上來的程式碼少了 End Sub，不過錯誤訊息顯然不是這個問題...
--
VB 程式設計 倉木麻衣 PTT 星爺板 行列輸入法
======================================================
Visual_Basic MaiKuraki Stephen Array
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 210.58.156.43
討論串 (同標題文章)
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
