第5章数据输入输出.pptVIP

第5章 数据输入输出 主讲教师：刘潇（计科系） 联系电话 QQ：421877450 E-mail：liuxiao528@163.com 目录 5.1 数据输出——Print方法 5.1 数据输出——Print方法 5.1 数据输出——Print方法 5.1 数据输出——Print方法 5.1 数据输出——Print方法 5.1 数据输出——Print方法 5.1 数据输出——Print方法 5.1 数据输出——Print方法 5.1 数据输出——Print方法 5.1 数据输出——Print方法 5.1 数据输出——Print方法 5.1 数据输出——Print方法 5.1 数据输出——Print方法 5.1 数据输出——Print方法 5.1 数据输出——Print方法 5.1 数据输出——Print方法 5.2 数据输入——InputBox函数 5.2 数据输入——InputBox函数 5.2 数据输入——InputBox函数 5.2 数据输入——InputBox函数 5.3 MsgBox函数和MsgBox语句 5.3 MsgBox函数和MsgBox语句 5.3 MsgBox函数和MsgBox语句 5.3 MsgBox函数和MsgBox语句 5.3 MsgBox函数和MsgBox语句 5.3 MsgBox函数和MsgBox语句 5.4 字形 5.4 字形 5.5 打印机输出 5.5 打印机输出 5.5 打印机输出 思考与练习 上机练习 上机练习 上机练习 5.1.2 与Print方法有关的函数和方法 该函数格式如下： [对象.]Cls 功能：清除由Print方法显示的文本或图片框中显示的图形，并把光标移动到对象的左上角（0，0）。 5.1.2 与Print方法有关的函数和方法 该函数格式如下： [对象.]Cls 如：Picture1.Cls 清除图片框Picture1内的图形或文本 Cls 清除当前窗体内显示的内容 5.1.2 与Print方法有关的函数和方法 该函数格式如下： [对象.]Move 左边距离[,上边距离[,宽度[,高度]]] 功能：用来移动窗体和控件，并可改变其大小。 5.1.2 与Print方法有关的函数和方法 【例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.1.3 格式输出 该函数格式如下： Format$（数值表达式,格式字符串） 功能：按“格式字符串”指定的格式输出“数值表达式”的值。 5.1.3 格式输出 【 例6】 Private Sub Form_Click() 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) End Sub 格式符号#和0都能显示数字，但符号#会剔除 不必要的0，符号0会按规定补足0。 该函数格式如下： InputBox(prompt[,title][,default][,xpos,ypos][helpfile,context]) 功能：等待用户在输入对话框中输入信息，返回字符形式的内容。 xpos,ypos 标题 输入区 【 例7】InputBox函数的功能 Private Sub Form_Click() filename$=InputBox(请输入文件名（不超过8个字符）,文件名,vbfile) Print filename$ End Sub 【 例8】InputBox函数的功能 Private Sub Form_Click() C1$=Chr$(13)+Chr$(10) filename$=InputBox(请输入文件名+C1$+(不超过8个字符), _ 文件名,