Visual Basic 程序设计
第四章
程序的输入和输出
万博科技职业学院
?■
万 博 科 技 职 业 学 院
Wanbo Inst,Of Since & Tech.
Vi
su
al
BA
SI
C
程
序
设
计
主要内容
利用控件输入、输出
? 文本框的 Text属性,I/O
? 标签的 Caption属性,Output
对话框
? 输入对话框函数 InputBox
? 消息对话框函数 MsgBox
Print方法
?■
万 博 科 技 职 业 学 院
Wanbo Inst,Of Since & Tech.
Vi
su
al
BA
SI
C
程
序
设
计
输入对话框
InputBox(Prompt,Title,Default,Xpos,Ypos)
? Prompt 提示字符串
? Title 对话框标题
? Default 缺省输入值
? Xpos,Ypos 对话框位置（左上角座标）
返回用户输入（ String类型）
例,a=InputBox("n=","输入 ","1")
?■
万 博 科 技 职 业 学 院
Wanbo Inst,Of Since & Tech.
Vi
su
al
BA
SI
C
程
序
设
计
消息对话框
MsgBox(Prompt,Buttons,Title)
? Prompt 提示字符串
? Buttons 按钮及图标
? Title 对话框标题
返回用户所单击的按钮对应值
按钮 图标
?■
万 博 科 技 职 业 学 院
Wanbo Inst,Of Since & Tech.
Vi
su
al
BA
SI
C
程
序
设
计
消息对话框中的按钮
常量名称 数值 按钮
vbOKOnly 0 确定
vbOKCancel 1 确定，取消
vbAbortRetryIgnore 2 终止，重试，忽略
vbYesNoCancel 3 是，否，取消
vbYesNo 4 是，否
vbRetryCancel 5 重试，取消
?■
万 博 科 技 职 业 学 院
Wanbo Inst,Of Since & Tech.
Vi
su
al
BA
SI
C
程
序
设
计
消息对话框中的图标
常量名称 数值 图标
vbCritical 16
vbQuestion 32
vbExclamation 48
vbInformation 64
?■
万 博 科 技 职 业 学 院
Wanbo Inst,Of Since & Tech.
Vi
su
al
BA
SI
C
程
序
设
计
MsgBox函数的返回值
常量名称 数值 用户点击的按钮
vbOK 1 确定
vbCancel 2 取消
vbAbort 3 终止
vbRetry 4 重试
vbIgnore 5 忽略
vbYes 6 是
vbNo 7 否
?■
万 博 科 技 职 业 学 院
Wanbo Inst,Of Since & Tech.
Vi
su
al
BA
SI
C
程
序
设
计
Print方法
格式：
[对象名,] Print [<表达式表 >] [; |,|空格 ]
? 分号 (;)表示后面内容将接着输出
? 逗号 (,)表示后面内容将跳至下个制表站输出
制表站位置,n*14+1
? 回车表示后面内容将从下一行开始输出
可以用问号 (?)代替 Print 以简化输入
例
?■
万 博 科 技 职 业 学 院
Wanbo Inst,Of Since & Tech.
Vi
su
al
BA
SI
C
程
序
设
计
Private Sub Command1_Click()
Print "1 3 5 7 9 1 3 5 7 9 1 3 5 7 9"
Print "ax","but","color"
Picture1.Print "1 3 5 7 9 1 3 5 7 9 1 3 5 7 9"
Picture1.Print "more","no","yes"
End Sub
制表站的
位置：
1,15,29,
…
(14n+1)
?■
万 博 科 技 职 业 学 院
Wanbo Inst,Of Since & Tech.
Vi
su
al
BA
SI
C
程
序
设
计
具有 Print方法的对象
窗体（ Form）
图片框（ PictureBox）
立即窗口（ Debug）
打印机（ Printer）
说明：引用所在窗体时，对象名可以省略，
也可以用 Me代表
?■
万 博 科 技 职 业 学 院
Wanbo Inst,Of Since & Tech.
Vi
su
al
BA
SI
C
程
序
设
计
在 Print方法中常用的函数
Tab(n) 跳至第 n列，输出后面内容
Spc(n) 插入 n个空格
例：
? Print Tab(10);"学号 ";Tab(20);"姓名 ";Tab(30);"性别 "
? Print "学号 ";Spc(4);"姓名 ";Spc(6);"性别 "
?■
万 博 科 技 职 业 学 院
Wanbo Inst,Of Since & Tech.
Vi
su
al
BA
SI
C
程
序
设
计
与 Print有关的属性
AutoRedraw（自动重画）属性为 False
（初值）时，用 Print方法和绘图方法输
出的内容被其他窗体遮挡后会被抹去。
为此，应将该属性设置为 True
改变 CurrentX和 CurrentY属性（当前输
出位置）可以改变下个输出的位置
例如：
CurrentX=Width/2, CurrentY=Height/2
Print 0 ‘在窗体中心位置输出 0
?■
万 博 科 技 职 业 学 院
Wanbo Inst,Of Since & Tech.
Vi
su
al
BA
SI
C
程
序
设
计
输出字体与颜色
属性 意义 类型
FontName 字体名 String
FontSize 大小 Single
FontBold 粗体 Boolean
FontItalic 斜体 Boolean
FontUnderline 下划线 Boolean
ForeColor 前景色 Long
?■
万 博 科 技 职 业 学 院
Wanbo Inst,Of Since & Tech.
Vi
su
al
BA
SI
C
程
序
设
计
与 Print有关的方法
可用 Cls方法 清除用 Print方法和绘图方法
输出的内容，格式：
[对象名,]Cls
清除后，当前座标回到对象的左上角
?■
万 博 科 技 职 业 学 院
Wanbo Inst,Of Since & Tech.
Vi
su
al
BA
SI
C
程
序
设
计
文本框的主要属性
Text 显示的文本,缺省属性
MultiLine 为 True时允许多行显示
ScrollBar 滚动条,只有在 MultiLine属性为 True时
才有意义
PassWordChar 口令字符。代替显示用户输入
的字符。只当 MultiLine属性为 False时才起作用。
Locked 禁止用户输入，使文本框只能输出
?■
万 博 科 技 职 业 学 院
Wanbo Inst,Of Since & Tech.
Vi
su
al
BA
SI
C
程
序
设
计
关于焦点（ Focus）
事件,GotFocus和 LostFocus
获得焦点和失去焦点。任何时刻只能有
一个控件获得焦点。
方法,SetFocus
属性,TabIndex Tab键序
TabStop 允许 /禁止获得焦点
没有 TabStop属性的控件当然不会获得
焦点。
?■
万 博 科 技 职 业 学 院
Wanbo Inst,Of Since & Tech.
Vi
su
al
BA
SI
C
程
序
设
计
滚动条－ Hscrollbar和 Vscrollbar
主要属性
? Max 最大值
? Min 最小值
? Value 当前值
? LargeChange 大增量
? SmallChange 小增量
事件
? Change 值改变时
? Scroll 滚动时
Min=0 滚动块 Max=100
Value=
例
40
第四章
程序的输入和输出
万博科技职业学院
?■
万 博 科 技 职 业 学 院
Wanbo Inst,Of Since & Tech.
Vi
su
al
BA
SI
C
程
序
设
计
主要内容
利用控件输入、输出
? 文本框的 Text属性,I/O
? 标签的 Caption属性,Output
对话框
? 输入对话框函数 InputBox
? 消息对话框函数 MsgBox
Print方法
?■
万 博 科 技 职 业 学 院
Wanbo Inst,Of Since & Tech.
Vi
su
al
BA
SI
C
程
序
设
计
输入对话框
InputBox(Prompt,Title,Default,Xpos,Ypos)
? Prompt 提示字符串
? Title 对话框标题
? Default 缺省输入值
? Xpos,Ypos 对话框位置（左上角座标）
返回用户输入（ String类型）
例,a=InputBox("n=","输入 ","1")
?■
万 博 科 技 职 业 学 院
Wanbo Inst,Of Since & Tech.
Vi
su
al
BA
SI
C
程
序
设
计
消息对话框
MsgBox(Prompt,Buttons,Title)
? Prompt 提示字符串
? Buttons 按钮及图标
? Title 对话框标题
返回用户所单击的按钮对应值
按钮 图标
?■
万 博 科 技 职 业 学 院
Wanbo Inst,Of Since & Tech.
Vi
su
al
BA
SI
C
程
序
设
计
消息对话框中的按钮
常量名称 数值 按钮
vbOKOnly 0 确定
vbOKCancel 1 确定，取消
vbAbortRetryIgnore 2 终止，重试，忽略
vbYesNoCancel 3 是，否，取消
vbYesNo 4 是，否
vbRetryCancel 5 重试，取消
?■
万 博 科 技 职 业 学 院
Wanbo Inst,Of Since & Tech.
Vi
su
al
BA
SI
C
程
序
设
计
消息对话框中的图标
常量名称 数值 图标
vbCritical 16
vbQuestion 32
vbExclamation 48
vbInformation 64
?■
万 博 科 技 职 业 学 院
Wanbo Inst,Of Since & Tech.
Vi
su
al
BA
SI
C
程
序
设
计
MsgBox函数的返回值
常量名称 数值 用户点击的按钮
vbOK 1 确定
vbCancel 2 取消
vbAbort 3 终止
vbRetry 4 重试
vbIgnore 5 忽略
vbYes 6 是
vbNo 7 否
?■
万 博 科 技 职 业 学 院
Wanbo Inst,Of Since & Tech.
Vi
su
al
BA
SI
C
程
序
设
计
Print方法
格式：
[对象名,] Print [<表达式表 >] [; |,|空格 ]
? 分号 (;)表示后面内容将接着输出
? 逗号 (,)表示后面内容将跳至下个制表站输出
制表站位置,n*14+1
? 回车表示后面内容将从下一行开始输出
可以用问号 (?)代替 Print 以简化输入
例
?■
万 博 科 技 职 业 学 院
Wanbo Inst,Of Since & Tech.
Vi
su
al
BA
SI
C
程
序
设
计
Private Sub Command1_Click()
Print "1 3 5 7 9 1 3 5 7 9 1 3 5 7 9"
Print "ax","but","color"
Picture1.Print "1 3 5 7 9 1 3 5 7 9 1 3 5 7 9"
Picture1.Print "more","no","yes"
End Sub
制表站的
位置：
1,15,29,
…
(14n+1)
?■
万 博 科 技 职 业 学 院
Wanbo Inst,Of Since & Tech.
Vi
su
al
BA
SI
C
程
序
设
计
具有 Print方法的对象
窗体（ Form）
图片框（ PictureBox）
立即窗口（ Debug）
打印机（ Printer）
说明：引用所在窗体时，对象名可以省略，
也可以用 Me代表
?■
万 博 科 技 职 业 学 院
Wanbo Inst,Of Since & Tech.
Vi
su
al
BA
SI
C
程
序
设
计
在 Print方法中常用的函数
Tab(n) 跳至第 n列，输出后面内容
Spc(n) 插入 n个空格
例：
? Print Tab(10);"学号 ";Tab(20);"姓名 ";Tab(30);"性别 "
? Print "学号 ";Spc(4);"姓名 ";Spc(6);"性别 "
?■
万 博 科 技 职 业 学 院
Wanbo Inst,Of Since & Tech.
Vi
su
al
BA
SI
C
程
序
设
计
与 Print有关的属性
AutoRedraw（自动重画）属性为 False
（初值）时，用 Print方法和绘图方法输
出的内容被其他窗体遮挡后会被抹去。
为此，应将该属性设置为 True
改变 CurrentX和 CurrentY属性（当前输
出位置）可以改变下个输出的位置
例如：
CurrentX=Width/2, CurrentY=Height/2
Print 0 ‘在窗体中心位置输出 0
?■
万 博 科 技 职 业 学 院
Wanbo Inst,Of Since & Tech.
Vi
su
al
BA
SI
C
程
序
设
计
输出字体与颜色
属性 意义 类型
FontName 字体名 String
FontSize 大小 Single
FontBold 粗体 Boolean
FontItalic 斜体 Boolean
FontUnderline 下划线 Boolean
ForeColor 前景色 Long
?■
万 博 科 技 职 业 学 院
Wanbo Inst,Of Since & Tech.
Vi
su
al
BA
SI
C
程
序
设
计
与 Print有关的方法
可用 Cls方法 清除用 Print方法和绘图方法
输出的内容，格式：
[对象名,]Cls
清除后，当前座标回到对象的左上角
?■
万 博 科 技 职 业 学 院
Wanbo Inst,Of Since & Tech.
Vi
su
al
BA
SI
C
程
序
设
计
文本框的主要属性
Text 显示的文本,缺省属性
MultiLine 为 True时允许多行显示
ScrollBar 滚动条,只有在 MultiLine属性为 True时
才有意义
PassWordChar 口令字符。代替显示用户输入
的字符。只当 MultiLine属性为 False时才起作用。
Locked 禁止用户输入，使文本框只能输出
?■
万 博 科 技 职 业 学 院
Wanbo Inst,Of Since & Tech.
Vi
su
al
BA
SI
C
程
序
设
计
关于焦点（ Focus）
事件,GotFocus和 LostFocus
获得焦点和失去焦点。任何时刻只能有
一个控件获得焦点。
方法,SetFocus
属性,TabIndex Tab键序
TabStop 允许 /禁止获得焦点
没有 TabStop属性的控件当然不会获得
焦点。
?■
万 博 科 技 职 业 学 院
Wanbo Inst,Of Since & Tech.
Vi
su
al
BA
SI
C
程
序
设
计
滚动条－ Hscrollbar和 Vscrollbar
主要属性
? Max 最大值
? Min 最小值
? Value 当前值
? LargeChange 大增量
? SmallChange 小增量
事件
? Change 值改变时
? Scroll 滚动时
Min=0 滚动块 Max=100
Value=
例
40
