资源描述：
《VB程序设计第4章分析课件.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、第4章数据输入输出学习目标：Print方法、InputBox函数和MsgBox函数、语句；理解Format函数和Tab与Spc函数;程序控制流程；了解应用程序开发基本方法。本章导读教学重点和难点：Print方法及其tab()、spc()、format()函数的使用。InputBox函数、MsgBox函数和语句。授课学时2课时4.1数据输入输出控件4.2数据输出方法4.3数据输入输出函数和过程4.4字体、字形和颜色4.5打印机输出本章主要内容本章重点：数据输入输出控件：文本框、标签数据输出方法—Print方法的使用和输出结果，Tab()、Spc()、Format()函数的用法。数据输入输
2、出函数和过程－InputBox()、MsgBox()的用法和返回值处理及MsgBox过程的用法4.1数据输入输出控件P63例题[4-1]利用两个标签控件，显示具有浮雕效果的文字。原理：浮雕效果实际上是使显示的文字利用白色和黑色的错位叠加来实现。4.1.1用标签输出数据4.1.2用文本框输入输出数据P64例题[4-2]文本框1输入字符时，文本框2中显示相应的Ascii码值。思考：如果改为Change事件，要实现同样功能代码该如何改写？P64例题[4-3]利用文本框对输入的非数字数据进行字符串连接。IsNumeric&格式：[对象名称.]print[表达式表][,
3、;]4.2数据输出方法4
4、.2.1Print方法窗体(如form1)、图片框(如picture1)、打印机(printer)、立即窗口(debug)变量－存放在变量里的值表达式－计算后输出字符串－原样输出无－输出空行标准格式紧凑格式每14列作为一个输出区段举例说明：（print输出结果）PrivateSubform_click()x=3:y=-6Print"0123456789012345678901234567890123456789"Printx;yPrintx,yprintPrint“x*y";x*yPrint1,2,Print3;Print4EndSub①区分,与;，－－以14列分区段输出。；－－紧凑输
5、出②区分数字和字符的特点数字－－前面是符号位,后面是空格；字符－－前后无空格；③如何输出空行无－－空行④，或；结尾的含义表示一行的输出“未完待续”,继续在同一行按标准或紧凑格式输出下一个信息。4.2.2与Print方法有关的函数格式：Tab（n）作用：与Print方法一起使用，在参数n指定的位置输出其后的表达式的值。说明：1）n是数值表达式，值为整数，若省略，则将输出点移动到下一个输出区的起点。2）若n小于1，则tab将输出位置移动到第1列。若>行宽，从[nmod行宽]列输出.3）一个print方法中使用多个Tab函数时，每个Tab函数对应一个输出项，各项之间用分号隔开。例:Tab函数
6、：PrintTab(4);“Hello”;tab;”World”1、Tab函数2、Spc函数格式：Spc(n)作用：使光标从当前位置跳过n个空格，对输出进行定位。例：比较Tab()和spc()：Print“Hello”;Tab(10);”world”Print”Hello”;Spc(10);”world”3、Format函数格式：Format[$](数值表达式,格式字符串)作用：使数值表达式的值按“格式字符串”制定的格式输出。数值格式化输出：P68表4－3日期和时间格式化：P69表4－4例：Printformat(12345.6,”000,000.00”)Printformat(123
7、45.6,”###,###.##”)Printformat(12345.6,”$##,###0.00”)Printformat(0.123,”0.00%”)Printformat(12345.6,”0.00E+00”)0--整数：数据位>符号位原样显示,<则左端补0小数：数据位>符号位四舍五入，<则右端补0#--整数：原样输出；小数:数据位>符号位四舍五入，<则原样输出。，--千分位分隔符<--英文小写@--数据位<符号位时，左端补空格。4.3数据输入输出函数和过程作用:产生一个对话框，等待用户输入数据或按下按钮，并返回所输入的内容。格式：变量=Inputbox(提示[,标题][,缺省
8、值,][,x][,y])举例：S=InputBox(“请输入0或1以代表硬币的正反面”，“猜硬币”，“0”,10,10）提示如果要多行显示，可以使用vbcrLf或chr(13)+chr(10)标题4.3.1InputBox函数(返回值是字符串）缺省值提示字符串编写一个程序，窗体上有一个命令按钮（标题为“输入学生成绩”,出现如上图所示的学生成绩输入对话框，输入一个成绩，将成绩打印在窗体上。PrivateSubCommand1_Click()Dim
