第四章 顺序结构程序设计
本章主要内容
4.1 赋值语句
4.2 注释、暂停与程序结束
4.3 数据输入
4.4 数据输出
4.5 字体和字形
4.6 打印机输出
4.1 赋值语句
? 格式,目标操作符＝源操作符
? 功能,把源操作符的值赋给变量 Data
? 其中,
? 源操作符为：变量, 表达式, 常量及带有属性的对
象
? 目标操作符为：变量和带有属性的对象
? ＝：赋值号
? 例,Data＝ 15
? Text1.text=Str(Data)
? x=x+2
说明,
1、赋值语句兼有计算和赋值双重功能。
2、“＝”是赋值号，与数学上的等号意义不同。
3、“目标操作符”和“源操作符”的数据类型通
常要求一致，但 Basic提供的对某些数据类型的自动转
换机制，可强制变量转换为适当的数据类型。见 P75
4,VB通常按“一行一句，一句一行”的规则书写，
但允许多个语句放在同一行，用“：”隔开。
如,a=3:b=4:c=5
4.2 注释、暂停与程序结束
?注释语句
格式,‘ 注释内容 / Rem 注释内容
说明,
1,注释语句是非执行语句 。
2,任何字符均可放在注释语句中作为注释内容 。
示例,
‘ This is a test statement
Rem 计算圆的周长
a=3:b=4:c=5 ‘a,b,c 为三角形的边
?暂停语句
格式,Stop
说明,
1,可放置在过程中的任何地方, 相当于在程序代码中
设置断点, 类似于执行, 运行, 菜单中的, 中断, 命令 。
2,执行 Stop语句时, 系统将自动打开, 立即窗口,,
方便程序员调试跟踪程序 。
3,程序调试结束后, 生成可执行文件之前, 应删除代
码中的所有 Stop语句 。
?结束语句
格式,End
功能,通常用来结束一个程序的执行 。
在不同环境下的其他用途,
End Sub,结束一个 Sub过程
End Function,结束一个 Function过程
End If,结束一个 If语句块
End Type,结束记录类型的定义
End Select,结束情况语句
4.3 数据输入
?InputBox函数
格式,Inputbox[$](prompt[,title][,default]
[,xpos,ypos][,helpfile,context])
参数说明,
1,prompt 提示字符串, 不超过 1024个字符 。
2,title 显示对话框标题栏中的字符串表达式
3,default 显示文本框中的字符串表达式, 在没有其
它输入时作为缺省值, 若省略 default,则文本框为空 。
4,xpos 指定对话框的左边与屏幕左边的水平距离
5,ypos 指定对话框的上边与屏幕上边的距离
6,helpfile 字符串表达式，识别帮助文件，用该文件为
对话框提供上下文相关的帮助。
7,context 数值表达式，由帮助文件的作者指定给某个
帮助主题的帮助上下文编号。
标题
提示
字符串
例 4－ 1 设计一个程序，由用户输入一个华氏温度 F,程序可将
其转换为摄氏温度 C。 转换公式为 C＝（ 9/5)(F-32)
Private Sub Command1_Click()
Dim F,C As Long
F = Val(InputBox("请输入华氏温度 ","例 4-1"))
C = 5 / 9 * (F - 32)
Text1.Text = F
Text2.Text = C
End Sub
Private Sub Command2_Click()
End
End Sub
到 VB环境下运行
?MsgBox函数
格式,MsgBox(msg[,type][,title])
参数说明,
1,msg 提示字符串
2,type 为整数值或字符常量, 用来控制在对
话框内显示的按钮, 图标的种类及数量 。
type参数的设置值及其描述
3,title 用来显示对话框标题的字符串 。
MsgBox函数的返回值
常数 值 描述
vbOKOnly 0 只显示 OK 按钮。
VbOKCancel 1 显示 OK 及 Cancel 按钮。
VbAbortRetryIgnore 2 显示 Abort,Retry 及 Ignore 按钮。
VbYesNoCancel 3 显示 Yes,No 及 Cancel 按钮。
VbYesNo 4 显示 Yes 及 No 按钮。
VbRetryCancel 5 显示 Retry 及 Cancel 按钮。
VbCritical 16 显示 Critical Message 图标。
VbQuestion 32 显示 Warning Query 图标。
VbExclamation 48 显示 Warning Message 图标。
VbInformation 64 显示 Information Message 图标。
vbDefaultButton1 0 第一个按钮是缺省值。
vbDefaultButton2 256 第二个按钮是缺省值。
vbDefaultButton3 512 第三个按钮是缺省值。
vbDefaultButton4 768 第四个按钮是缺省值。
vbApplicationModal
0
应用程序强制返回；应用程序一直被挂起,
直到用户对消息框作出响应才继续工作 。
vbSystemModal
4096
系统强制返回；全部应用程序都被挂起, 直
到用户对消息框作出响应才继续工作 。
vbMsgBoxHelpButton
16384
将 Help按钮添加到消息框
VbMsgBoxSetForegrou
nd
65536
指定消息框窗口作为前景窗口
vbMsgBoxRight
524288
文本为右对齐
vbMsgBoxRtlReading
1048576
指定文本应为在希伯来和阿拉伯语系统中的
从右到左显示
返回
常数
值
描述
vbOK
1
OK
vbCanc
el
2
Cancel
vbAbort
3
Abort
vbRetry
4
Retry
vbIgnor
e
5
Ignore
vbYes
6
Yes
vbNo
7
No
返回
?MsgBox语句
格式,MsgBox Msg$[,type][,title]
说明,
各参数的含义及作用与 MsgBox函数相同 。
但 MsgBox语句没有返回值, 因此常被用于简单的信
息显示 。
在 VB环境中演示 P82的例 4－ 2，例 4－ 3
4.4 数据输出
?Print方法
格式,[对象名,] Print [表达式表 ]
说明,
1、“对象名”可以是窗体、立即窗口、图片框,
打印机，若省略对象名在当前窗体上输出。
2、“表达式表”是一个或多个表达式，可为数值
表达式（求出表达式的值输出）或字符串（原样输
出）。若省略，则输出一空行。
3、多个表达式之间可以用以下分隔符隔开,
,标准输出格式，每 14列作为一个输出区段；紧凑格式输出
示例,
Print 1,2;3,
Print 4
Print 5;,abcd”
运行结果,
1 2 3 4
5abcd
?与 Print方法有关的函数
1,Tab（ n）
功能,与 Print方法一起使用，在参数 n指定的位置输出
其后的表达式的值。
说明,
1） n是数值表达式，值为整数，若省略，则将输出
点移动到下一个输出区的起点。
2）若 n小于 1，则 tab将输出位置移动到第 1列。
3）一个 print方法中使用多个 Tab函数时，每个 Tab
函数对应一个输出项，各项之间用分号隔开。
如,Print Tab(10);“Good”;tab(26);”Morning”
2,Spc(n)
使光标从当前位置跳过 n个空格，对输出进行定位。
比较,Print Tab(2);“Hello”;Tab(10);”world”
Print Spc(2);”Hello”;Spc(10);”world”
3,Format[$](数值表达式,格式字符串 )
使数值表达式的值按“格式字符串”制定的格式输出。
数值格式化输出：见 P86表 4－ 4
日期和时间格式化：见 P87表 4－ 5
在 VB环境中运行 P87的例 4－ 4，例 4－ 5
?其他方法和属性
1,Cls方法
格式,[对象,]Cls
功能,清除显示的文本或图片框中显示的图形，并把光
标移到对象的左上角（ 0,0）。对象可为窗体或图片框，
若省略，则为窗体。
2,Move方法
格式,[对象,] Move 左边距离 [,上边距离 [,宽度 [,高度 ]]]
功能,在程序中移动窗体和控件，并可以改变大小。
对象可以是除时钟、菜单以外的所有控件。若省略对象，
则为窗体。
在 VB中调试运行 P89 例 4－ 6
4.5 字体和字形
?属性列表的 Font属性
工程设计阶段，可直接在属性窗口中选择,Font”
属性来设置显示文本的字形。（演示操作）
?字体类型和大小
字体类型,
[窗体,][控件,] FontName [=,字体类型” ]
字体大小,
FontSize[=点数 ]
?其他属性
粗体字,FontBold[=Boolean]
斜体字,FontItalic[=Boolean]
加中划线,FontStrikethru[=Boolean]
加下划线,FontUndeline[=Boolean]
重叠显示,FontTransparent[=Boolean]
以上属性均以 Boolean为 True时生效，为 False则
反之。
在 VB环境下调试 P91 例 4－ 7，例 4－ 8，例 4－ 9
§ 4.6 打印机输出
?打印表达式结果值
格式,Printer.Print [表达式 ]
功能：将表达式的值在打印机上打印出来。
在打印机对象中的其他方法和属性
Printer.Page 返回当前页号
Printer.Newpage 换页
Printer.EndDoc 结束文件打印，将 page重置 1
?窗体输出
格式,[窗体,] PrintForm
功能：把窗体的内容通过打印机打印出来。
?打印程序源代码
直接打印：文件菜单中的打印命令。
间接打印：用其他的文字编辑软件编辑打印。
见 P95 例 4－ 10,4－ 11
本章主要内容
4.1 赋值语句
4.2 注释、暂停与程序结束
4.3 数据输入
4.4 数据输出
4.5 字体和字形
4.6 打印机输出
4.1 赋值语句
? 格式,目标操作符＝源操作符
? 功能,把源操作符的值赋给变量 Data
? 其中,
? 源操作符为：变量, 表达式, 常量及带有属性的对
象
? 目标操作符为：变量和带有属性的对象
? ＝：赋值号
? 例,Data＝ 15
? Text1.text=Str(Data)
? x=x+2
说明,
1、赋值语句兼有计算和赋值双重功能。
2、“＝”是赋值号，与数学上的等号意义不同。
3、“目标操作符”和“源操作符”的数据类型通
常要求一致，但 Basic提供的对某些数据类型的自动转
换机制，可强制变量转换为适当的数据类型。见 P75
4,VB通常按“一行一句，一句一行”的规则书写，
但允许多个语句放在同一行，用“：”隔开。
如,a=3:b=4:c=5
4.2 注释、暂停与程序结束
?注释语句
格式,‘ 注释内容 / Rem 注释内容
说明,
1,注释语句是非执行语句 。
2,任何字符均可放在注释语句中作为注释内容 。
示例,
‘ This is a test statement
Rem 计算圆的周长
a=3:b=4:c=5 ‘a,b,c 为三角形的边
?暂停语句
格式,Stop
说明,
1,可放置在过程中的任何地方, 相当于在程序代码中
设置断点, 类似于执行, 运行, 菜单中的, 中断, 命令 。
2,执行 Stop语句时, 系统将自动打开, 立即窗口,,
方便程序员调试跟踪程序 。
3,程序调试结束后, 生成可执行文件之前, 应删除代
码中的所有 Stop语句 。
?结束语句
格式,End
功能,通常用来结束一个程序的执行 。
在不同环境下的其他用途,
End Sub,结束一个 Sub过程
End Function,结束一个 Function过程
End If,结束一个 If语句块
End Type,结束记录类型的定义
End Select,结束情况语句
4.3 数据输入
?InputBox函数
格式,Inputbox[$](prompt[,title][,default]
[,xpos,ypos][,helpfile,context])
参数说明,
1,prompt 提示字符串, 不超过 1024个字符 。
2,title 显示对话框标题栏中的字符串表达式
3,default 显示文本框中的字符串表达式, 在没有其
它输入时作为缺省值, 若省略 default,则文本框为空 。
4,xpos 指定对话框的左边与屏幕左边的水平距离
5,ypos 指定对话框的上边与屏幕上边的距离
6,helpfile 字符串表达式，识别帮助文件，用该文件为
对话框提供上下文相关的帮助。
7,context 数值表达式，由帮助文件的作者指定给某个
帮助主题的帮助上下文编号。
标题
提示
字符串
例 4－ 1 设计一个程序，由用户输入一个华氏温度 F,程序可将
其转换为摄氏温度 C。 转换公式为 C＝（ 9/5)(F-32)
Private Sub Command1_Click()
Dim F,C As Long
F = Val(InputBox("请输入华氏温度 ","例 4-1"))
C = 5 / 9 * (F - 32)
Text1.Text = F
Text2.Text = C
End Sub
Private Sub Command2_Click()
End
End Sub
到 VB环境下运行
?MsgBox函数
格式,MsgBox(msg[,type][,title])
参数说明,
1,msg 提示字符串
2,type 为整数值或字符常量, 用来控制在对
话框内显示的按钮, 图标的种类及数量 。
type参数的设置值及其描述
3,title 用来显示对话框标题的字符串 。
MsgBox函数的返回值
常数 值 描述
vbOKOnly 0 只显示 OK 按钮。
VbOKCancel 1 显示 OK 及 Cancel 按钮。
VbAbortRetryIgnore 2 显示 Abort,Retry 及 Ignore 按钮。
VbYesNoCancel 3 显示 Yes,No 及 Cancel 按钮。
VbYesNo 4 显示 Yes 及 No 按钮。
VbRetryCancel 5 显示 Retry 及 Cancel 按钮。
VbCritical 16 显示 Critical Message 图标。
VbQuestion 32 显示 Warning Query 图标。
VbExclamation 48 显示 Warning Message 图标。
VbInformation 64 显示 Information Message 图标。
vbDefaultButton1 0 第一个按钮是缺省值。
vbDefaultButton2 256 第二个按钮是缺省值。
vbDefaultButton3 512 第三个按钮是缺省值。
vbDefaultButton4 768 第四个按钮是缺省值。
vbApplicationModal
0
应用程序强制返回；应用程序一直被挂起,
直到用户对消息框作出响应才继续工作 。
vbSystemModal
4096
系统强制返回；全部应用程序都被挂起, 直
到用户对消息框作出响应才继续工作 。
vbMsgBoxHelpButton
16384
将 Help按钮添加到消息框
VbMsgBoxSetForegrou
nd
65536
指定消息框窗口作为前景窗口
vbMsgBoxRight
524288
文本为右对齐
vbMsgBoxRtlReading
1048576
指定文本应为在希伯来和阿拉伯语系统中的
从右到左显示
返回
常数
值
描述
vbOK
1
OK
vbCanc
el
2
Cancel
vbAbort
3
Abort
vbRetry
4
Retry
vbIgnor
e
5
Ignore
vbYes
6
Yes
vbNo
7
No
返回
?MsgBox语句
格式,MsgBox Msg$[,type][,title]
说明,
各参数的含义及作用与 MsgBox函数相同 。
但 MsgBox语句没有返回值, 因此常被用于简单的信
息显示 。
在 VB环境中演示 P82的例 4－ 2，例 4－ 3
4.4 数据输出
?Print方法
格式,[对象名,] Print [表达式表 ]
说明,
1、“对象名”可以是窗体、立即窗口、图片框,
打印机，若省略对象名在当前窗体上输出。
2、“表达式表”是一个或多个表达式，可为数值
表达式（求出表达式的值输出）或字符串（原样输
出）。若省略，则输出一空行。
3、多个表达式之间可以用以下分隔符隔开,
,标准输出格式，每 14列作为一个输出区段；紧凑格式输出
示例,
Print 1,2;3,
Print 4
Print 5;,abcd”
运行结果,
1 2 3 4
5abcd
?与 Print方法有关的函数
1,Tab（ n）
功能,与 Print方法一起使用，在参数 n指定的位置输出
其后的表达式的值。
说明,
1） n是数值表达式，值为整数，若省略，则将输出
点移动到下一个输出区的起点。
2）若 n小于 1，则 tab将输出位置移动到第 1列。
3）一个 print方法中使用多个 Tab函数时，每个 Tab
函数对应一个输出项，各项之间用分号隔开。
如,Print Tab(10);“Good”;tab(26);”Morning”
2,Spc(n)
使光标从当前位置跳过 n个空格，对输出进行定位。
比较,Print Tab(2);“Hello”;Tab(10);”world”
Print Spc(2);”Hello”;Spc(10);”world”
3,Format[$](数值表达式,格式字符串 )
使数值表达式的值按“格式字符串”制定的格式输出。
数值格式化输出：见 P86表 4－ 4
日期和时间格式化：见 P87表 4－ 5
在 VB环境中运行 P87的例 4－ 4，例 4－ 5
?其他方法和属性
1,Cls方法
格式,[对象,]Cls
功能,清除显示的文本或图片框中显示的图形，并把光
标移到对象的左上角（ 0,0）。对象可为窗体或图片框，
若省略，则为窗体。
2,Move方法
格式,[对象,] Move 左边距离 [,上边距离 [,宽度 [,高度 ]]]
功能,在程序中移动窗体和控件，并可以改变大小。
对象可以是除时钟、菜单以外的所有控件。若省略对象，
则为窗体。
在 VB中调试运行 P89 例 4－ 6
4.5 字体和字形
?属性列表的 Font属性
工程设计阶段，可直接在属性窗口中选择,Font”
属性来设置显示文本的字形。（演示操作）
?字体类型和大小
字体类型,
[窗体,][控件,] FontName [=,字体类型” ]
字体大小,
FontSize[=点数 ]
?其他属性
粗体字,FontBold[=Boolean]
斜体字,FontItalic[=Boolean]
加中划线,FontStrikethru[=Boolean]
加下划线,FontUndeline[=Boolean]
重叠显示,FontTransparent[=Boolean]
以上属性均以 Boolean为 True时生效，为 False则
反之。
在 VB环境下调试 P91 例 4－ 7，例 4－ 8，例 4－ 9
§ 4.6 打印机输出
?打印表达式结果值
格式,Printer.Print [表达式 ]
功能：将表达式的值在打印机上打印出来。
在打印机对象中的其他方法和属性
Printer.Page 返回当前页号
Printer.Newpage 换页
Printer.EndDoc 结束文件打印，将 page重置 1
?窗体输出
格式,[窗体,] PrintForm
功能：把窗体的内容通过打印机打印出来。
?打印程序源代码
直接打印：文件菜单中的打印命令。
间接打印：用其他的文字编辑软件编辑打印。
见 P95 例 4－ 10,4－ 11
