高校问答山西车祸今天发生最新:函数图形程度.用Pset方法在图形框Picture内绘制y=sinx在-3.14到3.14之间的图形
来源：百度文库 编辑：高校问答 时间：2024/05/02 05:07:46
窗体上添加一个图片框，一个命令按钮
图片框的scaleheight和scalewidth属性的值均为10
scalemode属性的值为7
代码如下：
Private Sub Command1_Click()
Const pi = 3.1415926
Dim x, y
Picture1.Scale (-5, 5)-(5, -5) '画坐标轴
Picture1.Line (-4, 0)-(4, 0)
Picture1.Line (0, -4)-(0, 4)
Picture1.CurrentX = 0
Picture1.CurrentY = 0
Picture1.Print "(0,0)"
For x = -1 * pi To pi Step pi / 10000
y = Sin(x)
Picture1.PSet (x, y)
Picture1.Line -(x, y)
Next x
Picture1.CurrentX = -1 * pi
Picture1.CurrentY = 0
Picture1.Print "(-π,0)"
Picture1.CurrentX = pi
Picture1.CurrentY = 0
Picture1.Print "(π,0)"
End Sub