用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“亚黄立方”
卸下我
末端接头