vb中的pset方法怎么用
Constpi=3.14196PrivateSubCommand1_Click()DimiAsSingleFori=-piTopiSteppi/180Form1.PSet...
Const pi = 3.14196
Private Sub Command1_Click()
Dim i As Single
For i = -pi To pi Step pi / 180
Form1.PSet (i, Sin(i)), vbBlue
Debug.Print i
Next i
End Sub
Private Sub Form_Load()
Command1.Caption = "画图"
Form1.DrawWidth = 3
Form1.Scale (-pi, 1.2)-(pi, -1.2)
End Sub
我f5运行,form窗体没有画出正弦曲线,大神帮忙看看。
这是运行时,我按了按钮的。
这是form的属性窗口。 展开
Private Sub Command1_Click()
Dim i As Single
For i = -pi To pi Step pi / 180
Form1.PSet (i, Sin(i)), vbBlue
Debug.Print i
Next i
End Sub
Private Sub Form_Load()
Command1.Caption = "画图"
Form1.DrawWidth = 3
Form1.Scale (-pi, 1.2)-(pi, -1.2)
End Sub
我f5运行,form窗体没有画出正弦曲线,大神帮忙看看。
这是运行时,我按了按钮的。
这是form的属性窗口。 展开
2个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询