Private Sub Form_Click() Cls Form1.ScaleLeft =-200:Form1.ScaleTop 250 Form1.ScaleWidth 500:Form1.ScaleHeight =-400 ine(-200,0)-(300,0) '画X轴 Line(0,250)-(0,-150) '画Y轴 CurrentX=0:CurrentY =0:Print 0 CurrentX 280:CurrentY 40:Print "X" CurrentX 10:CurrentY =240:Print "Y" End Sub Private Sub Form_Click() Cls Form1.ScaleLeft = -200: Form1.ScaleTop = 250 Form1.ScaleWidth = 500: Form1.ScaleHeight = -400 Line (-200, 0)-(300, 0) '画X轴 Line (0, 250)-(0, -150) '画Y轴 CurrentX = 0: CurrentY = 0: Print 0 CurrentX = 280: CurrentY = 40: Print "X" CurrentX = 10: CurrentY = 240: Print "Y" End Sub