1.2　在简单的界面上用BASIC编写计算程序并完成调试

（1）建立一个简单的用户界面

操作提示：

● 首先要启动Visual Basic 6.0。

● 在［新建工程］对话框中选择“标准EXE”选项，以便以后可生成执行文件的用户工程。系统会自动创建一个名为Form1的窗体，如图1.2所示。下一步的程序设计都在Form1窗体中进行。

● 在Form1窗体里添加一个命令控件按钮。如图1.2所示。

● 向窗体内加添控件的方法：单击工具箱选中的控件图标，在窗体上按住鼠标左键拖动鼠标，即可在窗体上画出选中的控件；或双击工具箱中要添加的控件图标，将其拖到窗体上预设位置。

● 设置对象属性：单击要设置属性的控件，控件周围就会出现八个小点，即处于选中状态，同时在屏幕右边会出现一个相对应的属性窗口。在该窗口中选择要修改的属性，然后在属性值栏输入或选择所需的属性值即可。

● 完成本例的属性设置：在属性窗口的对象框中选择Form1，在属性列表中将Form1的［Caption］属性设置为“混料斗隔振计算”。

单击Visual Basic标准工具栏上的按钮，或按F5键，编译并运行上述程序，界面如图1.3所示。

● 双击按钮，程序代码窗口便立即出现，如图1.4所示。

“代码编辑器”窗口主要由以上几元素组成，程序代码窗口组成元素名称及作用如表1.1所示。

● 事件过程的开头和结尾由系统自动生成，如：

Private Sub Command1_Click（）
End Sub

其中Private表明事件过程的类型，“Private”意为“私有”声明模块级过程，区别于Public “公有”声明全局级过程。本例过程名［这里是Command1_Click（）］由两部分组成，前面一部分是对象名（Command1），后面一部分是该对象的事件名（Click），中间用下划线相连，在过程名的后面有一对括号。事件过程名的两个部分可以根据需要任意组合。如，单击对象框右端向下的箭头，将列出各对象的名称，如图1.5所示；如单击过程/事件框右端向下的箭头，以下拉方式列出各种事件，如图1.6所示。

（2）用BASIC编写一个计算程序源代码并调试到计算结果正确

现在只需在上下两行之间用BASIC编写计算程序源代码。

双击窗体中的按钮。在弹出的代码窗口中编写Command1的Click事件代码即实例1.1振动混料斗隔振弹簧刚度计算的代码如下：

Private Sub Command1_Click（）
Print
Print "     振动混料斗隔振弹簧刚度计算2014.1.20"
Print
'因为VB的英文代码不分大小写，所以一定不要以大小写英文字母来作不同的代码，为了与习惯上的描述一致可以加注。
'振动混料斗隔振弹簧刚度计算
 ωn = ωn！： k = k！                                 '隐式声明变量为单精度
π = 3.1415926： xπ = π / 180： x180 = 180 / π
g = 980                                               '重力加速度cm/s^2
 W = 5500                                              '参振重量N
 ω = 150.7964                                         '激振器激振频率rad/s
ηb = 0.03                                            '要求的隔振系数
z = Sqr（1 + （1 / ηb））                              '所需频率比
ωn = ω / z                                          '隔振后的频率rad/s
k = （W / g） * ωn ^ 2                               '隔振弹簧刚度N/cm
Print "              隔振弹簧刚度k="； k； "N/cm"
 Print
Print "               隔振后的频率ωn="； ωn； "rad/s"
End Sub

（3）程序界面

单击标准工具栏上的按钮，或单击菜单栏中的［运行］/［启动］命令。立即出一个本程序界面，如图1.7所示。

单击运行界面中的按钮，立即弹出一个本程序运行的结果，如图1.8所示。