第 6章 顺序结构本章的学习要点
数据输入
数据输出：
（ 1） Print方法
（ 2）与 Print方法有关的函数（ Tab,Spc,S pace
$）
（ 3）格式输出（ Format $）
InputBox函数
MsgBox函数和 MsgBox语句程序结构概述
结构化程序由三种基本控制结构组成,即 顺序结构、
分支结构和循环结构 。 这三种基本结构可以组成所有的各种复杂程序。
顺序结构是一种简单的程序结构，即按 程序段中语句出现的先后顺序依次执行的结构 。
A
B
N
…
先执行 A操作，其次执行 B操作，
,最后执行 N
操作，
它们都是顺序执行的关系。
6.1 注释语句为了提高程序的可读性，在程序的必要位置加上注释是有用的。注释语句就起此作用，以方便自己或他人理解语句的含义。
注意注释语句是非执行语句。 注释语句有两种定义格式：
① Rem 注释内容
② ’注释内容功能：用来对程序中的语句进行注释说明。
6.1 注释语句说明：
1,注释语句可单独占一行，也可以放在语句的后面 ;
2,若在语句行后面使用 Rem关键字，则必须使用冒号
“：”与语句隔开 ;
3,若在语句行后面使用,’,,则不必使用冒号 ;
4,单引号应是半角英文的直撇号。
6.1 注释语句例如：
Private Sub Command1_Click()
Text2.Text = Text1.Text
Rem将文本框 1里面的内容赋给文本框 2
End Sub
’ 将文本框 1里面的内容赋给文本框 2
6.2 数据的输入所谓输入是指在执行程序时需要从外界获取的必要信息。 输入可以有多个，也可以没有。
VB中可以有多种基本输入方式，包括 赋值语句,文本框的输入 和 InputBox函数 等。
6.2.1利用赋值语句输入数据
VB编程语言中用“＝”作为赋值运算符，简称赋值号。
赋值语句的语句格式为：
[Let] 变量名＝常量 |变量 |表达式 |对象的属性
6.2.1 利用赋值语句输入数据说明：
1,在上述格式中,赋值语句的功能 是将赋值号右边的表达式的值赋给赋值号左边的变量；
2,其中赋值号 左边 的变量可以是用户自定义的变量，也可以是对象的属性；
3,赋值号 右边 的表达式可以是常量、表达式、文本框等控件中获取的值，也可以是由 InputBox函数提供的值。
6.2.1利用赋值语句输入数据注意：
1,赋值号两边的数据类型必须保持一致性或兼容；
2,赋值语句先计算右边表达式的值，再将结果赋给左边的变量；
3,赋值号与数学中“等号“在概念上有所区别。数学中等号为判断左右两值是否相等。
例如：
Let X＝ X＋ 1 ’ 变量 X加上 1以后赋给左边的变量 X
6.2.1利用赋值语句输入数据
例 6-1．求半径为 3的圆周长
Private Sub Command1_Click()
Const p = 3.1415
Dim r As Single,L As Single
r = 3
L = 2 * p * r
Text1.Text = L
End Sub
6.2.2使用文本框输入数据文本框控件具备 Text的属性，程序可以通过获取文本框 Text属性值来得到相关的信息，也可以将信息以文本框 Text属性向外显示。故在很多程序中利用文本框完成信息的输入与输出。
6.2.2使用文本框输入数据例 6-2．单击按钮时，将 Text1内的内容复制到 Text2中。
Private Sub Command1_Click()
Text2.Text = Text1.Text
End Sub
运 行效果
6.2.3 InputBox函数
InputBox函数的作用：
生成一对话框来显示提示，等待用户在文本框里输入内容或按下按钮，并输入文本框中内容。函数的返回值的类型为 String类型。
InputBox函数的语法格式：
X=InputBox(提示信息,[标题 [,缺省值 ][,X坐标,Y坐标 ][,
帮助文件,上下文 ]])
标题 提示信息缺省值
6.2.3 InputBox函数参数 用法提示信息提示信息参数是必须的。若包含多行，
可在各行之间用 chr（ 13）（回车符）、
chr（ 10）（换行符）或 chr（ 13） &
chr(10)来分隔标题 对话框的标题，是可选的缺省值 文本框里的缺省值，是可选的
X坐标,Y坐标 X坐标,y坐标决定输入框的位置
6.2.3 InputBox函数参数 用法帮助文件帮助文件是可选项，识别帮助文件，用该文件为对话框提供上下文相关的帮助。
如果已提供帮助文件，则必须提供上下文。
上下文上下文为可选项，数值表达式，由帮助文件的作者指定给某个帮助主题的帮助上下文编号。
返回值返回值 x将是用户在文本框里输入的数据,x是一个字符串类型的值。如果用户按了 Cancel钮，则 x将为空字符串。
6.2.3 InputBox函数例如：
X＝ InputBox （,请输入任意字符串,,,输入,）
生成的对话框为,
标题提示信息
6.2.3 InputBox函数
例 6-3．单击按钮时，弹出对话框，并将用户输入的信息显示在文本框里。
Private Sub Command1_Click()
Dim i As String ’ 定义字符串变量 i
i = InputBox("请输入任意字符串 ","输入 ")
Text1.Text = i ’ 通过文本框显示 i的值
End Sub
6.3 数据的输出程序设计的最终目的是给用户一个答案，将计算的结果应显示在用户界面上以供用户观看。因此对于一个完整的程序，数据的输出是不可缺少的。
在 VB程序设计中，数据的输出可以有多种方式：
Print方法输出,MsgBox函数 等。
6.3.1 Print方法
Print方法是很多 VB对象所具备的方法，包括窗体、
图片框或打印机等。使用 Print方法可以在上述对象上显示字符串和表达式的值。
语法格式如下：
[对象名,]print[{常量 |变量 |表达式 [{,|;}]]
说明：
1,对象名可以是 Form,PictureBox或 Printer。如果省略对象名，则在窗体上输出。
2,表达式可以是数值表达式或字符串表达式。当输出多个表达式时，表达式之间可以用“，”、
“；”或,”隔开。
6.3.1 Print方法
3,若要使后面执行 Print时还在本行输出，可以在末尾加“；”或“，”。
4,单独一个,Print” 效果即为换行。
6.3.1 Print方法
(1)Tab函数语法格式,Tab（ n）
功能：
可选的 n 参数是在显示或打印列表中的下一个表达式之前移动的列数。若省略此参数，则 Tab 将插入点移动到下一个打印区的起点。当 Print 方法与 Tab 函数一起使用时，打印的外观将会被分割为均匀、定宽的列。各列的宽度等于选用字体内以磅数为单位的所有字符的平均宽度。
6.3.1 Print方法
(2)Spc函数或 Space[$]函数语法格式,Spc(n)或 Space(n)
功能：跳过 n个空格后再输出下一个输出项。
6.3.2 MsgBox函数
MsgBox称为消息对话框，用于创建一个消息框，等待用户选择一个按钮，并通过返回值将用户的选择作为程序继续执行的依据。信息框中通常显示一些提示信息、出错信息或者警告信息等。
6.3.2 MsgBox函数
MsgBox函数的语法格式如下：
[Action＝ ]MsgBox（提示信息，显示类型，标题）
说明：
（ 1）提示信息显示在提示框内；
（ 2）显示类型为对话框所显示的效果；
（ 3） Action获取用户所选择按钮对应的返回值。
6,4 MsgBox函数数值 符号常量 意义
0 vbokonly 只显示 ok按钮
1 vbokcancel 显示 ok,cancel按钮
2 vbAbortRetryIgno
re
显示 Abort,Retry、
Ignore按钮
3 vbyesnocancel 显示 yes,no,cancel按钮
4 vbYesNo 显示 Yes,No按钮
5 vbRetryCancel 显示 Retry,Cancel按钮
6.3.2 MsgBox函数数值 符号常量 意义
16 vbCritical Stop Sign对极其重要的问题提醒用户
32 vbQuestion Question Mark增亮显示没有危险的问题
48 vbExclamati
on
Exclamation mark 强调警告用户必须知道的事情
64 vbInformati
on
Information mark 可以使乏味的信息变的有趣数值 符号常量 意义
0 vbDefaultButton1 第一个按钮缺省
256 vbDefaultbutton2 第二个按钮缺省
512 vbDefaultbutton3 第三个按钮缺省
6.3.2 MsgBox函数注意：
(1)设置 MsgBox函数中的 type函数类型时，既可以将所需的符号常量类型用“＋”连接起来，又可以直接将符号常量对应的数值加起来作为设置。
6.3.2 MsgBox函数
MsgBox "欢迎光临！ ",vbOKOnly + vbInformation,"欢迎 "
MsgBox "欢迎光临！ ",64,"欢迎 "
0 64
6.3.2 MsgBox函数
MsgBox,网络连 接出 现问题,是否重 试？ ",274,"警告 "
2＋ 16＋ 256
vbAbortRetryIgnore+ vbCritical+vbDefaultbutton2
6.3.2 MsgBox函数
（ 2）若返回值不需要做进一步的判断则可以省略,Action
＝”，同时使用 MsgBox函数的时候不用圆括号。
例如：
x = MsgBox("是否退出？ ",vbOKCancel,"提示 ")
在弹出的对话框中若选择,确定,按钮，则 x＝ 1，否则 x等于 2。
6.3.2 MsgBox函数
6.3.2 MsgBox函数返回值 符号常量 用户选择的按钮
1 VbOk,确定”按钮
2 VbCancel,取消”按钮
3 VbAbort,终止”按钮
4 VbRetry,重试”按钮
5 VbIgnore,忽略”按钮
6 VbYes,是”按钮
8 VbNo,否”按钮
数据输入
数据输出：
（ 1） Print方法
（ 2）与 Print方法有关的函数（ Tab,Spc,S pace
$）
（ 3）格式输出（ Format $）
InputBox函数
MsgBox函数和 MsgBox语句程序结构概述
结构化程序由三种基本控制结构组成,即 顺序结构、
分支结构和循环结构 。 这三种基本结构可以组成所有的各种复杂程序。
顺序结构是一种简单的程序结构，即按 程序段中语句出现的先后顺序依次执行的结构 。
A
B
N
…
先执行 A操作，其次执行 B操作，
,最后执行 N
操作，
它们都是顺序执行的关系。
6.1 注释语句为了提高程序的可读性，在程序的必要位置加上注释是有用的。注释语句就起此作用，以方便自己或他人理解语句的含义。
注意注释语句是非执行语句。 注释语句有两种定义格式：
① Rem 注释内容
② ’注释内容功能：用来对程序中的语句进行注释说明。
6.1 注释语句说明：
1,注释语句可单独占一行，也可以放在语句的后面 ;
2,若在语句行后面使用 Rem关键字，则必须使用冒号
“：”与语句隔开 ;
3,若在语句行后面使用,’,,则不必使用冒号 ;
4,单引号应是半角英文的直撇号。
6.1 注释语句例如：
Private Sub Command1_Click()
Text2.Text = Text1.Text
Rem将文本框 1里面的内容赋给文本框 2
End Sub
’ 将文本框 1里面的内容赋给文本框 2
6.2 数据的输入所谓输入是指在执行程序时需要从外界获取的必要信息。 输入可以有多个，也可以没有。
VB中可以有多种基本输入方式，包括 赋值语句,文本框的输入 和 InputBox函数 等。
6.2.1利用赋值语句输入数据
VB编程语言中用“＝”作为赋值运算符，简称赋值号。
赋值语句的语句格式为：
[Let] 变量名＝常量 |变量 |表达式 |对象的属性
6.2.1 利用赋值语句输入数据说明：
1,在上述格式中,赋值语句的功能 是将赋值号右边的表达式的值赋给赋值号左边的变量；
2,其中赋值号 左边 的变量可以是用户自定义的变量，也可以是对象的属性；
3,赋值号 右边 的表达式可以是常量、表达式、文本框等控件中获取的值，也可以是由 InputBox函数提供的值。
6.2.1利用赋值语句输入数据注意：
1,赋值号两边的数据类型必须保持一致性或兼容；
2,赋值语句先计算右边表达式的值，再将结果赋给左边的变量；
3,赋值号与数学中“等号“在概念上有所区别。数学中等号为判断左右两值是否相等。
例如：
Let X＝ X＋ 1 ’ 变量 X加上 1以后赋给左边的变量 X
6.2.1利用赋值语句输入数据
例 6-1．求半径为 3的圆周长
Private Sub Command1_Click()
Const p = 3.1415
Dim r As Single,L As Single
r = 3
L = 2 * p * r
Text1.Text = L
End Sub
6.2.2使用文本框输入数据文本框控件具备 Text的属性，程序可以通过获取文本框 Text属性值来得到相关的信息，也可以将信息以文本框 Text属性向外显示。故在很多程序中利用文本框完成信息的输入与输出。
6.2.2使用文本框输入数据例 6-2．单击按钮时，将 Text1内的内容复制到 Text2中。
Private Sub Command1_Click()
Text2.Text = Text1.Text
End Sub
运 行效果
6.2.3 InputBox函数
InputBox函数的作用：
生成一对话框来显示提示，等待用户在文本框里输入内容或按下按钮，并输入文本框中内容。函数的返回值的类型为 String类型。
InputBox函数的语法格式：
X=InputBox(提示信息,[标题 [,缺省值 ][,X坐标,Y坐标 ][,
帮助文件,上下文 ]])
标题 提示信息缺省值
6.2.3 InputBox函数参数 用法提示信息提示信息参数是必须的。若包含多行，
可在各行之间用 chr（ 13）（回车符）、
chr（ 10）（换行符）或 chr（ 13） &
chr(10)来分隔标题 对话框的标题，是可选的缺省值 文本框里的缺省值，是可选的
X坐标,Y坐标 X坐标,y坐标决定输入框的位置
6.2.3 InputBox函数参数 用法帮助文件帮助文件是可选项，识别帮助文件，用该文件为对话框提供上下文相关的帮助。
如果已提供帮助文件，则必须提供上下文。
上下文上下文为可选项，数值表达式，由帮助文件的作者指定给某个帮助主题的帮助上下文编号。
返回值返回值 x将是用户在文本框里输入的数据,x是一个字符串类型的值。如果用户按了 Cancel钮，则 x将为空字符串。
6.2.3 InputBox函数例如：
X＝ InputBox （,请输入任意字符串,,,输入,）
生成的对话框为,
标题提示信息
6.2.3 InputBox函数
例 6-3．单击按钮时，弹出对话框，并将用户输入的信息显示在文本框里。
Private Sub Command1_Click()
Dim i As String ’ 定义字符串变量 i
i = InputBox("请输入任意字符串 ","输入 ")
Text1.Text = i ’ 通过文本框显示 i的值
End Sub
6.3 数据的输出程序设计的最终目的是给用户一个答案，将计算的结果应显示在用户界面上以供用户观看。因此对于一个完整的程序，数据的输出是不可缺少的。
在 VB程序设计中，数据的输出可以有多种方式：
Print方法输出,MsgBox函数 等。
6.3.1 Print方法
Print方法是很多 VB对象所具备的方法，包括窗体、
图片框或打印机等。使用 Print方法可以在上述对象上显示字符串和表达式的值。
语法格式如下：
[对象名,]print[{常量 |变量 |表达式 [{,|;}]]
说明：
1,对象名可以是 Form,PictureBox或 Printer。如果省略对象名，则在窗体上输出。
2,表达式可以是数值表达式或字符串表达式。当输出多个表达式时，表达式之间可以用“，”、
“；”或,”隔开。
6.3.1 Print方法
3,若要使后面执行 Print时还在本行输出，可以在末尾加“；”或“，”。
4,单独一个,Print” 效果即为换行。
6.3.1 Print方法
(1)Tab函数语法格式,Tab（ n）
功能：
可选的 n 参数是在显示或打印列表中的下一个表达式之前移动的列数。若省略此参数，则 Tab 将插入点移动到下一个打印区的起点。当 Print 方法与 Tab 函数一起使用时，打印的外观将会被分割为均匀、定宽的列。各列的宽度等于选用字体内以磅数为单位的所有字符的平均宽度。
6.3.1 Print方法
(2)Spc函数或 Space[$]函数语法格式,Spc(n)或 Space(n)
功能：跳过 n个空格后再输出下一个输出项。
6.3.2 MsgBox函数
MsgBox称为消息对话框，用于创建一个消息框，等待用户选择一个按钮，并通过返回值将用户的选择作为程序继续执行的依据。信息框中通常显示一些提示信息、出错信息或者警告信息等。
6.3.2 MsgBox函数
MsgBox函数的语法格式如下：
[Action＝ ]MsgBox（提示信息，显示类型，标题）
说明：
（ 1）提示信息显示在提示框内；
（ 2）显示类型为对话框所显示的效果；
（ 3） Action获取用户所选择按钮对应的返回值。
6,4 MsgBox函数数值 符号常量 意义
0 vbokonly 只显示 ok按钮
1 vbokcancel 显示 ok,cancel按钮
2 vbAbortRetryIgno
re
显示 Abort,Retry、
Ignore按钮
3 vbyesnocancel 显示 yes,no,cancel按钮
4 vbYesNo 显示 Yes,No按钮
5 vbRetryCancel 显示 Retry,Cancel按钮
6.3.2 MsgBox函数数值 符号常量 意义
16 vbCritical Stop Sign对极其重要的问题提醒用户
32 vbQuestion Question Mark增亮显示没有危险的问题
48 vbExclamati
on
Exclamation mark 强调警告用户必须知道的事情
64 vbInformati
on
Information mark 可以使乏味的信息变的有趣数值 符号常量 意义
0 vbDefaultButton1 第一个按钮缺省
256 vbDefaultbutton2 第二个按钮缺省
512 vbDefaultbutton3 第三个按钮缺省
6.3.2 MsgBox函数注意：
(1)设置 MsgBox函数中的 type函数类型时，既可以将所需的符号常量类型用“＋”连接起来，又可以直接将符号常量对应的数值加起来作为设置。
6.3.2 MsgBox函数
MsgBox "欢迎光临！ ",vbOKOnly + vbInformation,"欢迎 "
MsgBox "欢迎光临！ ",64,"欢迎 "
0 64
6.3.2 MsgBox函数
MsgBox,网络连 接出 现问题,是否重 试？ ",274,"警告 "
2＋ 16＋ 256
vbAbortRetryIgnore+ vbCritical+vbDefaultbutton2
6.3.2 MsgBox函数
（ 2）若返回值不需要做进一步的判断则可以省略,Action
＝”，同时使用 MsgBox函数的时候不用圆括号。
例如：
x = MsgBox("是否退出？ ",vbOKCancel,"提示 ")
在弹出的对话框中若选择,确定,按钮，则 x＝ 1，否则 x等于 2。
6.3.2 MsgBox函数
6.3.2 MsgBox函数返回值 符号常量 用户选择的按钮
1 VbOk,确定”按钮
2 VbCancel,取消”按钮
3 VbAbort,终止”按钮
4 VbRetry,重试”按钮
5 VbIgnore,忽略”按钮
6 VbYes,是”按钮
8 VbNo,否”按钮
