简单的游戏VB程序

定时器时间设置为1000，事件写入a = a+1。

私有子定时器1_Timer()

a = a + 1

末端接头

私有子窗体_Load()

定时器1。启用= 0

末端接头

私有子命令按钮1_Click()

a = Int(Rnd()* 100)' 1 ~ 99的随机整数。

定时器1。启用= 1

做

B = Val(InputBox("输入数字"))

如果a = b，那么

定时器1。启用= 0

MsgBox“你猜对了，你用了”&；a & amp"秒"

出口Do

ElseIf a & gtb那么

MsgBox“太小”

其他

MsgBox“太大”

如果…就会结束

环

末端接头