帮我看一下这个VB程序

来源：百度知道编辑：UC知道时间：2024/06/23 13:17:29

具体用了什么控件之类的。要写报告。是那个撞球的小游戏。

Dim BallX As Intege
Dim BallY As Integer
Dim AddX As Integer
Dim AddY As Integer
Dim HitX As Integer
Dim W As Integer
Dim H As Integer

Private Sub Command1_Click()
BallX = Int(Rnd(1) * Form1.ScaleWidth / 10) * 4 + 25
BallY = Int((Form1.ScaleHeight) / 10) * 4
AddX = -5
AddY = -5
Form_Parint
Timer1.Enabled = True
Command3.Enabled = True
Command1.Enabled = False
End Sub

Private Sub Command2_Click()
End
End Sub
Private Sub Command3_Click()
If Timer1.Enabled = True Then

Timer1.Enabled = False
Command3.Caption = "继续(&R)"
Else: Timer1.Enabled = True
Command3.Caption = "暂停(&P)"

End If
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
X = X - 50
If X < 15 Then X =

Dim BallX As Integer '球心X坐标
Dim BallY As Integer '球心Y坐标
Dim AddX As Integer '球心每次在X方向的改变量
Dim AddY As Integer '球心每次在Y方向的改变量
Dim HitX As Integer '球板的最左点X坐标
Dim W As Integer '边界宽度
Dim H As Integer '边界高度

Private Sub Command1_Click()
BallX = Int(Rnd(1) * Form1.ScaleWidth / 10) * 4 + 25 '球一开始在边界方框范围内随机位置出现
BallY = Int((Form1.ScaleHeight) / 10) * 4
AddX = -5 '球一开始往左上方跑
AddY = -5
Form_Parint '画边界框
Timer1.Enabled = True '球开始按照规律运动,开始游戏
Command3.Enabled = True
Command1.Enabled = False
End Sub

Private Sub Command2_Click()
End '退出游戏
End Sub
Private Sub Command3_Click()
If Timer1.Enabled = True Then

Timer1.Enabled = False '暂停游戏
Command3.Caption = "继续(&R)"
Else: Timer1.Enabled = True '继续游戏
Command3.Caption = "暂停(&P)"

End If
End Sub

帮我看一下这个程序！帮我看一下这个程序吧？帮我看一下VC这个程序大家帮我看下这个VB死机小程序??? 请大家帮我解决一下这个vb程序!!!!!! 请大家帮我看一下这一段vb程序请懂VB的朋友帮我看下这个VB程序段 VB帮我看一下代码VB VB高手帮我看一下这段VB程序吧请帮我看看这个VB程序!!!