1.4　用BASIC编写各过程代码指令

即第四步：现在需在上下两行之间用BASIC编写各过程代码指令如下：

Private Sub Command1_Click（）
'振动混料斗隔振弹簧刚度计算
 ωn = ωn！： k = k！                                   '隐式声明变量为单精度
 '*输入参数
 w = Val（Text1.Text）                                '参振重量N=5500
 ω = Val（Text2.Text）                               '激振器激振频率rad/s=150.7964
 ηb = Val（Text3.Text）                              '要求的隔振系数=0.03
 g = 980                                              '重力加速度cm/s^2
 z = Sqr（1 + （1 / ηb））                             '所需频率比
 ωn = ω / z                                          '隔振后的频率rad/s
 k = （w / g） * ωn ^ 2                              '隔振弹簧刚度N/cm
 Text4.Text = ωn                                     '隔振后的频率rad/
Text5.Text = k                                       '隔振弹簧刚度N/cm
End Sub
Private Sub Command2_Click（）
 End                                                  '程序结束
 End Sub