下面是引用 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 跑不完
