求VB弹球游戏代码

Dim a，b为整数

私有子命令1_Click()

Timer.enable = True

末端接头

私有子命令2_Click()

Timer.enable = False

卸下我

末端接头

私有子窗体_Load()

a = 50

b = 50

末端接头

私有子定时器1_Timer()

Shape1。移动Shape1。左+ a，Shape1。Top + b

如果Shape1。左+形1。宽度& gt= Frame1。左+ Frame1。宽度呢

a = -a

如果…就会结束

如果Shape1。Left & lt= Frame1。然后向左

a = -a

如果…就会结束

如果Shape1。Top & lt= Frame1。那就顶吧

乙=-乙

如果…就会结束

如果Shape1。Top + Shape1。高度& gt= Frame1。顶部+框架1。那么身高呢

乙=-乙

如果…就会结束

末端接头

这是一个球四处弹跳的陈述。至于速度，只需更改句子“Shape 1”中的值。移动形状1。左+100，形1。Top+100”。...