想要一个坐标系?呵呵，如果您不怕麻烦，当然可以了。做第三个按钮，按钮文字为“画坐标系”，编辑代码为:

　　rivate Sub CommandButton3_Click()
　　h = 100
　　k = 200
　　Length = 15.7
　　Number = 500
　　Dim xx
　　xx = 1
　　Do While xx < Number
　　If xx Mod 4 = 0 Then
　　SlideShowWindows(1).View.DrawLine h + xx * Length, k - 7, h + xx * Length, k
　　SlideShowWindows(1).View.DrawLine h - xx * Length, k - 7, h - xx * Length, k
　　SlideShowWindows(1).View.DrawLine h, k - xx * (Length + 4.3), h + 7, k - xx * (Length + 4.3)
　　SlideShowWindows(1).View.DrawLine h, k + xx * (Length + 4.3), h + 7, k + xx * (Length + 4.3)
　　Else
　　SlideShowWindows(1).View.DrawLine h + xx * Length, k - 3, h + xx * Length, k
　　SlideShowWindows(1).View.DrawLine h - xx * Length, k - 3, h - xx * Length, k
　　SlideShowWindows(1).View.DrawLine h, k - xx * (Length + 4.3), h + 3, k - xx * (Length + 4.3)
　　SlideShowWindows(1).View.DrawLine h, k + xx * (Length + 4.3), h + 3, k + xx * (Length + 4.3)
　　End If
　　xx = xx + 1
　　Loop
　　SlideShowWindows(1).View.DrawLine h, k, h + xx * Length, k
　　SlideShowWindows(1).View.DrawLine h - xx * Length, k, h, k
　　SlideShowWindows(1).View.DrawLine h, k, h, k - xx * Length
　　SlideShowWindows(1).View.DrawLine h, k, h, k + xx * Length
　　End Sub

　　行了，再试一次。如图6所示。呵呵，够“专业”吧?用它来演示正弦波，不错吧?

上一页  [1] [2] [3] [4]