十一五国家级规划教材：《Visual Basic程序设计教程》教学资源（PPT课件，第4版）第4章 数据输入输出

第4章数据输入输出 4.1数据输入输出控件 4.2数据输出方法 4.3数据输入输出函数和过程 4.4字体、字形和颜色 4.5打印机输出

第4章 数据输入输出 4.1 数据输入输出控件 4.2 数据输出方法 4.3 数据输入输出函数和过程 4.4 字体、字形和颜色 4.5 打印机输出

4.1数据输入输出控件 4.1.1用标签Label输出数据 Label用于显示文本（输出）信息，不能作为输入信息的 界面。 例4.1显示浮雕效果的文字，实现方法：字颜色、标 签位置，常见错误为使用TextBox控件代替Labelf控件 制作步骤： ·在窗体上画一个Label控件，设置其caption,font的属性。 ·复制一个label控件，注意不要形成控件数组 ·将上面控件Label2的backstyle设置为0（透明） 设置label1和label2的forecolori颜色 。 设置两者的left,top属性值相差20，即可产生浮雕效果；

4.1 数据输入输出控件 Label用于显示文本(输出)信息，不能作为输入信息的 界面。 例4.1 显示浮雕效果的文字，实现方法：字颜色、标 签位置，常见错误为使用TextBox控件代替Label控件 制作步骤： • 在窗体上画一个Label控件，设置其caption,font的属性。 • 复制一个label控件，注意不要形成控件数组 • 将上面控件Label2的backstyle设置为0（透明） • 设置label1和label2的forecolor颜色 • 设置两者的left,top属性值相差20，即可产生浮雕效果。 4.1.1 用标签 Label输出数据

4.1.2用文本框输入输出数据 文本框是一个文本编辑区域，可在该区域输 入、编辑和显示正文内容。 例[4-2]当Text1文本框中输入字符“A"时， 触发Text1的KeyPress事件，将“A”的ASCII 码值置入Text2的Text属性。 程序代码如下： Private Sub Text1_KeyPress(KeyAscii As Integer) Text2.Text KeyAscii End Sub

文本框是一个文本编辑区域，可在该区域输 入、编辑和显示正文内容。 4.1.2 用文本框输入输出数据 例[4-2] 当Text1文本框中输入字符“A”时， 触发Text1的KeyPress事件，将“A”的ASCII 码值置入Text2的Text属性。 程序代码如下： Private Sub Text1_KeyPress(KeyAscii As Integer) Text2.Text ＝ KeyAscii End Sub

4.2数据输出方法 4.2.1 Printi方法 ·形式：[对象名称.Print[表达式列表，：] 作用：在对象上输出信息 -对象：窗体、图形框或打印机(Printer),省略对 象在窗体上输出。 -“表达式列表”是一个或几个表达式，可以是数 值表达式或字符串。 输出多个表达式或字符串时，用分隔符隔开。 Print方法具有计算和输出双重功能。 -分号或逗号为结尾符号

4.2 数据输出方法 4.2.1 Print方法 • 形式： [对象名称．]Print[表达式列表][，|；] • 作用：在对象上输出信息 – 对象：窗体、图形框或打印机(Printer) ，省略对 象在窗体上输出。 – “表达式列表”是一个或几个表达式，可以是数 值表达式或字符串。 – 输出多个表达式或字符串时，用分隔符隔开。 – Print方法具有计算和输出双重功能。 – 分号或逗号为结尾符号

4.2.2与Print方法有关的函数 1,Tab函数 格式：Tab[(n)】 -Tab函数与Print方法一起使用，在参数n指定的 位置输出其后的表达式的值 参数n是数值表达式，其值为一整数，用来指定 表达式输出位置的起始列号 如果n小于1，则Tab将输出位置移动到第1列。 当n比行宽大时，显示位置为“nMod行宽” 当在一个Print方法中有多个Tab函数时，每个 Tab函数对应一个输出项，各项之间用分号隔开

格式：Tab[(n)] – Tab函数与Print方法一起使用，在参数n指定的 位置输出其后的表达式的值 – 参数n是数值表达式，其值为一整数，用来指定 表达式输出位置的起始列号 – 如果n小于1，则Tab将输出位置移动到第1列。 当n比行宽大时，显示位置为“n Mod行宽” – 当在一个Print方法中有多个Tab函数时，每个 Tab函数对应一个输出项，各项之间用分号隔开 4.2.2 与Print方法有关的函数 1. Tab函数

2.Spc()函数 格式：Spc(n) Spc()函数与Print方法一起使用，使光标从当前 位置跳过n个空格，对输出进行定位 Spc()函数中的参数n是相对于前一输出项的最 后一个字符而言跳过的空格数 3.Format()函数 格式：Format[$](数值表达式，格式字符串) 数值格式化输出 日期和时间格式化输出

格式：Spc(n) – Spc( )函数与Print方法一起使用，使光标从当前 位置跳过n个空格，对输出进行定位 – Spc( )函数中的参数n是相对于前一输出项的最 后一个字符而言跳过的空格数 2. Spc( )函数 格式：Format[$](数值表达式，格式字符串) – 数值格式化输出 – 日期和时间格式化输出 3. Format( )函数

例4.4利用Formati函数显示有关的日期和时间。 Formate函数 ▣x☒ Private Sub Form Click() 7-21-97 July-97 FontSize 12 9-21-30PM 09:21:30P Saturday,July,20,2002 MyTime =#9:21:30 PM# 2002年7月20日08：16 2002-7-208:16:05 MyDate三#7/21/1997# Print Tab(2);Format(MyDate,"m/d/yy") Print Tab(2);Format(MyDate,"mmmm-yy") Print Tab(2);Format(MyTime,"h-m-s AM/PM") Print Tab(2);Format(MyTime,"hh:mm:ss A/P") Print Tab(2);Format(Date,"dddd,mmmm,dd,yyyy") Print Tab(2);Format(Now,"yyyy年m月dd日hh:mm") Print FormatDateTime(Now)'VB6.0新提供的函数 End Sub

例4.4 利用Format函数显示有关的日期和时间。 Private Sub Form_Click( ) FontSize = 12 MyTime = #9:21:30 PM# MyDate = #7/21/1997# Print Tab(2); Format(MyDate, "m/d/yy") Print Tab(2); Format(MyDate, "mmmm-yy") Print Tab(2); Format(MyTime, “h-m-s AM/PM") Print Tab(2); Format(MyTime, "hh:mm:ss A/P") Print Tab(2); Format(Date, "dddd,mmmm,dd,yyyy") Print Tab(2); Format(Now, "yyyy年m月dd日 hh：mm") Print FormatDateTime(Now) ' VB6.0新提供的函数 End Sub

4.3数据输入输出函数和过程 4.3.11 nputBox()函数 格式：InputBox(Prompt[,Title][,Default][,Xpos][Ypos]) -Prompt::该项不能省略，是作为对话框提示信息 出现的字符串表达式，最大长度为1024个字符 Title:作为对话框的标题，显示在对话框顶部的 标题区 Default: 是一个字符串，用来作为对话框中用户 输入区域的默认值 -Xpos,Ypos:是两个整数值，作为对话框左上角 在屏幕上的点坐标

4.3 数据输入输出函数和过程 4.3.1 InputBox( )函数 格式：InputBox(Prompt[,Title][,Default][,Xpos][,Ypos]) – Prompt：该项不能省略，是作为对话框提示信息 出现的字符串表达式，最大长度为1024个字符 – Title：作为对话框的标题，显示在对话框顶部的 标题区 – Default：是一个字符串，用来作为对话框中用户 输入区域的默认值 – Xpos，Ypos：是两个整数值，作为对话框左上角 在屏幕上的点坐标

例4.6用户输入华氏温度F,将其转换为摄氏温度C。转换公 式：C=5÷9×(F-32 代码如下： Private Sub Form Click( Dim f as long,c as long f=inputbox(“清输入华氏温度：”，”例4.5华氏温度转换为摄 氏温度”) c=5/9*(f-32) print“华氏温度：”；f print“摄氏温度：”；c End Sub

例4.6 用户输入华氏温度F，将其转换为摄氏温度C。转换公 式：C=5÷9×(F-32) 代码如下： Private Sub Form_Click() Dim f as long, c as long f=inputbox(“请输入华氏温度：”,”例4.5 华氏温度转换为摄 氏温度”) c=5/9*(f-32) print “华氏温度：”;f print “摄氏温度：”;c End Sub

4.3.2 MsgBox()函数 格式：MsgBox(Msg[,Type]L,Title]) Type参数的设置值及其描述 符号常量 值 描述 vbOkOnly 0 只显示“确定”按钮 vbOkCancel 1 显示“确定”及“取消”按钮 vbAbortRetryIgnore 2 显示“终止”、“重试”及“忽略”按钮 vbYesNoCancel 3 显示“是”、“否”及“取消”按钮 vbYesNo 4 显示“是”、“否”按钮 vbRetryCancel 5 显示“重试”及“取消”按钮 vbCritical 16 显示图标X vbOuestion 32显示图标？ vbExclamation 48 显示图标！ vbInformation 64 显示图标1 ivbDefaultButton1 0 第1个按钮是默认值 vbDefaultButton2 256第2个按钮是默认值 vbDefaultButton3 512 第3个按钮是默认值 vbDefaultButton4 768 第4个按钮是默认值 应用程序强制返回，当前应用程序被挂起，直到用户对消息 vbApplicationModal 0 框作出响应才继续工作 系统强制返回，系统全部应用程序都被挂起，直到用户对消 vbSystemModal 4096 息框作出响应才继续工作

4.3.2 MsgBox( )函数 格式：MsgBox(Msg[，Type][，Title]) Type参数的设置值及其描述