VB编程6.0第4章 数据输入输出

VB程序设计——输入输出名茂院学第4章数据输入输出1数据输入输出控件2数据输出方法3数据输入输出函数和过程4字体、字形和颜色5打印机输出本章主要内容VB程序设计——输入输出名茂院学1:数据输入输出控件1.用标签Label输出数据Label用于显示文本(输出)信息，不能作为输入信息的界面。例1显示浮雕效果的文字，实现方法：字颜色、标签位置，常见错误为使用TextBox控件代替Label控件例1制作步骤:1.在窗体上画一个Label控件，设置其caption,font的属性。2.复制一个label控件，注意不要形成控件数组3.将上面控件Label2的backstyle设置为0（透明）4.设置label1和label2的forecolor颜色5.设置两者的left,top属性值相差20，即可产生浮雕效果。VB程序设计——输入输出名茂院学2.用文本框输入输出数据文本框是一个文本编辑区域，可在该区域输入、编辑和显示正文内容。例2在文本框中输入小时、分、秒，化成共有多少秒，然后输出之。代码如下:PrivateSubForm_Click()Dimh,m,s,xh=Val(Text1.Text)m=Val(Text2.Text)s=Val(Text3.Text)x=h*3600+m*60+sLabel4.Caption=共有秒数：&xEndSubVB程序设计——输入输出名茂院学2:数据输出方法方法是面向对象的，故使用的形式为：[对象.]方法1、Print方法形式：[对象.]Print[{Spc(n)|Tab(n)}][表达式列表][；|，]作用：在对象上输出信息对象：窗体、图形框或打印机(Printer)，省略对象在窗体上输出。Spc(n)函数：插入n个空格，允许重复使用。VB程序设计——输入输出名茂院学Tab(n)函数：左端开始右移动n列，允许重复使用。Tab(n)从最左第一列算起定位于第n列，若当前打印位置已超过n列，则定位于下一行的第n列。Spc(n)从前一位置起空n个空格；(分号)：光标定位上一个显示的字符后。，(逗号)：光标定位在下一个打印区的开始位置处。无；，时换行。开始打印的位置是由对象的CurrentX和CurrentY属性决定，缺省为打印对象的左上角0，0。注意：Print方法在Form_Load事件过程中起作用，必须设置窗体的AutoRedraw为True。VB程序设计——输入输出名茂院学例3显示图形PrivateSubForm_Click()Fori=1To5PrintTab(i);String(6-I,▼);Spc(6);String(I,▲)NextiEndSub注意：String(number,character):返回指定长度重复字符的字符串。考虑：若把Spc(6)换成Tab(6)，效果如何？VB程序设计——输入输出名茂院学2.格式输出函数例4利用Format函数显示有关的日期和时间。PrivateSubForm_Click()FontSize=12MyTime=#9:21:30PM#MyDate=#7/21/1997#PrintTab(2);Format(MyDate,m/d/yy)PrintTab(2);Format(MyDate,mmmm-yy)PrintTab(2);Format(MyTime,h-m-sAM/PM)PrintTab(2);Format(MyTime,hh:mm:ssA/P)PrintTab(2);Format(Date,dddd,mmmm,dd,yyyy)PrintTab(2);Format(Now,yyyy年m月dd日hh：mm)PrintFormatDateTime(Now)'VB6.0新提供的函数EndSubVB程序设计——输入输出名茂院学3:数据输入输出函数和过程1.InputBox函数InputBox(提示[，标题][，缺省][，x坐标位置][，y坐标位置])其中：提示：提示信息；标题：对话框标题；缺省：输入区缺省值。函数返回字符类型。例:要在屏幕上显示如下所示的对话框：VB程序设计——输入输出名茂院学相应的语句如下：DimstrNameAsString*40strName=InputBox(请输入你的姓名+vbCrLf+然后单击确定,输入框)也可以使用如下语句：DimstrNameAsString*40，strS1AsString*40strS1=请输入你的姓名+Chr(13)+Chr(10)+然后单击确定strName=InputBox(strS1，输入框，，100，100)当键盘输入“王晓明”后，变量strName获得键盘输入的值。VB程序设计——输入输出名茂院学例5用户输入华氏温度F，将其转换为摄氏温度C。转换公式：C=5÷9×(F-32)代码如下：PrivateSubForm_Click()Dimfaslong,caslongf=inputbox(“请输入华氏温度：”,”例5华氏温度转换为摄氏温度”)c=5/9*(f-32)print“华氏温度：”;fprint“摄氏温度：”;cEndSubVB程序设计——输入输出名茂院学2.MsgBox函数和MsgBox过程函数形式:变量[%]=MsgBox(提示[,按钮][，标题])过程形式:MsgBox提示[,按钮][,标题]按钮值如下函数返回所选按钮整数值VB程序设计——输入输出名茂院学例6MsgBox函数的应用。提示是否继续执行程序。PrivateSubForm_Click()msg1=“继续执行吗？”msg2=“例5提示信息”f=MsgBox(msg1,34,msg2)EndSub第4行中表明type的值为34=2+32+0，它决定了对话框中有“终止”、“重试”和“忽略”三个按钮，图标为“？”，默认活动按钮为“终止”。f为MsgBox的返回值，在本例中f依次为3、4或5。VB程序设计——输入输出名茂院学例7MsgBox过程的应用。判断数据结果是否正确。PrivateSubForm_Click()Dimmsg1asstring,style,response,mystrasstringmsg1=“数据正确吗？”style=vbYesNo+vbCritical+vbDefaultButton2response=Msgbox(msg1,style,”例6提示信息”)ifresponse=vbYesthenmystr=“数据正确”elsemystr=“数据错误”endifMsgBoxmystr,,”例7”‘MsgBox过程（语句形式）EndSub第4行语句也可写成：style=4+16+256或style=276其中vbCritical表示：显示图标×；vbDefaultButton2：第二个按钮是默认值，即“否(N)”的按钮为默认按钮。VB程序设计——输入输出名茂院学4:字体、字形和颜色1.字体类型和大小可由Font属性来设置。Fontname：字体；Fontsize：字体大小；Fontbold：是否是粗体；Fontitalic：是否斜体；Fontstrikethru：是否加一删除线。Fontunderline：是否带下划线。例8如图所示：在窗体建立两个命令按钮Command1和Command2，Command2的Font通过属性窗口设置:隶书,粗斜体,删除线,字号16。Command1的font属性通过代码实现。VB程序设计——输入输出名茂院学Command1的font属性设置代码如下:PrivateSubCommand1_Click()Command1.FontName=宋体Command1.FontSize=16Command1.FontItalic=TrueCommand1.FontUnderline=TrueEndSubVB程序设计——输入输出名茂院学2.颜色及颜色参数2.1调色板：在属性窗口打开；在“视图|调色板”中打开2.2颜色参数设置颜色的方法有4种：（1）使用RGB函数form1.backcolor=RGB(0,255,0)‘绿色form1.forecolor=RGB(255,255,0)‘黄色（2）使用QBColor函数共有0~15的取值form1.backcolor=QBColor(0)‘黑色form1.forecolor=QBColor(4)‘红色VB程序设计——输入输出名茂院学（3）使用VB的颜色常量form1.backcolor=vbWhite‘白色form1.forecolor=vbBlue‘蓝色（4）直接使用颜色值每一种颜色用四个字节来表示,规定最高字节为0,从低位算起,每一个字节依次定义红、绿、蓝三种颜色的值。红、绿、蓝三种成分都是用0到255（HFF）之间的数表示。form1.backcolor=&HFF&‘红色form1.forecolor=&HFFFF&‘黄色VB程序设计——输入输出名茂院学5:打印机输出1.用Print方法打印输出,对象为打印机例如:Printer.FontName=“隶书”Printer.FontSize=22Printer.Bold=TruePrinter.Underline=TruePrinter.Print“程序设计”Printer.EndDoc‘结束打印文件Printer.Page‘返回当前页号Printer.NewPage‘强制打印换页上述代码表示在打印机上以22号字、隶书、加粗、带下滑线打印出字符串“程序设计”。VB程序设计——输入输出名茂院学2.打印窗体PrintForm‘将窗体上的信息输出到打印机前面省略了对象名,表示输出当前窗体上的文本、可见控件及图形。3.打印源程序代码(1)直接打印:“文件|打印”(2)间接打印用字处理编辑软件(notepad,word,wps等)打印。VB程序设计——输入输出名茂院学本章小结掌握数据输入、输出的方法掌握InputBox,MsgBox的使用掌握字体及颜色的设置方法VB程序设计——输入输出名茂院学习题讲解1.设有语句:x=InputBox(″输入数值″,″0″,″示例″)程序运行后,如果从键盘上输入数值10并按回车键,则下列叙述中正确的是______。A)变量x的值是数值10B)在InputBox对话框标题栏中显示的是“示例”C)0是默认值D)变量x的值是字符串“10”VB程序设计——输入输出名茂院学2.MsgBox函数返回值的类型为_____。A)整型数值B)字符串C)变体D)数值或字符串(视输入的数据而定)3.执行下列语句后,显示输入对话框,此时如果单击“确定”按钮,则变量strInput的内容是____。strInput=InputBox(″请输入字符串″,″字符串对话框″,″字符串″)A)“请输入字符串”B)“字符串对话框”C)“字符串”D)空字符串VB程序设计——输入输出名茂院学4.以下语句的输出结果是____。PrintFormat(32548.5,″000,000.00″)A)32548.5B)32,548.5C)32548.50D)032,548.505.在Form_Click事件中执行下列语句后错误的结果是___。A)PrintFormat(12345.6,000,000.00)的输出结果是012，345.60B)PrintFormat(12345.6,+##,##0.0%)的输出结果是+1,234,560.0%B)PrintFormat(12345.6,$###,##0.00)的输出结果是$12,345.60D)PrintFormat(12345.6,0.00E+00)的输出结果是0.12E+05