用VB写的小游戏

该窗体有两个Label控件和一个Timer控件:

将n表示为整数

Private Sub Form_KeyDown(KeyCode为整数,Shift为整数)

选择案例键码

案例vbKeyUp

如果Label1。Top & gt0然后标注1。Top = Label1。前50名

Case vbKeyDown

如果Label1。Top & ltScaleHeight - Label1高度然后Label1。Top = Label1。Top + 50

案例vbKeyLeft

如果Label1。Left & gt0然后标注1。左= Label1。左转50度

案例vbKeyRight

如果Label1。Left & ltScaleWidth - Label1宽度,然后标注1。左= Label1。向左+ 50

结束选择

通话检查

末端接头

私有子检查()

如果Abs(Label1。顶部标签2。top)& lt;= 50和Abs(Label1。左标签2。左)& lt那么= 50

n = n + 1

标签2。移动Rnd * ScaleWidth,Rnd * ScaleHeight

如果…就会结束

末端接头

私有子窗体_Load()

KeyPreview = True

使不规则化

标签为1

。标题= " "

。BackColor = vbWhite

。移动(缩放宽度-。Width) / 2,(ScaleHeight -。高度)/ 2,500,500

以…结尾

带标签2

。标题= " "

。BackColor =黄色

。移动Rnd *比例宽度,Rnd *比例高度,500,500

以…结尾

定时器1。间隔= 60000

定时器1。启用=真

末端接头

私有子定时器1_Timer()

MsgBox "这& amp是针对" &;n & amp“亚黄立方”

卸下我

末端接头