Question

用vb编写程序 画出 正弦 余弦 方波 用一个picture 还有 四个command 急求啊 一点之前 谢谢了

Answer 1

Const pi = 3.1415926
Dim i As Single
Private Sub Command1_Click()
For i = 0 To 8 * pi Step 0.01
Picture1.PSet (i * 200, 500 - 500 * Sin(i))
Next
End Sub

Private Sub Command2_Click()
For i = 0 To 8 * pi Step 0.01
Picture1.PSet (i * 200, 1500 - 500 * Cos(i))
Next
End Sub

Private Sub Command3_Click()
For i = 0 To 8 * pi Step 0.01
Picture1.PSet (i * 200, 3000 - 1000 * ((i \ pi) Mod 2))
Next
End Sub

Private Sub Command4_Click()
End
End Sub

四个按钮，一个picture