Rnd 函式

x0

訪客只能看到部份內容，免費 加入會員

x0

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

x0