UC知道VB绘制正弦曲线的问题？
来源：百度知道 编辑：UC知道 时间：2024/05/29 17:10:38
完成一个“正弦曲线”的程序设计，要求：
将窗体标题改为“正弦曲线”，图片框Picture1设置为固定边框，白色背景；要求将图片框的坐标系重新定义为左上角坐标（-π，1），右下角坐标（π，-1）；在图片框中画出坐标的X轴和Y轴；在图片框中画出[-π，π]区间的正弦波形。
在窗体上添加1个图片框和2个命令按钮控件，在属性窗口中，将命令按钮Command1、Command2的Capion属性分别设置为“显示”和“退出”，Picture1的BorderStyle和BackColor设置为1和白色，其他属性值取窗体默认值。
将窗体标题改为“正弦曲线”，图片框Picture1设置为固定边框，白色背景；要求将图片框的坐标系重新定义为左上角坐标（-π，1），右下角坐标（π，-1）；在图片框中画出坐标的X轴和Y轴；在图片框中画出[-π，π]区间的正弦波形。
在窗体上添加1个图片框和2个命令按钮控件，在属性窗口中，将命令按钮Command1、Command2的Capion属性分别设置为“显示”和“退出”，Picture1的BorderStyle和BackColor设置为1和白色，其他属性值取窗体默认值。
Private Sub Command1_Click()
Dim i As Single, t As Single
DrawWidth = 3
t = 4 * Atn(1) '即为π
Picture1.Scale (-t, 1)-(t, -1)
Picture1.Line (-t, 0)-(t, 0)
Picture1.Line (0, -t)-(0, t)
For i = -t To t Step 0.01
Picture1.PSet (i, Sin(i))
Next i
End Sub
Private Sub Command2_Click()
End
End Sub