廣告廣告
  加入我的最愛 設為首頁 風格修改
首頁 首尾
 手機版   訂閱   地圖  簡體 
您是第 2661 個閱讀者
 
發表文章 發表投票 回覆文章
  可列印版   加為IE收藏   收藏主題   上一主題 | 下一主題   
n1023520
個人文章 個人相簿 個人日記 個人地圖
小人物
級別: 小人物 該用戶目前不上站
推文 x0 鮮花 x0
分享: 轉寄此文章 Facebook Plurk Twitter 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片
推文 x0
[Basic][求助] Rnd 函式
 

請利用Rnd()函式設計一個擲骰模擬程式,每次使用者擲骰時,程式就會顯示兩個骰子被擲出的點數(各為1~6點)




或是幫我把這段程式做修改,因為我不知道是哪裡又打錯或是少打,所以沒辦法執行



    Sub Main()
        Dim Win, Loss, Cnt, A As Integer
        Win = 0 ..

訪客只能看到部份內容,免費 加入會員 或由臉書 Google 可以看到全部內容



獻花 x0 回到頂端 [樓 主] From:臺灣中華電信 | Posted:2010-11-09 20:01 |
三仙 會員卡
個人頭像
個人文章 個人相簿 個人日記 個人地圖
頭銜:以馬內利 以馬內利
版主
級別: 版主 該用戶目前不上站
版區: 程式設計
推文 x17 鮮花 x370
分享: 轉寄此文章 Facebook Plurk Twitter 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片

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


挖出答案的難度,取決提問的深度!
獻花 x0 回到頂端 [1 樓] From:台灣中華電信 | Posted:2010-11-09 20:53 |
n1023520
個人文章 個人相簿 個人日記 個人地圖
小人物
級別: 小人物 該用戶目前不上站
推文 x0 鮮花 x0
分享: 轉寄此文章 Facebook Plurk Twitter 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片

雖然我不懂你的意思,但還是謝謝你很幫我


獻花 x0 回到頂端 [2 樓] From:臺灣中華電信 | Posted:2010-11-22 21:03 |

首頁  發表文章 發表投票 回覆文章
Powered by PHPWind v1.3.6
Copyright © 2003-04 PHPWind
Processed in 0.033318 second(s),query:16 Gzip disabled
本站由 瀛睿律師事務所 擔任常年法律顧問 | 免責聲明 | 本網站已依台灣網站內容分級規定處理 | 連絡我們 | 訪客留言