VB教程第5章教案

学习程序设计，初学者要善 于模仿，并要多练。 任何一门程序设计语言都有 一套严格的编程规定(如语法规 则),在编程时一定要遵守这些 规定(只能遵守，不能创造)。主页

第5章 数据的输入输出一个完整的VB应用程序，一般都包含三部分内容，即

输入 → 处理 → 输出可通过VB语句、各种控件实现输入输出操作

本章主要内容数据输出━Print方法 数据输入━InputBox函数 MsgBox函数和MsgBox语句 字体 打印机输出 程序举例退出 主页 命令按钮 输入框 标签 文本框

消息框

5.1 数据输出━ Print方法5.1.1 Print方法(知识点)用于显示(输出)文本字符串和表达式的值格式：[对象名.]Print[表达式表][,|;] 说明： (1) “对象名”可以是窗体、图片框或打印机，也可以是立即 窗口。如果省略“对象名”,则在当前窗口输出。 (2) “表达式表”是一个或多个表达式，可以是数值或字符串。 各表达式间用逗号或分号隔开，如果省略，则输出一个空行。 (3) Print方法具有计算和输出双重功能，对于表达式，先计 算后输出。没有赋值功能。 (4)每执行一次Print一般自动换行。末尾加逗号或分号则在 同一行显示。主页

5.1 数据输出━ Print方法上机练习： Print "程序设计" Picture1.Print "程序设计" X = 5:y = 10:z = 15 Print x,y,z,"ABCDEF" Print "ABCDEF" Print x;y;z; "ABCDEF" Print "30+50=", ´在当前窗体上输出 ´在图片框上输出

Print 30+50Print "30+50="; Print 30+50主页

例5.1Private Sub Form_Click() a=2 b = "VB" Print 50 * a Print b Print Print "The Total is" End Sub

'计算并输出表达式的值

'输出变量的值'输出空行 '输出字符串常量输出数值数据时，前面有一个符号位(正 号以空格表示),后面留有一个空格； 输出字符串时，前后不留空格

运行结果：例5.1

主页

例5.2 Private Sub Form_Click() a = 3: b = 4 Print a, b, 4 + a, Print 2 * b Print a, , b Print "a="; a, "b="; b End Sub运行结果 例5.2

分号“;”——紧凑格式 逗号“,”——按区格式(14个字符位置) 语句行末尾有分号或逗号,则输出本行输 出项后不换行

主页

5.1.2 与Print方法有关的函数(知识点) 1. Tab函数函数格式：Tab(n) 功能：把输出位置移到第n列。 例如：Print Tab(2);"学号";Tab(11);"姓名";Tab(21);"成绩"

输出结果是(1个汉字占2个位置):└┘学号└┘└┘└┘└┘└┘姓名└┘└┘└┘└┘└┘└┘成绩

主页

例5.3 编写如下的事件过程： Private Sub Form_Click() Print: Print FontName = "华文新魏" '字体类型为“华文新魏” FontSize = 16 '字体大小为16 Print " 姓名"; Tab(8); "年龄"; Tab(16); "职务"; Print Tab(24); "单位"; Tab(32); "籍贯" Print Print "张得功"; Tab(8); 25; Tab(16); "科长"; Tab(24); "劳动科"; Tab(32); "北

京" Print "李得胜"; Tab(8); 32; Tab(16); "处长"; Tab(24); "科研处"; Tab(32); "上海" End Sub 例5.3 运行结果主页

5.1.2 与Print方法有关的函数

2. Spc函数格式：Spc(n) 功能：在输出下一项之前插入n个空格。 例如：

Print "学号";Spc(2);"姓名";Spc(5);"成绩"输出结果(└┘表示空格): 学号└┘└┘姓名└┘└┘└┘└┘└┘成绩

主页

3. 空格函数函数格式：Space$(n) 功能：该函数返回n个空格。 (在立即窗口中试验) 例如：a$ = "a" + Space(4) + "b" Print a$

输出结果是：a└┘└┘└┘└┘ b

主页

5.1.3 格式输出 Format函数(知识点)格式：Format$(数值表达式 [,格式串]) 功能：根据格式串规定的格式来输出表达式 的值# 0 . , % $ - 、+ E+、E数字；不在前后补零 数字；在前面或后面补零 小数点 千位位分隔符 百分比符号 美元符号 负、正号 指数符号主页

5.1.3 格式输出 Format函数格式：Format $(表达式 [,格式串]) 功能：根据格式串规定的格式来输出表达式的值例5.4 a=4513.7 : b=3456.78 : TimeVar=#08:30:05# Print Format$ (a, "##,###.##") Print Format$ (a, "$##,###.00") Print Format$ (b, "+##,###.#") Print Format$ (TimeVar, "h:m:s")

输出结果是：4,513.7 $4,513.70 +3,456.8 8:30:5例5.4

格式符号#和0都能显示数字，但符号#会剔除不必要的0,符号0会按规 定补足0主页

5.1.4 其他方法(知识点)1.Cls 方法 格式： [对象.]Cls功能：清除由Print方法显示的文本或在图片框中显示的图 片，并把光标移动到对象左上角(0,0)位置。 “对象”可以是窗体或者图片框，如果省略“对象”则清除当 前窗体内的显示内容。

例如：Picture1.cls 清除图片框Picture1内的图形或文本 Cls 清除当前窗体内显示的内容

注意：当前窗体的背景用Picture属性装入的图形时，不能用Cls方法清除，只能通过LoadPicture方法清除。主页

5.1.4 其他方法2. Move 方法格式：[对象.]Move 左边距离[,上边距离][,宽 度][,高度]功能：用来移动窗体和控件，并可改变其大小。 “对象”可以是窗体以及除计时器、菜单之外的所有控件， 如果省略“对象”则移动当前窗体。 “左边距离”、“上边 距离”、“宽度”、“高度”移动均以twip为单位。(1/1440英寸。1/567厘米)

如果“对象”为窗体，则“左边距离”、“上边距离”均 以屏幕左边界、上边界为准；如果“对象”为控件，则以窗 体幕左边界、上边界为准。主页

例5.5 编写如下的事件过程： Private Sub Form_Click() Move 800, 800, 3990, 2600 Text1.Move 200, 200, 1500, 1000 Picture1.Move 1800, 200, 1500, 1000 Picture1.Print "Picture1"; End Sub

运行结果例5.5

主页

5.1.4 其他方法3.TextHeight和TextWidth 方法 格式： [对象.]TextHeight(字符串) [对象.]TextWidth(字符串)

功能：用来辅助设置坐标。其中TextHeight方法返回一个 文本字符串的高度值， TextWidth方法返回文本字符串的宽 度值，单位均为twip。 “对象”包括是窗体和图片框，如果省略，则是用来测试 当前窗体中的字符串。

主页

例5.6 编写程序，试验TextHeight方法。Private Sub Form_Click() CurrentY = TextHeight("Microsoft") * 6 '下一个输出位置的Y坐标 CurrentX = 0 '下一个输出位置的X坐标 Print "Microsoft Visual Basic 6.0" Print Test$ = "Microsoft" Print Test$ 例5.6 Print TextHeight(Test$), TextWidth(Test$); FontSize = 18 '设置字体大小 Print Print Test$ Print TextHeight(Test$), TextWidth(Test$); End Sub

运行结果主页

例5.7编写程序，使字符串居中显示。 Private Sub Form_Click() FontSize = 16 Sample$ = "Microsoft Visual Basic 程序设计" x = (ScaleWidth - TextWidth(Sample$)) / 2 y = (ScaleHeight - TextHeight(Sample$)) / 2 CurrentX = x CurrentY = y Print Sample$ End Sub

例5.7

运行结果主页

使用对话框对话框既可以用来显示信息，也可以用于输入信息 VB中能够建立两种预制对话框：输入框和消息框 使用系统提供的函数(InputBox和MsgBox),而不必为对话框 另建窗体输入框

例5.8 通过输入框输入姓名， 然后再消息框中显示出来例5.8 Private Sub Form_Load() x = InputBox("输入您的姓名", "您叫什么名?") y = MsgBox( x & "先生：祝您马到功成！") End Sub

消息框

主页

本文来源：https://www.bwwdw.com/article/yv2i.html