下面是引用 n1023520 于 2010-11-09 20:01 发表的 Rnd 函式: 
请利用Rnd()函式设计一个掷骰模拟程式，每次使用者掷骰时，程式就会显示两个骰子被掷出的点数(各为1~6点)
或是帮我把这段程式做修改，因为我不知道是哪里又打错或是少打，所以没办法执行
Sub Main()
Dim Win, Loss, Cnt, A As Integer
Win = 0 : Loss = 0 : Cnt = 0
Randomize()
A = CInt(Int(Rnd() * 6) + 1) + CInt(Rnd() * 6) + 1
Cnt += 1
If A = 5 Or A = 6 Or A = 8 Or A = 9 Then
Win += 1
ElseIf A <> 7 Then
Loss += 1
End If
Do
A = CInt(Int(Rnd() * 6) + 1) + CInt(Int(Rnd() * 6) + 1)
Loop While Win < 200
Console.WriteLine(Win)
Console.WriteLine(Cnt)
Console.WriteLine(Loss)
End Sub
.......
因为我不知道是哪里又打错或是少打，所以没办法执行复制程式
Do
A = CInt(Int(Rnd() * 6) + 1) + CInt(Int(Rnd() * 6) + 1)
Loop While Win < 200
程式会在上述的 loop 跑不完
