第5章-数据的输入与输出

果Print方法不带有控件对象名时，它将把输出内容 p1,p2,...是输出项 输出到窗体上。 s是输出项之间的分隔符 可以是逗号或分号 Print方法的使用形式是：
[Object.]Print p1<s>p2<s>... 当采用逗号作分隔符时，两个输出项分别输出到两个 标准分区； 而采用分号作分隔符时，两个输出项将紧接着输出。 可以使用Tab函数和Spc函数配合定位输出。 Tab可实现绝对定位，Spc可插入空格。
(0 - 5) 用于描述对话
框中显示的按钮类型与数目； C2：第二组值 (16, 32, 48, 64) 用于 描述图标的样式； C3：第三组值 (0, 256, 512,768) 用于 确定默认按钮；
C4：第四组值 (0, 4096)则决定消息
框的样式。
vbDefaultButton1
vbDefaultButton2 vbDefaultButton3 vbDefaultButton4
MsgBox 函数的返回值
该返回值是一个整数，这个整数反应了用户点击MsgBox 上的哪一个按钮。其具体返回值见下表。
常数 值 按钮
vbOK vbCancel vbAbort
1 2 3
确定 取消 放弃
vbRetry
vbIg 7
重试
忽略 是 否
5.4 Print方法 Print方法用于将文本输出到窗体上或图片框上。如
• 注意1：
– 赋值语句不同于数学里的等式，赋值语句代表了一 个操作，即用赋值号右边的表达式的值去改写赋值 号左边变量的值，改写成功后，变量原有的值即被 覆盖 例如： x=x+1 – 赋值语句的执行包含以下三个步骤，若其中一个步 骤执行失败，则整个赋值语句执行失败： – Step1：计算表达式的值 – Step2：将表达式的类型转换为变量的类型 – Step3：修改变量的值 例如： x& = 200*200 „无法完成表达式的计算 x% = “” „空串不能转换为Integer
Label1.caption=“工作单位:”
使用赋值语句还可获取对象返回的当前属性值： Var=Object.Property 如： x=text1.text
2. 不同数据类型间数据的赋值（重点） （1）当表达式为数值型而与变量精度不同时，强制转换成左边变
量的精度； （2）当表达式是数字字符串，左边变量是数值类型，自动转换成 数值类型再赋值，但当表达式中有非数字字符或空串，则出错。 （3）任何非字符类型赋值给字符类型，自动转换为字符类型； （4）当逻辑型赋值给数值型时，True转换为 -1，False转换为0； 当数值型赋值给逻辑型时，非0转换为True，0转换为False；
格式化函数Format
Format函数用于制定字符串或数字的输出格式 语法格式：Format(数值表达式,格式字符串) 格式字符串的符号主要有以下一些： (0) 数字占位符。显示一位数字或是零。
–
– – –
占位符0的个数比要显示的位数多，在左边以0补齐。
占位符0的个数比要显示的位数少，则“不够补到够” 占位符0的个数比要显示的位数多，多余的#作废。 占位符0的个数比要显示的位数少，则“不够补到够”
5.3 MsgBox函数 MsgBox函数用来向用户发布提示消息，并要求用户作出必要
的响应。它的使用形式是：
MsgBox(prompt[, buttons] [, title] [, helpfile, context])
Prompt 必需的。字符串表达式，作为显示在对话框中的消息。 Buttons 可选的。C1+C2+C3+C4，由4个数值常量相加组成的式子。如 果省略，则 buttons 的缺省值为 0。 C1：指定显示按钮的数目及形式，
例
Private Sub Form_Click() Print "12345678901234567890" Print "a"; "b"; "c"; "d" Print "a", "b"; Print "c", "d" Print Tab(3); "a"; Tab(7); "b" Print Tab(3); "a", Tab(18); "b" Print Tab(3); "a", Tab(7); "b" Print "a"; Spc(3); "b" Print " a "; Spc(3), " b " End Sub
5.2 InputBox函数
InputBox函数用来接受用户通过键盘输入的数据。它的使用形式是： V=InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])
V 可以是变体变量或字符串型变量、数值型变量。 Prompt 必需的。作为对话框消息出现的字符串表达式。其最大 长度约为1024个字符 Title 可选的。显示对话框标题栏中的字符串表达式。 Default 可选的。显示文本框中的字符串表达式，在没有其它输入时 为缺省值。如果省略 default，则文本框为空。 X、y 可选的。成对出现，指定对话框在屏幕上显示时的位置。 Helpfiel、Context 帮助文件名及帮助主题号。
• 注意2：
赋值号与关系运算符中的“=”形式相同，但意义 完全不同，区分的要领为： – 赋值号连接的是一个完整的语句 – 关系运算符连接的是一个表达式 – 例如：a=b a=b=c 例题：以下程序段的输出结果是 0 。 Dim a As Integer, b As Integer, c As Single c = 3.5 b=c a=b=c Print a
C2：使用的图标样式，
C3：缺省按钮是什么 C4：对话框模式
Title 可选的。在对话框标题栏中显示的字符串表达式。如果缺省，则
显示当前工程的名称属性 。
Buttons 参数的取值
常数 vbOKOnly vbOKCancel 0 1 值 只显示确定按钮。 显示确定和取消按钮。 描述
vbAbortRetryIgnor e
0
256 512 768
第一个按钮为默认按钮。
第二个按钮为默认按钮。 第三个按钮为默认按钮。 第四个按钮为默认按钮。
vbApplicationModa l
vbSystemModal
0
4096
应用程序模式：用户必须响应消息框才能继续在当 前应用程序中工作。
系统模式：在用户响应消息框前，所有应用程序都 被挂起。
第五章 数据的输入与输出
5.1 赋值语句
5.2 Inputbox 函数
5.3 msgbox 函数
5.4 Print 方法
2014
5.1 赋值语句 1.赋值语句
Var可以是变量名 或对象的属性名。 赋值语句是程序设计中最基本的语句，赋值语句的
一般形式是： Var=<表达式>
如： x=“NanJing”
Cls 方法
它的作用是清除绘图语句和Print语句产生的文字和图形。
语法格式：object. Cls
object指清除的对象，可以是窗体或图片框。缺省则为窗 体。
注意：Cls方法只能清除用Print语句打印到对象 上面的文字，不能清除窗体中的标签控件
• 注意：
– 若Print语句末尾有分隔符，则光标不换行，下一条 Print语句从本行结束的地方开始 – 若Print语句的末尾没有分隔符，则光标另起一行， 下一次Print语句从新的行开始 – 不含数据项的Print语句会打印一个空行 例如(1) Print “123” ; 123456 Print “456” 123 (2) Print “123” 456 Print “456” (3) Print “123” 123 Print Print “456” 456
b = InputBox("请给变量b输入一个值：") c = Val(a) + Val(b) Print c End Sub
• 注意
– InputBox函数的返回值是字符串型。 例如 Dim v As Integer V=InputBox(“请输入一个正整数”) 如果用户在对话框中什么也没输入，或者按 “取消”键返回，实际上将返回空串，程序 将出现“类型不匹配”的错误。
vbYesNoCancel vbYesNo vbRetryCancel vbCritical vbQuestion vbExclamation vbInformation
2
3 4 5 16 32 48 64
显示放弃、重试和忽略按钮。 C1：第一组值
显示是、否和取消按钮。 显示是和否按钮。 显示重试和取消按钮。 显示临界信息图标。 显示警告查询图标。 显示警告消息图标。 显示信息消息图标。
(-)显示负号。通常放在格式字符串的开头。
例
MyStr = Format(5459.4, ”00000.00“) „ 返回 ”05459.40" MyStr = Format(5459.4, “#####.##”) „ 返回 “5459.4” MyStr = Format(5459.56, “#####.#”) „返回 “5459.6” MyStr = Format(5459.4, "##,##0.00") ' 返回 "5,459.40" MyStr = Format(334.9, "###0.00") ' 返回 "334.90" MyStr = Format(5, "0.00%") ' 返回 "500.00%"