8.3.2 顺序语句
顺序控制是指在程序执行时，根据程序中语句书写顺序依次执行的语句序列。顺序结构语句的流程如图8-6所示。
任务8.1 创建名为“面积”标准模块，在此模块中插入一个SubArea（）过程，功能是使用输入框，输入圆的半径，使用输出框输出圆的面积（保留2位小数）。
创建名为“面积”窗体，添加一个“按钮”，通过“按钮”的“单击事件”调用此过程。程序界面如图8-7所示。
图8-6 顺序结构语句流程图
图8-7 程序界面
分析：
此题建立一个标准模块和一个窗体模块，且窗体模块中的按钮单击事件（事件过程）调用标准模块中的过程，标准模块过程类型一定是Public，这样才能在不同模块间调用。如果用Private，只能在同模块内调用。
标准模块有独立的模块名称，窗体模块随窗体对象保存，没有独立模块名称。编程环境一样，但进入编程环境的方法不同。
标准模块中主要建立公共过程，供其他模块调用，窗体模块主要建立事件过程，通过事件调用其他过程或直接编写程序，触发事件驱动程序运行。
操作步骤：
（1）单击“创建”选项卡→“宏与代码”组→“模块”，弹出“模块1（代码）”窗口，如图8-8所示。
（2）单击“插入”→“过程”，弹出“添加过程”对话框，输入过程“subArea”，选中“公共的”，如图8-9所示，单击“确定”按钮。
图8-8 “模块1（代码）”窗口
图8-9 “添加过程”对话框
（3）在SUBArea过程中输入代码，如图8-10所示。
图8-10 代码窗口
Const PI=3.1415926 '定义符号常量
Public Sub subArea（）
Dim r As Single，s As Single'声明两个变量
r=Val（InputBox（"请输入圆的半径"，"输入"））
'通过输入函数赋值圆的半径
s=Round（r＊r＊PI，2）'四舍五入保留2位小数
MsgBox"圆的面积："&s，vbOKCancel+vbInformation，"圆面积"
'通过输出函数输出圆的面积
End Sub
（4）验证设计。
方法一，光标定位于过程内的任何位置，按下F5键，或单击工具栏中的“运行”按钮。或光标定位于任何过程外，在代码窗口中，按下F5键，或单击工具栏中的“运行”按钮，弹出“宏”对话框，在“宏名称”列表框中，输入过程名，单击“运行”按钮，如图8-11所示。
图8-11 “宏”对话框
方法二，单击“视图”菜单→“立即窗口”或按“Ctrl+G”，显示“立即窗口”，输入过程名“subArea”按Enter键，运行过程。如图8-12所示。
图8-12 立即窗口
运行后，弹出“输入框”，在输入文本框中输入“4.5”，如图8-13所示。单击“确定”按钮，弹出“输出框”，如图8-14所示。
图8-13 输入框
图8-14 输出框
（5）单击工具栏中“保存”按钮，弹出“另存为”对话框，输入“面积”，如图8-15所示，单击“确定”按钮。关闭“代码”窗口。
（6）创建“面积”窗体，添加“按钮Command0”，切换至“面积”的“设计视图”，选择“Command0”，在“属性表”中，选择“事件”选项卡，单击“单击”事件右侧“…”按钮，打开窗体模块的代码窗口，输入“按钮”的“单击事件”代码，如图8-16所示。
图8-15 “另存为”对话框
图8-16 事件过程
Private Sub Command0＿Click（）
Call subArea '调用过程
End Sub
（7）切换到“窗口视图”，单击“按钮”，运行程序。保存为“面积”。