访客只能看到部份内容，免费 加入会员 或由脸书 Google 可以看到全部内容

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