作者smaljohn (平平)
看板Visual_Basic
标题[请益] 请问关於do loop
时间Sat May 28 20:48:20 2005
正在写一个猜数字的程式 其中用到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)
1F：推 windwofswold:我来跑没问题耶@__@ 220.133.0.216 05/28
2F：推 smaljohn:所以我见鬼了...? 203.67.104.186 05/28