中科新闻网小区实心护栏图片大全:问你们一道VB编程题好吗?
来源：百度文库 编辑：中科新闻网 时间：2024/05/02 06:53:40
要你编一个猜数字游戏,如果你猜的数字比较大,系统则提出"您输入的数过大 ,请重新输入"的字样,假如小的话,系统则提出"您输入的数过大,请重新输入"的字样,如果给出的数跟自己首先定义的数一样的话,系统则提出"恭喜您答对了"的字样.
有急用,请大家帮帮忙!!!
这个程序做过,有源代码,直接给你考上
Public n As Integer
Private Sub Command1_Click()
Randomize
n = CInt(Rnd() * 100)'产生100以内的数
Command2.Enabled = True
Text1.Locked = False
Text1.Text = ""
Command1.Enabled = False
End Sub
Private Sub Command2_Click()
Dim cishu As Integer
Static cs As Integer
cishu = Int(Text1.Text)
cs = cs + 1
If Text1.Text < 0 Then
Text1.Text = ""
Text2.Text = "输入错误！你输入了小于0的数，请重新输入"
ElseIf Text1.Text > 100 Then
Text1.Text = ""
Text2.Text = "输入错误！你输入了大于100的数，请重新输入"
ElseIf cishu > n Then
Text2.Text = "数字大了，重新再来"
Text1.Text = ""
ElseIf cishu < n Then
Text2.Text = "数字小了，再接再厉呀"
Text1.Text = ""
Else
Text2.Text = "恭喜你答对了，你真聪明！共用了" & CStr(cs) & "次"
Command1.Caption = "重新开始"
Text1.Text = "请按重新输入"
Command1.Enabled = True
cs = 0
End If
End Sub
写的有些早,可能语句不太精练!
取数是100以内的,这个自己修改吧.
IF
语句进行比较
这种问题，还是自己做的好吧