概要: SlideShowWindows(1).View.DrawLine x1, y1, x1, y2 Loop End Sub放映一下,输入三个变量值,点击“画图象”按钮,看看效果如何?(最后一个文本框应输入φ的角度数)。您可以多次输入数据,画出多个函数图象以方便观察。要清除这些图象,可以用上面的方法再做一个按钮,按钮上的文字设置为“清除图象”,编辑代码为:Private Sub CommandButton3_Click()SlideShowWindows(1).View.EraseDrawingEnd Sub想要一个坐标系?呵呵,如果您不怕麻烦,当然可以了。做第三个按钮,按钮文字为“画坐标系”,编辑代码为:rivate Sub CommandButton3_Click()h = 100k = 200Length = 15.7Number = 500Dim xxxx = 1Do While xx < NumberIf xx Mod 4 = 0 ThenSlideShowWindows(1).View.D
用PowerPoint演示正弦波,标签:办公软件学习,office办公软件教程,http://www.laixuea.comSlideShowWindows(1).View.DrawLine x1, y1, x1, y2
Loop
End Sub
放映一下,输入三个变量值,点击“画图象”按钮,看看效果如何?(最后一个文本框应输入φ的角度数)。
您可以多次输入数据,画出多个函数图象以方便观察。要清除这些图象,可以用上面的方法再做一个按钮,按钮上的文字设置为“清除图象”,编辑代码为:
Private Sub CommandButton3_Click()
SlideShowWindows(1).View.EraseDrawing
End Sub
想要一个坐标系?呵呵,如果您不怕麻烦,当然可以了。做第三个按钮,按钮文字为“画坐标系”,编辑代码为:
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