计算机猜数vb,VB猜数游戏

满意答案

下雨天1寂寞

2013.06.15

采纳率：49%    等级：12

已帮助：4214人

Dim vNum$, useNum$, GameCount%

Const MaxNum = 50 '定义上限

Private Sub Form_Click()

Randomize

vNum = Int(Rnd * MaxNum) + 1

useNum = InputBox("请输入一个" & MaxNum & "以内的数", "猜一猜")

If IsNumeric(useNum) Then

If useNum = vNum Then

MsgBox "恭喜!!猜对啦!!", , "恭喜"

End If

If useNum > vNum Then

MsgBox "Oh!你猜的数偏大了", , "加油"

GameCount = GameCount + 1

End If

If useNum < vNum Then

MsgBox "Oh!你猜的数偏小了", , "加油"

GameCount = GameCount + 1

End If

If GameCount = 6 Then

MsgBox "游戏结束!!", , "信息"

End

End If

End If

End Sub

30分享举报