简单小游戏VB程序

2024-11-01 01:41:29

推荐回答（4个）

回答（1）：

Private a As Long '用于计时

'timer的时间设为1000,事件写入 a = a + 1
Private Sub Timer1_Timer()
a = a + 1
End Sub

Private Sub Form_Load()
timer1.Enabled = 0
End Sub

Private Sub CommandButton1_Click()
a = Int(Rnd() * 100) '随机一个1~99的整数
timer1.Enabled = 1
Do
b = Val(InputBox("输入数字"))
If a = b Then
timer1.Enabled = 0
MsgBox "猜对了,你用了" & a & "秒"
Exit Do
ElseIf a > b Then
MsgBox "太小了"
Else
MsgBox "太大了"
End If
Loop
End Sub

回答（2）：

别急，不知道能否打开。（意思是最好安个VB）
还有谁要？
邮箱：
1257748127@qq.com
上面是程序代码。

回答（3）：

求一个用VB制作的小游戏的编程

回答（4）：

已送出拼图