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
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