急求一关于物理的vb程序

添加两个textbox 一个command 就可以了 试试可以达到你的要求吗

Dim zf As Single, zq As Integer, ks As Boolean

Private Sub zzyd()
Dim a As Integer, w As Single, h As Single, d As Single, dy As Single, qwz As Single, jg As Single
jg = 1
On Error Resume Next
Do While ks = True
DoEvents
jg = jg + 1
qwz = Me.ScaleWidth * 0.5 + zf * Cos(jg / (2 * 3.1415926 * zq))
w = Me.ScaleWidth
h = Me.ScaleHeight
Me.DrawWidth = w / 6000
Text1.Left = w * 0.05
Text1.Top = h * 0.75
Text1.Width = w * 0.35
Text1.Height = h * 0.15
Text2.Left = w * 0.425
Text2.Top = h * 0.75
Text2.Width = w * 0.35
Text2.Height = h * 0.15
Command1.Left = w * 0.8
Command1.Top = h * 0.75
Command1.Width = w * 0.15
Command1.Height = h * 0.15
Me.Cls
Me.Print "振幅的输入范围是" + CStr(1) + "---" + CStr(w * 0.3) + " " + vbCrLf + "双击窗体开始"