趣味撞球程序编写

下来要做的全部工作就是填入程序代码了。Dim BallX As IntegerDim BallY As IntegerDim AddX As IntegerDim AddY As IntegerDim HitX As IntegerDim W As IntegerDim H As IntegerPrivate Sub Command1_Click()

allX=Int(Rnd(1)＊Form1ScaleWidth/10)＊5＋25BallY=Int((Form1ScaleHeight)/10)＊5AddX=－5AddY=－5Form_PaintTimer1Enabled=TrueEnd SubPrivate Sub Command2_Click()End

End SubPrivate Sub Form_MouseMove (Button As Integer,Shift As Integer,X As Single,Y As  Single)X=X－50If X<15 ThenX=15If X>W－105 ThenX=W－105

HitX=XIf Timer1Enabled=True ThenLine(16,H－5)－(W－6,H),＆HC0C0C0,BFLine(HitX,H)－(HitX＋100,H－5),0,BFEnd IfEnd SubPrivate Sub Form_Paint()Cls

W=Int((ScaleWidth－140)/5)＊5H=Int((ScaleHeight－10)/5)＊5BackColor=＆HC0C0C0Line(10,10)－(15,H),0,BFLine(W－5,10)－(W,H),0,BFLine(10,10)－(W,15),0,BFEnd SubPrivate Sub Timer1_Timer()Form1Circle(BallX,BallY),4,＆HC0C0C0BallX=BallX＋AddXBallY=BallY＋AddYForm1Circle(BallX,BallY),4,0If BallX<=20 Then AddX=－AddX

If BallY<=20 Then AddY=－AddYIf BallX>=W－10 ThenAddX=－AddXIf BallY>=H－10 ThenIf BallXHitX＋100 ThenTimer1Enabled=FalseForm_PaintEnd IfAddY=－AddYEnd IfEnd Sub