《Visual_Basic_教学资料_第4章》由会员分享，可在线阅读，更多相关《Visual_Basic_教学资料_第4章（36页珍藏版）》请在金锄头文库上搜索。
1、第4章数据输入输出 学习目标 掌握VisualBasic中的语句 Print方法 InputBox函数和MsgBox函数 语句 理解Format函数和Tab与Spc函数 程序控制流程 了解应用程序开发基本方法 本章导读 教学重点和难点 Print方法及其tab spc format 函数的使用 InputBox函数 MsgBox函数和语句 授课学时3课时 4 1数据输入输出控件4 2数据输出方法4 3数据输入输出函数和过程4 4字体 字形和颜色4 5打印机输出 本章主要内容 本章重点 数据输入输出控件 文本框 标签数据输出方法 Print方法的使用和输出结果 Tab Spc Format 函数
2、的用法 数据输入输出函数和过程 InputBox MsgBox 的用法和返回值处理及MsgBox过程的用法 4 1数据输入输出控件 一个计算机程序通常分为三个部分 输入部分 数据处理 输出部分 VisualBasic提供多种形式的输入输出手段 并可通过各种控件实现输入输出操作 4 1 1用标签输出数据 例题4 1 参见P63 利用两个标签控件 显示具有浮雕效果的文字 原理 浮雕效果实际上是使显示的文字利用白色和黑色的错位叠加来实现 4 1 2用文本框输入输出数据 例题4 2 参见P64 文本框1输入字符时 文本框2中显示相应的Ascii码值 例题4 3 参见P64 利用文本框对输入的非数字数据
3、进行连接 例题分析 在文本框中输入数据 可通过回车 Ascii码为13 也可通过按Tab键或单击其它对象表示输入结束 这将触发LostFocus事件 在此 我们采用第二种方法 4 2数据输出方法 4 2 1Print方法 对象名称 print 表达式列表 Print方法可以在窗体 打印机或其它对象上输出信息 其格式为 窗体 如form1 图片框 如picture1 打印机 printer 立即窗口 debug 表达式列表是一个或几个表达式 变量 存放在变量里的值 表达式 计算后输出 字符串 原样输出 无 输出空行 当输出多个表达式或字符串时 各表达式用逗号或分号隔开 如果用逗号隔开 按标准输出
4、格式 分区输出格式 显示数据项 如果用分号隔开 按紧凑输出格式显示数据项 每14列作为一个输出区段 即为分区输出格式 Print方法具有计算和输出双重功能 举例说明 print输出结果 PrivateSubform click x 3 y 6Print 0123456789012345678901234567890123456789 Printx yPrintx yPrint abc def printPrint1 2 Print3 Print4EndSub 区分 与 以14列分区段输出 紧凑输出 区分数字和字符的特点数字 前面是符号位 后面是空格 字符 前后无空格 如何输出空行无 空行 或
5、结尾的含义表示一行的输出 未完待续 继续在同一行按标准或紧凑格式输出下一个信息 4 2 2与Print方法有关的函数 格式 Tab n 作用 与Print方法一起使用 在参数n指定的位置输出其后的表达式的值 n是数值表达式 值为整数 若省略 则将输出点移动到下一个输出区的起点 1 Tab函数 PrintTab 25 ABC 在第25个位置上显示ABC 若n小于1 则Tab将输出位置移动到第1列 若 行宽 从 nmod行宽 列输出 一个Print方法中使用多个Tab函数时 每个Tab函数对应一个输出项 各项之间用分号隔开 PrintTab 4 Hello tab World 设行宽为80个字符
6、执行 PrintTab 90 Text 则从第10列起输出Text 2 Spc函数 格式 Spc n 作用 使光标从当前位置跳过n个空格 对输出进行定位 Tab 与Spc 的区别 Tab 中的n相对屏幕的第一列 Spc 中的n相对于前一输出项的最后一个字符而言跳过的空格数Print Hello Tab 10 world Print Hello Spc 10 world 3 Format函数 格式 Format 数值表达式 格式字符串 作用 使数值表达式的值按 格式字符串 制定的格式输出 数值格式化输出 参见P68表4 3 表示一个数字位 其个数决定了显示串的长度 如显示位数 个数 原样显示 如
7、显示位数 个数 则左对齐显示数据项 PrintFormat 19330 左对齐显示19330 PrintFormat 19330 00000000 显示00019330 Printformat 12345 6 000 000 00 Printformat 12345 6 Printformat 12345 6 0 00 Printformat 0 123 0 00 Printformat 12345 6 0 00E 00 日期和时间格式化 参见P69表4 4 参见P69 例题4 4 参见P70 例题4 5 4 3数据输入输出函数和过程 VisualBasic与用户之间的交互是通过InputBo
8、x 函数 MsgBox 函数和MsgBox过程进行的 4 3 1输入对话框 InputBox函数 InputBox 函数功能 产生一个对话框 等待用户输入数据或按下按钮 并返回所输入的内容 函数返回值是字符串 其格式为 变量 Inputbox 提示 标题 缺省值 左上角坐标 注意 Prompt 对话框提示信息 该项不能省略 在对话框显示Prompt 自动换行 如按自己要求换行 需插入回车和换行符来分隔 即Chr 13 Chr 10 参见P54表3 7 或系统变量vbCrlf Title 对话框标题 Default 是一个字符串 是对话框中用户输入区的默认值 例题 DimPrompt Title
9、 Default Myvalue 说明各变量为可变类型Prompt 请输入0和1以代表硬币的正反面 Title 猜硬币 Default 0 Myvalue InputBox Prompt Title Default 编写一个程序 窗体上有一个命令按钮 标题为 输入学生成绩 出现如上图所示的学生成绩输入对话框 输入一个成绩 将成绩打印在窗体上 PrivateSubCommand1 Click Dims Prompt Title Defaul 定义变量为变型类型Prompt 请输入学生成绩 Title 学生成绩输入对话框 Default 0 s InputBox Prompt Title Defa
10、ult 显示输入对话框Prints 打印输入的成绩EndSub 例题 PrivateSubForm Click x InputBox 请输入整数 input 100 y InputBox 请输入整数 input 100 Printx yEndSub问题1 运行后输入2个1000 窗体上将显示 A 1000 B 2000 C 10001000 D 出错问题2 输入2个1000 要得到2000 Print语句应该如何更改 问题3 每个InputBox函数可输入几个数据 A 个 B 个 C 最多10个 D 任意 InputBox的返回值是字符串 各项参数次序必须一一对应 提示 不能省略 其余各项均可
11、省略 但逗号占位符不能省略 每执行一次InputBox函数只能输入一个值 如果需要输入多个值 必须多次调用InputBox函数 问题 像下面这样的Windows对话框是怎么产生的 在VB中 它是用Msgbox函数或语句产生的 4 3 2消息对话框 MsgBox 函数 MsgBox 函数的功能 可以向用户传送信息 接收用户在对话框上的选择 接受用户的响应 返回一个整数值 以决定其后的操作 其格式为 变量 MsgBox msg type title 参数说明 Msg 提示字符串 Type 为整数值或字符常量 用来控制在对话框内显示的按钮 图标的种类及数量 参见P73表4 6 Type参数的设置值及
12、其描述 Type决定 按钮 图标 焦点 第一组值 0 5 描述了对话框中显示的按钮类型和数目 第二组值描述图标的样式 第三组值指明默认活动按钮 第四组值决定消息框的强制返回值 Type参数由每组值选取一个数字相加而成 Title用来显示对话框标题的字符串 P73表4 6 Msgbox函数返回值是一个整数 这个整数与所选择的命令按钮有关 a MsgBox 程序运行完毕 vbOKOnly vbCritical 暂停 0 16 0 1 32 0 a MsgBox 程序是否继续 33 问题 a MsgBox 程序是否继续 2 48 0 中断 按 终止 后 返回值a 参见P47 例题4 7 参见P47
13、例题4 8 4 3 3消息对话框 MsgBox语句 格式 MsgBoxMsg type title 说明 各参数的含义及作用与MsgBox函数相同 区别 MsgBox语句没有返回值 因此常被用于简单的信息显示 类似于Print的使用 由MsgBox 函数或MsgBox语句所显示的对话框有一个共同的特点 出现对话框后 用户必须作出选择 即模态窗口 4 4 1属性列表的Font属性工程设计阶段 可直接在属性窗口中选择 Font 属性来设置显示文本的字形 4 4 2字体类型和大小字体类型 窗体 控件 FontName 字体类型 字体大小 FontSize 点数 小四是错误的 4 4字体 字形和颜色
14、粗体字 FontBold Boolean 斜体字 FontItalic Boolean 加中划线 FontStrikethru Boolean 加下划线 FontUndeline Boolean 重叠显示 FontTransparent Boolean 以上属性均为Boolean型 为True生效 为False则反之 4 4 3其他属性 4 4 4颜色及颜色参数 2 程序运行时使用颜色参数设置颜色 RGB 红 绿 蓝 QBColor 0 15 VB颜色常量 直接输入颜色数值 HBBGGRR 1 通过调色板可视化地设置颜色 例 form1 forecolor RGB 0 255 0 绿色form
15、1 forecolor QBColor 2 form1 forecolor vbGreenform1 forecolor HFF00 4 5打印机输出 格式 Printer Print 表达式 功能 将表达式的值在打印机上打印出来 在打印机对象中的其他方法和属性Printer Page返回当前页号Printer NewPage换页Printer EndDoc结束文件打印 将page重置1 4 5 1打印表达式结果值 4 5 2窗体输出 格式 窗体 PrintForm功能 把窗体的内容通过打印机打印出来 4 5 3打印源程序代码 直接打印 文件菜单中的打印命令 间接打印 用其他的文字编辑软件编辑打开 frm和 bas文件 然后打印 输入 文本框 赋值 InputBox 输出 标签 文本框 print MsgBox MsgBox过程 小结 课后实践 思考题 用InputBox输入一个学生的数学 语文 外语成绩 求出平均成绩 分别用msgbox过程或用文本框显示出来 本章结束 欢迎大家提出教学建议 知识回顾KnowledgeReview
