visualbasic程式設(shè)計(編輯修改稿)
2025-08-13 18:42 本頁面
【文章內(nèi)容簡介】 14 取亂數(shù) (cont’d) ? 加入 Randomize避免 有次序的亂數(shù) 如何取某範圍的亂數(shù) ? 在 1到 100之間的整數(shù) ? Int(((1001)+1)*Rnd()+1) ? Int(((最大值 最小值 )+1)*Rnd()+最小值 ) 15 猜數(shù)字 16 Private Sub Guess(answer As Integer) Dim num, choice As Integer Dim inputStr As String Do inputStr = InputBox(猜 1100的數(shù)字 , 猜猜看 , CStr(num)) If (inputStr = ) Then Exit Sub End If num = CInt(inputStr) If (num = answer) Then choice = MsgBox(答對了，還要玩嗎 ?, vbYesNo) If (choice) = vbNo Then Exit Sub End If ElseIf (num answer) Then MsgBox 太大了 Else MsgBox 太小了 End If Loop End Sub 17 Private Sub Form_Click() Dim answer As Integer Randomize answer = Int((100 1 + 1) * Rnd + 1) Guess answer MsgBox 謝謝 , vbOKOnly End Sub Project 2: 1. 修正原來程式的 BUG—每次答案都一樣 2. 加上計算猜了幾次的功能 18 日期與時間函數(shù) Date:取得目前的日期 ? Date?2022/10/20 Time:取得目前的日期 ? Time?上午 12:59:30 Now: 取得目前的日期與時間 ? Now?2022/10/20上午 12:59:30 此處的 Date不是型別，是函式 Print D
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1