VB_第四章_数据的输入与输出
合集下载
VB第4章
数据输入输出
例1：MsgBox "请确认交易金额",33,"交易 确认"
例2：MsgBox "请确认交易金额",52,"交易 确认"
MsgBox按钮设置
分组
内部常数 VBOkOnly VBOkCancel VBAboutRetryIgnore VBYesNoCancel VBYesNo VBRetryCancel VBCritical
数据输入输出
1、标签和文本框 说明：标签利用它的Caption属性；文本框利 用它的Text属性。 例如： a%=Val（Text1） ’完成数据输入 c！=5/9*（a-32） Text2=c ’完成数据输出 Label1.Caption=3.14*r*r
数据输入输出
2、输入对话框InputBox函数 功能:打开一个对话框，等待用户输入，返回 字符串类型的输入值。 例: InputBox("请输入数值")
If 条件语句
2、双分支结构
形式： （1）If <表达式> Then <语句块1> Else <语句块2> End if
（2）If <表达式> Then
T 表达式 F
语句块 1
语句块 2
<语句1>
Else
<语句 2>
例：下列哪一段代码是正确的？
1) if a>1 then k=0 else k=1 2) if a>1 then k=0 end if 错误 3) if a>1 then k=0 else k=1
Visual Basic 程序设计教程
第四章 VB控制结构
vb备考课件 精品难点第三章 第四章_OK
执行过程：先求表达式的值，然后将值赋值给左边的变量。 如： x = x + 1
注意：虽然赋值号与关系运算符等于号都用“=”表示，
VB系统会根据所处的位置自动判断是何种意义的符号
2021/8/22
3
赋值符号“=” 右边可以是变量、常量、函数调用等特殊的表达式。
左边一定只能是变量名或对象的属性引用。 下面的赋值语句都是错的： 5=X
1)
循环执行次数 Int(1332 1) 4
输出为:2 5 8 11 I=14
程序：
Private Sub Form_Click()
For i = 1 To 5
Print Tab(i); String(6 - I, "▼");
Print Spc(6); String(I, "▲")
Next i
2021/8/22
n=0 n=1 n=2 n=3 n=4
2021/8/22
16
函数计算
Select Case n
Case 0
p=1
Case 1
p=x
Case 2
p = (3 * x * x - 1) / 2
Case 3
p = (5 * x * x - 3) * x / 2
Case 5
p = ((35 * x * x - 30) * x * x + 3) / 8
End Select
2021/8/22
<表达式列表>： 与<变量或表达式>同
类型的下面四种形式之 一：
• 表达式 如： “A”
• 一组枚举表达式(用
逗号分隔) 如：2,4,6
• 表达式1 To 表达式2
VB-第4章-VB语言基础
注意:为了与字符串型常量相区分，所以用＃将日期常量括起来
VB语言基础
13
业，精于勤，荒于嬉
业，精于勤，荒于嬉
（5）符号常量
常量在程序中也可以用符号表示 目的是为了…… 代表常量的符号称为“常量名” 常量名的命名规则是： 1、不超过255个字符 2、只能由字母、数字和下划线组成并且首字符必须是字母的字符串 3、常量中字母大小通杀（不区分大小写）。 比如： Const PI As single=3.14159 ‘声明了常量PI，代表3.14159，单精度型 Const MAX As Integer=&O144 ‘声明了常量MAX，代表八进制数144，整型 Const COUNT#=45.67 '声明了常量COUNT，代表45.67，双精度型
业，精于勤，荒于嬉
4、可以用（Const ）语句来定义符号常量。 5、可以在常量的后面加上类型说明符以显示常量 的类型，可以用（ $ ）表示字符串型常量。 6、下列是合法的VB变量名的是（A） A：a2 B：2a C：int sum D：2*a 7、下列各项不是VB基本数据类型的是（A） A：Char B:String C:Integer D:Double
Private Sub Command1_Click() Dim liming As string End Sub Private Sub Command2_Click() Dim liming As string End Sub
VB语言基础
19
业，精于勤，荒于嬉
窗体/模块级变量
业，精于勤，荒于嬉
VB语言基础
10
业，精于勤，荒于嬉
业，精于勤，荒于嬉
3）理解数值的范围
VB程序设计 习题及答案第4章 选择结构程序设计
第4章选择结构程序设计4．1 写出数学式|x|<2.5×10-2对应的Visual Basic表达式。
【答案】x<2.5e-2 and x>-2.5e-24．2 逻辑运算符And、Or和Not的优先级最高的是哪一个。
【答案】Not4．3 已知 W=10 X=9 Y=8 Z=7 ，求下列表达式的结果。
(1) W>X And Y<=Z OR X>Y(2) X>Z Or W=Y AND Y<X(3) Not (W>Y And X=Z)(4) Not (Y<>X Or W*3>Z)【答案】(1) True(2) True(3) True(4) False4．4 写出下列十进制整数逻辑运算的结果：(1) X = 23 And 14(2) X = 23 Or 14(3) X = -1 And 19(4) X = -1 Or 10(5) X = Not -1【答案】(1) 6(2) 31(3) 19(4) -1(5) 04．5 已知变量X和Y的值分别为5、6，编写程序，交换变量X和Y的值。
【参考答案】程序代码设计Private Sub Form_Click()x = 5: y = 6t = x: x = y: y = tForm1.Print "x="; x, "y="; yEnd SubPrivate Sub Form_Load()Form1.AutoRedraw = TrueForm1.Print "x = 5", "y = 6"Form1.Print "单击窗体交换x,y的值"图4-1 程序运行结果End Sub程序运行结果如图4-1所示：4．6 从键盘输入一个学生的三科成绩，计算总分，并找出最高分。
【参考答案】（1）用户界面设计（2）控件属性设置（略）（3）程序代码设计Private Sub Command1_Click()g1 = Val(Text1.Text)g2 = Val(Text2.Text)g3 = Val(Text3.Text)Var = (g1 + g2 + g3) / 3g = g1If g < g2 Then g = g2If g < g3 Then g = g3Text4.Text = VarText5.Text = gEnd Sub图4-2 程序运行结果程序运行结果如图4-2所示。
第四章vb计算机
注意：
①
当表达式值的精度与变量的精度不一致时，强制转换成左边 的精度，如m% = 10/3 ，则m中的结果为3 当表达式是数字字符串，左边变量是数值类型，自动转换为 数值类型再赋值，但表达式有非数字字符时，则出错。
②
例如： n%=“123”
2013年7月17日星期三
n%=“12a3”
Visual Basic程序设计
符号 0 作 用 用0填充不足的位置 表达式 1234.567 格式字符串 "00000.0000" 显示结果 01234.5670
#
， %
位置不足时不填充0
千分位 数值乘以100，加百分号
1234.567
1234.567 1234.567
"#####.####"
"##,##0.000" "####.##%"
2013年7月17日星期三
Visual Basic程序设计
3. If…Then…ElseIf语句(多分支结构) 形式： If <表达式1> Then <语句块1> ElseIf <表达式2>Then <语句块2> … [Else 语句块 n+1 ] End If 注意: 1) 此处Else和If之间不能有空格，否则程序出错。 2)“表达式1-n”都是逻辑表达式。 3)不管有几个分支,程序执行了满足条件的一个分支后,其余分支不再执行。 4) 一个多分支结构中只有一个End If语句。 5)当多分支中有多个表达式同时满足时，只执行第一个与之匹配的语句块。 注意多分支中表达式的书写顺序。 6) 块结构的条件语句可以嵌套 。
4) Xpos，Ypos：是两个整数值，确定对话框在屏幕上的位置；如 果省略，则对话框显示在屏幕中心线向下约1/3处。
①
当表达式值的精度与变量的精度不一致时，强制转换成左边 的精度，如m% = 10/3 ，则m中的结果为3 当表达式是数字字符串，左边变量是数值类型，自动转换为 数值类型再赋值，但表达式有非数字字符时，则出错。
②
例如： n%=“123”
2013年7月17日星期三
n%=“12a3”
Visual Basic程序设计
符号 0 作 用 用0填充不足的位置 表达式 1234.567 格式字符串 "00000.0000" 显示结果 01234.5670
#
， %
位置不足时不填充0
千分位 数值乘以100，加百分号
1234.567
1234.567 1234.567
"#####.####"
"##,##0.000" "####.##%"
2013年7月17日星期三
Visual Basic程序设计
3. If…Then…ElseIf语句(多分支结构) 形式： If <表达式1> Then <语句块1> ElseIf <表达式2>Then <语句块2> … [Else 语句块 n+1 ] End If 注意: 1) 此处Else和If之间不能有空格，否则程序出错。 2)“表达式1-n”都是逻辑表达式。 3)不管有几个分支,程序执行了满足条件的一个分支后,其余分支不再执行。 4) 一个多分支结构中只有一个End If语句。 5)当多分支中有多个表达式同时满足时，只执行第一个与之匹配的语句块。 注意多分支中表达式的书写顺序。 6) 块结构的条件语句可以嵌套 。
4) Xpos，Ypos：是两个整数值，确定对话框在屏幕上的位置；如 果省略，则对话框显示在屏幕中心线向下约1/3处。
VB课件(新)第四章数组
…, {表达式n1,表达式n2, … ,表达式nm} }
语法说明： 1、不能在显式赋初值时，定义数组每个维度的大小 2、数据类型1 与 数据类型2 必须兼容 3、表达式： 可以是常量、变量 4、数组的大小由初值的个数决定
数组的初始化
2、显式初始化: 即声明数组的同时，为数组元素赋初值
一维数组声明并初始化语法格式： Dim 数组名 ( ) As 数据类型 = New 数据类型 (数组大小 ) { [表达式1， 表达式2，…, 表达式n ] } 二维数组声明并初始化语法格式： Dim 数组名 ( , ) As 数据类型 = New 数据类型 ( , ) {
定长数组的声明举例
Dim A(9) AS Integer Dim B(0 to 9) as single Dim c% (0 to 3) Dim d(100), f% (0, 30) Dim g (0 to 4, 0 to 5), h(11) as double
数组的初始化
1、隐式初始化：
数值型：0 字符型：空串（"”） 日期型：01/01/0001 00:00:00 对象型：Nothing
mark(0, 4) mark(1, 4) mark(2, 4) mark(3, 4) mark(4, 4)
mark(0, 5) mark(1, 5) mark(2, 5) mark(3, 5) mark(4, 5)
声明了一个整型的二维数组 mark；共占据5×6个整型变量 的内存空间 。二维数组内存分配以行为单位连续分配
Char1 = UCase(Chr(Int(Rnd() * 128))) If Char1 = "A" Then a += 1 If Char1 = "B" Then b += 1 If Char1 = "C" Then b += 1 …… If Char1 = "Y" Then y += 1 If Char1 = "Z" Then z += 1 Next MsgBox("各个字母（不区分大小写）的出现频率:A 是" & a & "，B是" & b & "，C是" & c & "，”……”)
语法说明： 1、不能在显式赋初值时，定义数组每个维度的大小 2、数据类型1 与 数据类型2 必须兼容 3、表达式： 可以是常量、变量 4、数组的大小由初值的个数决定
数组的初始化
2、显式初始化: 即声明数组的同时，为数组元素赋初值
一维数组声明并初始化语法格式： Dim 数组名 ( ) As 数据类型 = New 数据类型 (数组大小 ) { [表达式1， 表达式2，…, 表达式n ] } 二维数组声明并初始化语法格式： Dim 数组名 ( , ) As 数据类型 = New 数据类型 ( , ) {
定长数组的声明举例
Dim A(9) AS Integer Dim B(0 to 9) as single Dim c% (0 to 3) Dim d(100), f% (0, 30) Dim g (0 to 4, 0 to 5), h(11) as double
数组的初始化
1、隐式初始化：
数值型：0 字符型：空串（"”） 日期型：01/01/0001 00:00:00 对象型：Nothing
mark(0, 4) mark(1, 4) mark(2, 4) mark(3, 4) mark(4, 4)
mark(0, 5) mark(1, 5) mark(2, 5) mark(3, 5) mark(4, 5)
声明了一个整型的二维数组 mark；共占据5×6个整型变量 的内存空间 。二维数组内存分配以行为单位连续分配
Char1 = UCase(Chr(Int(Rnd() * 128))) If Char1 = "A" Then a += 1 If Char1 = "B" Then b += 1 If Char1 = "C" Then b += 1 …… If Char1 = "Y" Then y += 1 If Char1 = "Z" Then z += 1 Next MsgBox("各个字母（不区分大小写）的出现频率:A 是" & a & "，B是" & b & "，C是" & c & "，”……”)
VB分值分布
2010年全国计算机等级考试二级VB考试,辅导用书《全国计算机等级考试二级教程:Visual Basic语言程序设计(2010年版) 》(高等教育出版社),本书共十五章:
第1章 Visual Basic程序开发环境（2分左右，以识记为主）
第2章对象及其操作(一般在机试题里考核)
第3章简单程序设计(笔试2分左右)
第4章 VB程序设计基础（笔试6分左右，一般结合其他章节知识点一起考核）
第5章数据的输入与输出(本章内容通常与其他章节知识点结合起来考，机试题中出现在简单应用题和综合应用题中。
纯本章知识点在笔试中仅占2~4分左右)
第6章常用标准控件(考试重点，笔试8~12分左右、机试的三种题型都考到标准控件)
第7章VB控制结构(考试重点，笔试20分左右，一般和其他章节知识点结合考核、机试题中出现在简单应用题和综合应用题)
第8章数组(考试重点：笔试6~10分左右、机试题中一般出现在综合应用题)
第9章过程(考试重点：笔试6~10分左右、机试题中一般出现在综合应用题)
第10章键盘与鼠标事件过程（笔试4分左右、机试一般出现在简单应用题）
第11章菜单程序设计（笔试2~4分左右、机试出现机率不高）
第12章对话框程序设计（笔试2分左右、机试出现机率不高）
第13章多重窗体程序设计与环境应用( 机试题中偶尔出现在综合应用题,一般考标准模块内容) 第14章数据文件(考试重点：笔试8~10分左右、机试题中出现在综合应用题)
第15章上机指导
二、考试题型题量。
第四章输入输出特性曲线分析
图c
详细解析输入特性曲线和输出特性曲线的机理：
图d
图d为输出特性曲线 iC=f(vCE) iB= 常数 放大区，不同的iB对应不同的iC， iC=βiB，以某个iB 为例。 ① VCE很小（为0）时，JC无反偏，也就没有iC； ② VCE开始逐渐增加，此时基区堆积已经有固定数 量的电子，所以随着Jc开始反偏， iC也开始增加； ③ VCE继续增加，同样因为iB是固定的，堆积的电子数 也是固定的，因此，当VCE增加到一定数值后，原 来堆积的电子（注意是单位时间内堆积的）就已全 部被拉到C区了，此时即使再增加电压VCE也不会使 iC增加了； ④ 而对于不同的iB（其实也就是不同的VBE），当VCE 很小（为0）时堆积在B区的电子数是不一样的， iB 越大堆得越多，也就需要更大的VCE才能将堆积的 电子全部拉走，即这时VCE增加 iC也继续增加，然 后才会在某一电压下转折； ⑤ 放大区，曲线的间距相等是因为满足： iC=βiB
详细解析输入特性曲线和输出特性曲线的机理：
图d为输出特性曲线 ① 截止区讨论： 若iB很小（其实也就是对应的VBE很小），即基区没 有从发射区来的多余电子，则VCE再大也只是本身 的少子漂移， 形成的iC电流很小很小（几乎为0）， 称为截止区； ② 饱和区讨论：（VCE很小的那个区域） 由于有一定的VBE，所以大量电子积压在基区，而且 VBE不同积压的数量也不同，但即使将VBE（ iB）增 加很多，但由于此时没有VCE，即JC没有收集电子到 集电区的能力，所以iC几乎不增加。这种情况当VCE 很小的时候也是这样。因此叫饱和区（再怎么增加iB iC也几乎不增加，就像一个小水杯倒满了水，再倒里 面的水也不会再增加的现象一样，即“饱和”）； 所以： 电子能否通过Jc取决于VCE， 而当VCE足够大后， iC的大小就要取决于 iB了
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
CurrentY = TextHeight("Sample") * (n-1)
计算机应用基础
27
Visual Basic 6.0 程序设计
TextHeight和TextWidth方法
如果语法格式中的“字符串”含有嵌 入的回车换行符，TextWidth将返回 最长行的宽度。使用TextWidth可以 确定文本显示需要的水平空间宽度， 从而可用于确定字符串的宽度是否 比窗体、图片框或Printer对象的宽 度更大。
计算机应用基础
4
Visual Basic 6.0 程序设计
4.1 输出方法
为了在窗体或图片框等对象上 显示文本，应使用Print方法， 将该窗体或图片框等对象的名 称加在它的前面即可。
计算机应用基础
5
Visual Basic 6.0 程序设计
输出方法
4.1.1 Print方法 4.1.2 与Print方法有关的函数 4.1.3 输出相关方法和属性
计算机应用基础
28
Visual Basic 6.0 程序设计
TextHeight和TextWidth方法
属性ScaleWidth和ScaleHeight 分别用来表示对象的宽度和高 度值，将它们与方法 TextWidth和TextHeight结合 使用，可以使字符串居中显示。
计算机应用基础
29
Visual Basic 6.0 程序设计
Visual Basic 6.0 程序设计
VB 基础篇
第四章 数据的输入与输出
计算机应用基础
1
Visual Basic 6.0 程序设计
第四章 数据的输入与输出
所谓的输入，就是指程序从外部环境 获得信息，它包括通过键盘、鼠标 等外设进行输入；
计算机应用基础
2
Visual Basic 6.0 程序设计
True
背景将透过前 景的图形及文 本显示出来
False
背景将被前 景的图形或 文本覆盖
计算机应用基础
42
Visual Basic 6.0 程序设计
计算机应用基础
43
Visual Basic 6.0 程序设计
4.3 与用户交互函数
VB提供了与用户交互的函数:一种是显 示提示信息的对话框,让用户进行选 择;另一种是输入信息的对话框，用 户可以在其中输入信息。
计算机应用基础
30
Visual Basic 6.0 程序设计
4.2 字 形
Visual Basic可以输出各种英文字 体和汉字字体，并可通过设置字 形的属性来改变字体的风格，如 大小、粗细、显示方向、加删除 线、下划线、重叠等。
计算机应用基础
31
Visual Basic 6.0 程序设计
字形
4.2.1 字体类型和大小 4.2.2 其他特征
计算机应用基础
34
Visual Basic 6.0 程序设计
2. 字体大小
[对象]. FontSize [= 磅值]
该属性以磅为单位来指定字体的大 小（在打印时每英寸72磅）。若 省略“= 磅值”，则返回当前字 体大小。在默认情况下，系统使 用最小字号，为9磅。
计算机应用基础
35
Visual Basic 6.0 程序设计
ScaleMode属性
因为文本的高度是用磅来度量的，有 时需要把窗体、图片框和 Printer对 象的ScaleMode属性从缇改为磅。
计算机应用基础
22
Visual Basic 6.0 程序设计
3. TextHeight和TextWidth方法
语法格式：
[对象.]TextHeight(字符串) [对象.]TextWidth(字符串)
输入对话框例
FileName$=InputBox(“请输入文件名”， “对话输入框”，"File1")
计算机应用基础
47
Visual Basic 6.0 程序设计
vb例2
计算机应用基础
48
Visual Basic 6.0 程序设计
4.4 打 印 机 输 出
前面介绍的VB输出操作是在窗体 上输出信息，也就是以窗体作 为输出对象。
计算机应用基础
9
Visual Basic 6.0 程序设计
Print方法
逗号“,”:将光标定位在下一个输 出分区（以14个字符宽度为一个 输出分区单位）的开始位置处。
末尾使用逗号分隔符，则下一个 Print输出的内容将在当前Print所 输出信息的下一个输出分区显示
计算机应用基础
10
Visual Basic 6.0 程序设计
Print方法
末尾使用分号分隔符，则下一个 Print输出的内容将从当前Print 输出信息的最后一个字符后开 始显示。 行末尾没有逗号和分号，则执 行完该Print方法要自动换行。
计算机应用基础
11
Visual Basic 6.0 程序设计
Print方法
注：Print方法在Form_Load事 件过程中不起作用。
计算机应用基础
44
Visual Basic 6.0 程序设计
4.3.1 MsgBox函数或语句
VB提供的MsgBox函数，在执行时， 屏幕上会出现一个消息框其格式如下:
变量名= MsgBox(“提示信息”<=1024,
“按钮的类型值+显示图标的种类值+
哪一个按钮是缺省的“活动按钮”
值,
“标题信息”, )
计算机应用基础
23
Visual Basic 6.0 程序设计
TextHeight和TextWidth方法
在使用Print方法之前，可使用 TextHeight和TextWidth方法 确定CurrentX和CurrentY属性 所指定的位置。
计算机应用基础
24
Visual Basic 6.0 程序设计
如果“字符串”参数包含嵌入的回 车换行符 （Chr$(13)+Chr$(10)），则文 本对应于多行，TextHeight属性 将返回字符串中所有行的文本的 高度
计算机应用基础
26
Visual Basic 6.0 程序设计
TextHeight和TextWidth方法
TextHeight 的使用方法是，把 CurrentY属性设置到特定的行。 例如，下述语句将绘图坐标设 置到第n行的开始：
计算机应用基础
12
Visual Basic 6.0 程序设计
4.1.2 与Print方法有关的函数
为了使信息按指定的格式输出， VB 提 供 了 几 个 与 Print 配 合 使 用的函数: 1. Spc、Tab、Space函数 2. 格式输出函数Format
计算机应用基础
13
Visual Basic 6.0 程序设计
该属性的默认值为False。
计算机应用基础
38
Visual Basic 6.0 程序设计
斜体字
FontItalic
True： 斜体字 False：正常字
该属性的默认值为False
计算机应用基础
39
Visual Basic 6.0 程序设计
加删除线
FontStrikethru
True: 加与文本长 度相同删除线
19
Visual Basic 6.0 程序设计
4.1.3 输出相关方法和属性
1. Cls方法 语法格式：[对象.]Cls 1) 清除用Print和图形方法创建出的
所有文本和图形
2) 把绘图坐标恢复到原点（0, 0） 3) 缺省对象则指当前窗体
计算机应用基础
20
Visual Basic 6.0 程序设计
2. 格式输出函数Format
格式输出函数Format可以使数值、 日期或字符型数据按指定的格式 输出，其主要功能有三种：
计算机应用基础
16
Visual Basic 6.0 程序设计
格式输出函数Format
●将数值类型量按指定格式转换为字 符类型量。 ●将时间序数值转换为指定格式的日 期或时间。 ●将字符串按指定的格式进行显示。
False: 正常字
该属性的默认值为False。
计算机应用基础
40
Visual Basic 6.0 程序设计
加下划线
FontUnderline
True: 加下划线 False: 正常字
该属性的默认值为False。
计算机应用基础
41
Visual Basic 6.0 程序设计
2. 透明显示
FontTransparent
4.1.1 Print方法
[对象.]Print [表达式列表][; | , ] “对象”:窗体（Form）
图形框（PictureBox） 打印机（Printer） 省略对象则在窗体上输出
计算机应用基础
8
Visual Basic 6.0 程序设计
Print方法
“表达式列表”:用逗号或分号分隔 的多个表达式，先计算表达式的 值然后输出 分号“;”:将光标定位在上一个输 出字符后，
计算机应用基础
36
Visual Basic 6.0 程序设计
4.2.2 其他特征
1. 粗体字、斜体字、加删除线、加 下划线
2. 透明显示
计算机应用基础
37
Visual Basic 6.0 程序设计
1. 粗体字、斜体字、加删 除线、加下划线
粗体字属性 FontBold
True： 粗体字 False： 正常字
TextHeight和TextWidth方法
TextHeight方法返回一个文本字 符串的高度值
TextWidth 方 法 则 返 回 一 个 文 本 字符串的宽度值，它们的单位 均为twip。
计算机应用基础
27
Visual Basic 6.0 程序设计
TextHeight和TextWidth方法
如果语法格式中的“字符串”含有嵌 入的回车换行符，TextWidth将返回 最长行的宽度。使用TextWidth可以 确定文本显示需要的水平空间宽度， 从而可用于确定字符串的宽度是否 比窗体、图片框或Printer对象的宽 度更大。
计算机应用基础
4
Visual Basic 6.0 程序设计
4.1 输出方法
为了在窗体或图片框等对象上 显示文本，应使用Print方法， 将该窗体或图片框等对象的名 称加在它的前面即可。
计算机应用基础
5
Visual Basic 6.0 程序设计
输出方法
4.1.1 Print方法 4.1.2 与Print方法有关的函数 4.1.3 输出相关方法和属性
计算机应用基础
28
Visual Basic 6.0 程序设计
TextHeight和TextWidth方法
属性ScaleWidth和ScaleHeight 分别用来表示对象的宽度和高 度值，将它们与方法 TextWidth和TextHeight结合 使用，可以使字符串居中显示。
计算机应用基础
29
Visual Basic 6.0 程序设计
Visual Basic 6.0 程序设计
VB 基础篇
第四章 数据的输入与输出
计算机应用基础
1
Visual Basic 6.0 程序设计
第四章 数据的输入与输出
所谓的输入，就是指程序从外部环境 获得信息，它包括通过键盘、鼠标 等外设进行输入；
计算机应用基础
2
Visual Basic 6.0 程序设计
True
背景将透过前 景的图形及文 本显示出来
False
背景将被前 景的图形或 文本覆盖
计算机应用基础
42
Visual Basic 6.0 程序设计
计算机应用基础
43
Visual Basic 6.0 程序设计
4.3 与用户交互函数
VB提供了与用户交互的函数:一种是显 示提示信息的对话框,让用户进行选 择;另一种是输入信息的对话框，用 户可以在其中输入信息。
计算机应用基础
30
Visual Basic 6.0 程序设计
4.2 字 形
Visual Basic可以输出各种英文字 体和汉字字体，并可通过设置字 形的属性来改变字体的风格，如 大小、粗细、显示方向、加删除 线、下划线、重叠等。
计算机应用基础
31
Visual Basic 6.0 程序设计
字形
4.2.1 字体类型和大小 4.2.2 其他特征
计算机应用基础
34
Visual Basic 6.0 程序设计
2. 字体大小
[对象]. FontSize [= 磅值]
该属性以磅为单位来指定字体的大 小（在打印时每英寸72磅）。若 省略“= 磅值”，则返回当前字 体大小。在默认情况下，系统使 用最小字号，为9磅。
计算机应用基础
35
Visual Basic 6.0 程序设计
ScaleMode属性
因为文本的高度是用磅来度量的，有 时需要把窗体、图片框和 Printer对 象的ScaleMode属性从缇改为磅。
计算机应用基础
22
Visual Basic 6.0 程序设计
3. TextHeight和TextWidth方法
语法格式：
[对象.]TextHeight(字符串) [对象.]TextWidth(字符串)
输入对话框例
FileName$=InputBox(“请输入文件名”， “对话输入框”，"File1")
计算机应用基础
47
Visual Basic 6.0 程序设计
vb例2
计算机应用基础
48
Visual Basic 6.0 程序设计
4.4 打 印 机 输 出
前面介绍的VB输出操作是在窗体 上输出信息，也就是以窗体作 为输出对象。
计算机应用基础
9
Visual Basic 6.0 程序设计
Print方法
逗号“,”:将光标定位在下一个输 出分区（以14个字符宽度为一个 输出分区单位）的开始位置处。
末尾使用逗号分隔符，则下一个 Print输出的内容将在当前Print所 输出信息的下一个输出分区显示
计算机应用基础
10
Visual Basic 6.0 程序设计
Print方法
末尾使用分号分隔符，则下一个 Print输出的内容将从当前Print 输出信息的最后一个字符后开 始显示。 行末尾没有逗号和分号，则执 行完该Print方法要自动换行。
计算机应用基础
11
Visual Basic 6.0 程序设计
Print方法
注：Print方法在Form_Load事 件过程中不起作用。
计算机应用基础
44
Visual Basic 6.0 程序设计
4.3.1 MsgBox函数或语句
VB提供的MsgBox函数，在执行时， 屏幕上会出现一个消息框其格式如下:
变量名= MsgBox(“提示信息”<=1024,
“按钮的类型值+显示图标的种类值+
哪一个按钮是缺省的“活动按钮”
值,
“标题信息”, )
计算机应用基础
23
Visual Basic 6.0 程序设计
TextHeight和TextWidth方法
在使用Print方法之前，可使用 TextHeight和TextWidth方法 确定CurrentX和CurrentY属性 所指定的位置。
计算机应用基础
24
Visual Basic 6.0 程序设计
如果“字符串”参数包含嵌入的回 车换行符 （Chr$(13)+Chr$(10)），则文 本对应于多行，TextHeight属性 将返回字符串中所有行的文本的 高度
计算机应用基础
26
Visual Basic 6.0 程序设计
TextHeight和TextWidth方法
TextHeight 的使用方法是，把 CurrentY属性设置到特定的行。 例如，下述语句将绘图坐标设 置到第n行的开始：
计算机应用基础
12
Visual Basic 6.0 程序设计
4.1.2 与Print方法有关的函数
为了使信息按指定的格式输出， VB 提 供 了 几 个 与 Print 配 合 使 用的函数: 1. Spc、Tab、Space函数 2. 格式输出函数Format
计算机应用基础
13
Visual Basic 6.0 程序设计
该属性的默认值为False。
计算机应用基础
38
Visual Basic 6.0 程序设计
斜体字
FontItalic
True： 斜体字 False：正常字
该属性的默认值为False
计算机应用基础
39
Visual Basic 6.0 程序设计
加删除线
FontStrikethru
True: 加与文本长 度相同删除线
19
Visual Basic 6.0 程序设计
4.1.3 输出相关方法和属性
1. Cls方法 语法格式：[对象.]Cls 1) 清除用Print和图形方法创建出的
所有文本和图形
2) 把绘图坐标恢复到原点（0, 0） 3) 缺省对象则指当前窗体
计算机应用基础
20
Visual Basic 6.0 程序设计
2. 格式输出函数Format
格式输出函数Format可以使数值、 日期或字符型数据按指定的格式 输出，其主要功能有三种：
计算机应用基础
16
Visual Basic 6.0 程序设计
格式输出函数Format
●将数值类型量按指定格式转换为字 符类型量。 ●将时间序数值转换为指定格式的日 期或时间。 ●将字符串按指定的格式进行显示。
False: 正常字
该属性的默认值为False。
计算机应用基础
40
Visual Basic 6.0 程序设计
加下划线
FontUnderline
True: 加下划线 False: 正常字
该属性的默认值为False。
计算机应用基础
41
Visual Basic 6.0 程序设计
2. 透明显示
FontTransparent
4.1.1 Print方法
[对象.]Print [表达式列表][; | , ] “对象”:窗体（Form）
图形框（PictureBox） 打印机（Printer） 省略对象则在窗体上输出
计算机应用基础
8
Visual Basic 6.0 程序设计
Print方法
“表达式列表”:用逗号或分号分隔 的多个表达式，先计算表达式的 值然后输出 分号“;”:将光标定位在上一个输 出字符后，
计算机应用基础
36
Visual Basic 6.0 程序设计
4.2.2 其他特征
1. 粗体字、斜体字、加删除线、加 下划线
2. 透明显示
计算机应用基础
37
Visual Basic 6.0 程序设计
1. 粗体字、斜体字、加删 除线、加下划线
粗体字属性 FontBold
True： 粗体字 False： 正常字
TextHeight和TextWidth方法
TextHeight方法返回一个文本字 符串的高度值
TextWidth 方 法 则 返 回 一 个 文 本 字符串的宽度值，它们的单位 均为twip。