作者smaljohn (平平)
看板Visual_Basic
标题Re: [请益] 请问关於do loop
时间Sat May 28 21:52:32 2005
※ 引述《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)
: 请养成习惯，做适当的缩排，并做好变数的宣告。
跟原程式码是一样的
不过现在我重新复制回成是去跑就没出现那个错误讯息
反倒是现在一跑这段就当机...????
是不是loop变成无限回圈了..?你们跑的时候有出现数字吗?谢谢
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 203.67.104.186
1F：→ smaljohn:虽然问题还没搞清楚 但是我已经完成了 先感谢 203.67.104.186 05/28
2F：推 windwofswold:是无穷回圈没错 = = 220.133.0.216 05/28
3F：推 smaljohn:果然...** 203.67.104.186 05/29
4F：推 fumizuki:好奇怪的回圈条件@@" 210.58.156.43 05/29