VB如何绘制Sin和cos曲线上面的空如何填写,

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/07 21:05:05

VB如何绘制Sin和cos曲线上面的空如何填写,
VB如何绘制Sin和cos曲线




上面的空如何填写,

VB如何绘制Sin和cos曲线上面的空如何填写,
代码如下:
Private Sub Command1_Click()
    Dim x1 As Single, y1 As Single
    Dim x2 As Single, y2 As Single
    Const pai = 3.14
    Scale (-4, 3)-(10, -5)      '----(9)
    For x1 = -pai To pai * 2 Step 0.03
        y1 = Sin(x1)
        x2 = x1 + pai
        y2 = Cos(x2)            '---(10)
        Line (x1, y1)-(x2, y2)  '---(11)
    Next
End Sub
 效果图: