作业(程序设计).pptVIP

作业 程序运行框 Private Sub Form_Click() A = 5 B = 0 C = 0.01 Cls Scale (-10, 10)-(10, -10) Line (-9, 0)-(9, 0) Line (0, -8)-(0, 8) CurrentX = 0.5 CurrentY = 9 Print y CurrentX = 9 CurrentY = -0.5 Print x For x = -8 To 8 Step 1 PSet (x, 0.01) Next x For y = -6 To 6 Step 1 PSet (0.1, y) Next y For x = -8 To 8 Step C y = A * Sin(x) + B PSet (x, y) Next x End Sub 制作截图 制作截图 * *