Private Sub Form_Click() '画正弦函数Dim i As SingleMe.Scale (-6,6)-(6,-6)Line (-6,0)-(6,0),vbRedLine (0,-6)-(0,6),vbRedFor i = -6 To 6 Step 0.001PSet (i,Sin(i))Next iEnd Sub
原文链接:https://www.f2er.com/vb/262394.htmlPrivate Sub Form_Click() '画正弦函数Dim i As SingleMe.Scale (-6,6)-(6,-6)Line (-6,0)-(6,0),vbRedLine (0,-6)-(0,6),vbRedFor i = -6 To 6 Step 0.001PSet (i,Sin(i))Next iEnd Sub
原文链接:https://www.f2er.com/vb/262394.html