1、第5章 数据输入输出,沈阳理工大学应用技术学院,0.本章内容,使用Print方法输出数据 使用InputBox函数输入数据MsgBox函数和 MsgBox语句 字形打印机输出,2,1.使用Print方法输出数据,Print方法 格式：对象名.Print 表达式列表 说明： 使用的对象可以是窗体、图片框或打印机Print “程序设计” 在当前窗体上输出 Picture1.Print “程序设计” 在图片框上输出 表达式列表是一个或多个表达式，如果省略，则输出一个空行 有计算和输出双重功能，先计算后输出。输出数值数据时，前面有一个符号位(正号以空格表示)，后面留有一个空格；输出字符串时，前后不留空
2、格。,3,1.使用Print方法输出数据,【例1】Private Sub Form_Click()a = 2b = “VB“Print 50 * a 计算并输出表达式的值Print b 输出变量的值Print 输出空行Print “The Total is“ 输出字符串常量End Sub,4,运行结果：,1.使用Print方法输出数据,当输出多个表达式时，各表达式之间用分号“；”(紧凑格式)或逗号“，”(按区格式)隔开。按区格式(14个字符位置) 若语句行末尾有分号或逗号,则输出本行输出项后不换行,5,【例2】 Private Sub Form_Click()a = 3: b = 4Print
3、 a, b, 4 + a,Print 2 * bPrint a, , bPrint “a=“; a, “b=“; bEnd Sub,运行结果：,1.使用Print方法输出数据,【例3】使用Print方法输出全班学生的平均年龄。 已知18岁6人，19岁21人，20岁23人，21岁15人。,6,Private Sub Form_Click()Dim a As Integer, b As Integer, c As IntegerDim d As Integer, s As Integer, m As Singlea = 6 : b = 21 : c = 23 : d = 15s = a + b +
4、 c + dm = (a * 18 + b * 19 + c * 20 + d * 21) / s 以下舍入到小数后1位Print “平均年龄：“; Int(m * 10 + 0.5) / 10 End Sub,运行程序后单击窗体，输出结果是： 平均年龄：19.7,1.使用Print方法输出数据,与Print方法有关的函数和方法 Tab函数 函数格式：Tab(n) 功能：把输出位置移到第n列，要输出的内容放在Tab函数后面，并用分号隔开。 如：Print Tab(2);“学号“；Tab(11);“姓名“；Tab(21);“成绩“ 输出结果是(1个汉字占2个位置)：学号姓名成绩,7,1.使用Pr
5、int方法输出数据,8,程序代码如下： Private Sub Form_Click()PrintPrint Tab(15); “学号“; Tab(26); “姓名“; Tab(36); “成绩“Print Tab(14); String(27, “-“) 输出27个减号字符“-”Print Tab(14); “19011001“; Tab(26); “张小三“; Tab(36); 57Print Tab(14); “19011003“; Tab(26); “李小四“; Tab(36); 69Print Tab(14); “19011012“; Tab(26); “马小五“; Tab(36);
6、 92Print Tab(14); String(27, “-“) 输出27个减号字符“-”End Sub,【例4】编程显示下面表格（不显示格线）,1.使用Print方法输出数据,9,运行结果：,1.使用Print方法输出数据,Spc函数 函数格式： Spc(n) 功能：在输出下一项之前插入n个空格。如：Print “学号“；Spc(2)；“姓名“；Spc(5)；“成绩“输出结果是(表示空格)：学号姓名成绩Space$函数 函数格式： Space$(n) 功能：返回n个空格。 如：a$= “ a “ +Space(4)+ “ b “ print a$输出结果是：a b,10,1.使用Print
7、方法输出数据,Cls 方法 格式：对象.Cls 功能：清除由Print方法显示的图形,并把光标移到对象的左上角（0，0）。对象名称可以是窗体和图片框。如： Picture1.Cls 清除图片框Picture1内的图形或文本Cls 清除当前窗体内显示的内容 Move方法 格式： 对象.Move 左边距离,上边距离,宽度,高度 功能：移动窗体和控件,并可改变其大小。,11,1.使用Print方法输出数据,12,【例5】在窗体任意位置画一个文本框和一个图片框，编写程序移动它们的位置并改变其大小。,移动控件图（初始界面）,移动控件图（运行情况）,Private Sub Form_Click() Mov
8、e 800, 800, 3990, 2600 Text1.Move 200, 200, 1500, 1000 Picture1.Move 1800, 200, 1500, 1000 Picture1.Print “picture1“ End Sub,1.使用Print方法输出数据,格式输出 格式：Format$(数值表达式 ,格式字符串) 功能：根据格式串规定格式来输出表达式的值,13,【例6】 Private Sub Form_Click() a=4513.7 : b=3456.78 : TimeVar=#08:30:05# Print Format(a, “#,#.#“) Print Fo
9、rmat(a, “$#,#.00“) Print Format(b, “+#,#.#“) Print Format(TimeVar, “h:m:s“)End Sub,运行程序后单击窗体，输出结果是：4,513.7$4,513.70+3,456.88:30:5,格式符号#和0都能显示数字，但符号#会剔除不必要的0，符号0会按规定补足0,2.使用InputBox函数输入数据,格式： 功能：等待用户在输入对话框中输入信息，返回字符形式的内容,14,2.使用InputBox函数输入数据,15,【例7】 InputBox函数的功能 Private Sub Form_Click()filename$=In
10、putBox(“请输入文件名(不超过8个字符)”，”文件名”，”vbfile”) Print filename$ End Sub,2.使用InputBox函数输入数据,16,【例8】 InputBox函数的功能 Private Sub Form_Click()c1$=Chr$(13) + Chr$(10)filename$=InputBox(“请输入文件名”+c1$+”(不超过8个字符)”，”文件名”，”vbfile”) Print filename$ End Sub,3. MsgBox函数和MsgBox语句,MsgBox函数格式： MsgBox(提示,对话框类型,对话框标题 功能：产生一个消
11、息框，用来向用户提供警告信息，并返回一个整数。,17,【例9】 MsgBox函数的功能 Private Sub Form_Click()y = MsgBox(“输入文件名是否正确”,52,”请确认”)Print y 4+48+0 End Sub,“对话框类型”一般有3个参数:出现按钮；图标类型；默认按钮；,3. MsgBox函数和MsgBox语句,18,【例10】编写程序，用MsgBox函数判断是否执行。,Private Sub Form_Click() msg$ = “请确认此数据是否正确“ Title$ = “数据检查对话框“ x = MsgBox(msg$, 19, Title$) If
12、 x = 6 ThenPrint x * x ElseIf x = 7 ThenPrint “请重新输入“ End If End Sub,3. MsgBox函数和MsgBox语句,MsgBox语句 三种格式：y = MsgBox(“输入文件名是否正确”,52,”请确认”)MsgBox “输入文件名是否正确”,52,”请确认”MsgBox(“输入文件名是否正确”),19,3. MsgBox函数和MsgBox语句,20,【例11】从输入框中输入圆的半径，计算圆的周长和面积。,(1)创建应用程序的用户界面 (2)设置对象属性 (3)编写程序代码,Private Sub Command1_Click(
13、) Dim r As Single, k As Single, s As Singler = Val(InputBox(“请输入圆的半径“, “计算圆的周长和面积“)k = 2 * 3.14159 * rs = 3.14159 * r * rText1.Text = kText2.Text = sMsgBox “计算已完成“, , “例5.11“End SubPrivate Sub Command2_Click()EndEnd Sub,3. MsgBox函数和MsgBox语句,21,当输入的圆半径为65时，运行结果:,4. 字形,字体类型和大小,22,【例12】编写程序，在窗体上输出多种字体。
14、,Private Sub Command1_Click()sample1$ = “Microsoft Visual Basic 6.0“sample2$ = “程序设计技巧“FontSize = 20FontName = “system“Print “system-“; sample1$FontName = “modern“Print “modern-“; sample1$FontSize = 24FontName = “宋体“FontBold = TruePrint “宋体-“; sample2$FontName = “隶书“FontItalic = TruePrint “隶书-“; sam
15、ple2$FontName = “黑体“FontUnderline = TruePrint “黑体-“; sample2$ End Sub,4. 字形,其他属性 粗体字 斜体字 加删除线 加下划线 重叠显示,23,5.打印机输出,直接输出把信息直接送往打印机 格式：Printer.Print 表达式表 Page属性：设置当前页号 格式：Printer.Page NewPage方法：实现换页操作 格式：Printer.NewPage EndDoc方法：结束文件打印 格式：Printer.EndDoc,24,5.打印机输出,25,【例13】在打印机上打印文字“计算机程序设计” 。,Private Sub Command1_Click()Printer.FontName = “隶书“Printer.FontSize = 12Printer.Print “计算机程序设计” 将文本放到Printer对象中Printer.EndDoc 打印结束End Sub,5.打印机输出,窗体输出 先把要输出的信息送到窗体上，再用PrintForm方法把窗体上的内容打印出来 格式：窗体名.PrintForm 功能：把窗体上的信息输出到打印机,26,
