訪客只能看到部份內容,免費 加入會員 或由臉書 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