vb編的猜數字小遊戲……不管輸入什麽數字都顯示“數字太大”……求修改……

妳那個a是在Form_Load中定義的局部變量，在Command1_Click中沒有a這個變量，a是空值，所以無論輸入的b是多少，壹定比a這個空值要大。建議以後寫代碼時在最頂部加上 Option Explicit ，這樣能避免發生這樣的錯誤。

把妳的代碼全刪掉，修改如下：

Option Explicit

Dim a As Integer

Private Sub Form_Load() Randomize

a = Int(100 * Rnd + 1)

Print "正確答案是：" & a

End Sub

Private Sub Command1_Click() Dim b As Integer

b = Val(InputBox("請輸入壹個數字(1-100)"))

If b > 100 Or b < 1 Then

MsgBox ("輸入錯誤!")

ElseIf b = a Then

MsgBox ("過關!")

ElseIf b > a Then

MsgBox ("數字太大")

Else

MsgBox ("數字太小")

End If

End Sub

上一篇:python如何學習好

下一篇:請教，國內的程控直流電源哪家的比較好？