计算机专业VB实验报告

rImagel.Picture=LoadPicture(P(M))\rEndSub\rPrivateSubTimer2_Timer()\rImagel.Top=Imagel.Top+2*A\rImagel.Left=Imagel.Left+3*B\rIfImagel.Top@00OrImagel.Top+\rImagel.Height)=Forml.ScaleHeight\r63EvaluationWarning:ThedocumentwascreatedwithSpire.PDFfor.NET.\r./0123456789\r:;<=>:?@ABC@A:67DE=;_F_DGH:\rThen\rA=-A\rImage1.Top=Image1.Top+2*A\rEndIf\rIfImage1.Left<=0OrImage1.Left+\rImagel.Width>=Forml.ScaleWidthThen\rB--B\rImagel.Left=Imagel.Left+3*B\rEndIf\rEndSub\rPrivateSubTimer3_Timer()\rIfN>5ThenN=1\rImage3.Picture=LoadPicture(Q(N))\rN=N+1\rEndSub\rPrivateSubTimer4_Timer()\rIfAbs(Xx-XO)>Abs(Xn)ThenXO=\rXO+XnElseXO=Xx\rIfAbs(Yy-YO)>Abs(Yn)ThenYO-\rYO+YnElseYO-Yy\r64EvaluationWarning:ThedocumentwascreatedwithSpire.PDFfor.NET.\r./0123456789\r:;<=>:?@ABC@A:67DE=;_F_DGH.\rImage3.MoveXO,YO\rEndSub\r65