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
vb 正弦函数
最新推荐文章于 2021-07-28 11:41:04 发布
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