vb求三角函数和画三角函数的程序代码

Private Sub Form_Click()'画正弦函数
Dim i As Single
Me.Scale (-6, 6)-(6, -6)
Line (-6, 0)-(6, 0), vbRed
Line (0, -6)-(0, 6), vbRed
For i = -6 To 6 Step 0.001
PSet (i, Sin(i))
Next i
End Sub
要画余弦和正切函数，只要把程序中的sin改为cos和tan即可。

用sin(),cos(),tan()和三角函数公式计算