一个关于彩票游戏的VB小程序

第二步是复制下面的代码。

将x标注为整数，y标注为整数

私有子命令1_Click()

做

X = Val(InputBox("请输入您选择的数字(1~10)")。

如果x & lt1或x & gt那么10

MsgBox“选择范围是1到10，看看你选了什么”，vbCritical。

其他

出口Do

如果…就会结束

环

命令1。可见=假

命令2。可见=真

末端接头

私有子命令2_Click()

定时器1。启用=真

命令2。可见=假

命令3。可见=真

末端接头

私有子命令3_Click()

定时器1。启用=假

命令3。可见=假

命令4。可见=真

Message = "您选择的号码是" &；x & ampvbCrLf & amp；“本期中奖号码为“&；y

如果x = y，那么

信息=信息&；vbCrLf & amp；“恭喜你，你中奖了。”

其他

信息=信息&；vbCrLf & amp；“可惜你没中奖。”

如果…就会结束

MsgBox信息

末端接头

私有子命令4_Click()

恢复

末端接头

私有子窗体_Load()

命令1。Caption = "选择号码"

命令2。Caption = "draw "

命令3。Caption = "好的"

命令4。Caption = "重新开始"

Label1。FontSize = 28

定时器1。间隔= 100

恢复

末端接头

私有子恢复()

命令1。可见=真

命令2。可见=假

命令3。可见=假

命令4。可见=假

Label1 = " "

定时器1。启用=假

末端接头

私有子定时器1_Timer()

使不规则化

y = Int(Rnd * 10 + 1)

Label1 = y

末端接头

第三步，跑步。