vb数据的输入、输出

主讲教师潘大胜全国计算机等级考试二级教程VisualBasic的输入输出有着十分丰富的内容和形式，它提供了多种手段，并可以通过各种控件实现输入输出操作，使输入输出灵活、多样、方便、形象直观。5.1数据输出——Print方法5.2数据输出——InputBox函数5.3MsgBox函数和MsgBox语句5.4字形5.5打印机输出5.1数据输出——Print方法在早期版本的BASIC中，数据的输出主要通过PRINT语句来实现。VisualBasic也用Print输出数据，但它是作为方法使用的。5.1.1Print方法Print方法可以在窗体上显示文本字符串和表达式的值，并可在其他图形对象或打印机上输出信息。Print方法的语法格式为：[对象名称].Print[表达式列表][{,|;}]说明：（1）“对象名称”可以是窗体（Form）、图片框（PictureBox）或打印机（Printer），也可以是立即窗口（Debug）。例如：Form1.Print欢迎使用VisualBasicPicture1.Print欢迎使用VisualBasicDebug.Print欢迎使用VisualBasicPrinter.Print欢迎使用VisualBasicPrint欢迎使用VisualBasic（2）“表达式表”是一个或多个表达式，可以是数值表达式或字符串。对于数值表达式，打印出表达式的值；而字符串则照原样输出。（3）当输出多个表达式或字符串时，各表达式用分隔符（逗号、分号或空格）隔开。如果输出的各表达式之间用逗号分隔，则按标准输出格式（分区输出格式）显示数据项。如果各输出项之间用分号或空格作分隔符，则按紧凑输出格式输出数据。当输出数值数据时，数值的前面有一个符号位，后面有一个空格，而字符串前后都没有空格。（4）Print方法具有计算和输出双重功能，对于表达式，它先计算后输出。（5）在一般情况下，每执行一次Print方法要自动换行，也就是说，后面执行Print时将在新的一行上显示信息。为了仍在同一行上显示，可以在末尾加上一个分号或逗号。5.1.2与Print方法有关的函数1.Tab函数格式：Tab(n)Tab函数把显示或打印位置移到由参数n指定的列数。当在一个Print方法中有多个Tab函数时，每个Tab函数对应一个输出项，各输入项之间用分号隔开。例如:PrintTab(10);姓名;Tab(30);年龄说明：①参数n为数值表达式，其值为一整数，它是下一个输出位置的列号，表示在输出前把光标（或打印头）移到该列。通常最左边的列号为1，如果当前的显示位置已经超过n，则自动下移一行。②在VB中，对参数n的取值范围没有具体限制。当n比行宽大时，显示位置为nMod行宽；如果n1，则把输出位置移到第一列。③当在一个Print方法中有多个Tab函数时，每个Tab函数对应一个输出项，各输出项之间用分号隔开。2.Spc函数格式：Spc(n)在显示或打印列表中的下一个表达式之前插入n个空格数。PrintABC;Spc(8);DEF说明：①Spc函数与输出项之间用分号隔开。②Spc函数与Tab函数的作用类似，可以互相代替。3.空格函数格式：Space$(n)Space$函数返回n个空格。a$=a+Space$(4)+bPrinta$输出结果：a□□□□b5.1.3格式输出使用格式化函数Format（）可以使数值、日期或字符型数据按指定的格式输出。格式为：Format（表达式[，格式字符串]）字符说明#数字占位符。显示一位数字或什么都不显示。如果表达式在格式字符串中#的位置上有数字存在，那么就显示出来，否则，该位置什么都不显示0数字占位符。显示一位数字或是零。如果表达式在格式字符串中0的位置上有一位数字存在，那么就显示出来，否则就以零显示.小数点占位符,千分位符号占位符%百分比符号占位符。表达式乘以100。而百分比字符（%）会插入到格式字符串中出现的位置上$在数字前强加$+在数字前强加+-在数字前强加-E+用指数表示E-用指数表示数值型格式实例：PrivateSubForm_Click()PrintFormat(123.45,0000.000)PrintFormat(123.45,0.0)PrintFormat(123.46,0.0)PrintFormat(123.45,####.###)PrintFormat(123.45,#.#)PrintFormat(123.46,#.#)PrintFormat(0.123,.##)PrintFormat(0.123,0.##)EndSub字符说明实例结果@字符占位符。显示字符或是空白。如果字符串在格式字符串中@的位置有字符存在，那么就显示出来；否则就在那个位置上显示空白。除非有惊叹号字符(!)在格式字符串中，否则字符占位符将由右到左被填充Format(ABCD,@@@@@@)ABCD&字符占位符。显示字符或什么都不显示，如果字符串在格式字符串中和号&的位置有字符存在，那么就显示出来否则就在那个位置上显示空白。除非有惊叹号字符（！）在格式字符串中，否则字符占位符将由右到左被填充Format(ABCD,&&&&&&)ABCD强制小写。将所有字符以小写格式显示Format(ABCD,&&&&&&)abcd强制大写。将所有字符以大写格式显示Format(abcd,&&&&&&)ABCD!强制由左至右填充字符占位符。缺省值是由右至左填充字符占位符Format(ABCD,!&&&&&&)ABCD字符型格式实例：PrintFormat(ABcd,@@@@@@)PrintFormat(ABcd,&&&&&&)PrintFormat(ABcd,@@@@@@)PrintFormat(ABcd,@@@@@@)PrintFormat(ABcd,!@@@@@@)符号作用符号作用D显示日期（1~31），个位前不加0dd显示日期（01~31），个位前加0ddddddddww显示星期缩写（Sun~Sat）星期为数字（1~7，1是星期日）显示完整日期（yy/mm/dd）ddddddddddww显示星期全名（Sunday~Saturday）显示完整长日期(yyyy年m月d日)一年中的星期数(1~53)M显示月份（1~12），个位前不加0mm显示月份（01~12），个位前加0Nmm显示月份缩写（Jan~Dec）mmmm月份全名（January~December）Y显示一年中的天（1~366）yy两位数显示年份（00~99）Yyyy四位数显示年份（0100~9999）q季度数（1~4）H显示小时（0~23），个位前不加0hh显示小时（0~23），个位前加0M在h后显示分（0~59），个位前不加0mm在h后显示分（0~59），个位前加0S显示秒（0~9），个位前不加0ss显示秒（00~59），个位前加0tttt显示完整时间（小时、分和秒）默认格式为hh:mm:ssAM/PMAm/pm12小时的时钟，中午前AM或am中午后PM或pmA/P,a/p12小时的时钟，中午前A或a，中午后P或p日期与时间格式实例：PrintFormat(Date,dddddd)PrintFormat(Date,mmmm)PrintFormat(Date,yyyy)PrintFormat(Time,Hh:Nn:Ss)PrintFormat(Time,ttttt)PrintFormat(Time,tttttAM/PM)5.1.4其他方法和属性1、清除方法CLSCls将清除图形和打印语句在运行时所产生的文本和图形，清除后的区域以背景色填充。但是设计时使用Picture属性设置的背景位图和放置的控件不受Cls影响。语法：Picture1.Cls'清除图片框Picture1内的图形或文本Cls'清除当前窗体内显示的内容[对象名称.]Cls2、Move方法Move方法用来移动窗体和控件，并可改变其大小。语法：如果“对象”是窗体，则“左边距离”和“上边距离”均以屏幕左边界和上边界为准，如果“对象”是控件，则以窗体的左边界和上边界为准。[对象名称.]Move左边距离[,上边距离[,宽度[,高度]]]5.2数据输入——InputBox方法InputBox函数可以产生一个对话框，等待用户输入数据，并返回所输入的内容，函数值类型为String类型。格式为：变量=InputBox(提示信息[,对话框标题][,默认内容])说明：（1）提示信息指定在对话框中出现的文本。（2）对话框标题指定对话框的标题。（3）默认内容可以指定输入框的文本框中显示的默认文本练习:例如，假设某程序中有如下代码：可以在文本框中将默认值修改成其他内容，单击“确定”按钮，文本框中的文本返回到变量MyStr中；单击“取消”按钮，返回一个0长度的字符串。MyStr=InputBox(提示&vbCrLf&信息，对话框标题，aaaaaa)5.3MsgBox函数和MsgBox语句MsgBox函数可以向用户传送信息，并可通过用户在对话框上的选择接收用户所做的响应，作为程序继续执行的依据。5.3.1MsgBox函数格式如下：[变量]=MsgBox(信息内容[,对话框类型[,对话框标题]])说明：（1）信息内容指定在对话框中出现的文本。（2）对话框类型指定对话框中出现的按钮和图标。（3）对话框标题指定对话框的标题。（4）MsgBox()返回的值指明了在对话框中选择的按钮。（5）如果省略了某些可选项，必须加入相应的逗号。（6）如果不需要返回值，则可以使用MsgBox的命令形式。参数1出现按钮说明值021345确定按钮确定和取消按钮终止、重试和忽略按钮是、否和取消按钮是和否按钮重试和取消按钮vbOKOnlyvbAbortRetryIgnorevbOKCancelvbYesNoCancelvbYesNovbRetryCancel常量图例参数2图标类型说明值16483264停止图标感叹号图标问号图标信息图标vbCreticalvbQuestionvbExclamationvbInformation常量图例参数3默认按钮指定默认为第1按钮指定默认为第3按钮说明值0521256vbDefaultButton1常量指定默认为第2按钮vbDefaultButton2vbDefaultButton3函数的返回值说明值132456确定按钮取消按钮终止按钮重试按钮忽略按钮是vbOKvbAbortvbCancelvbRetryvbIgnorevbYes常量7否vbNo5.3.2MsgBox语句MsgBox函数也可以写成语句形式，即：MsgBox(信息内容[,对话框类型[,对话框标题]])MsgBox语句没有返回值，因而常用于较简单的信息显示。5.4字形VisualBasic可以输出各种英文字体和汉字字体，并可通过设置字形的属性改变字体的大小、笔画的粗细和显示方向，以及加删除线、下划线、重叠等。2．字体大小字体大小通过FonSize属性设置，一般格式为：FonSize[=点数]这里的“点数”用来设定字体的大小。在默认情况下，系统使用最小的字体，“点数”为9。如果省略“=点数”，则返回当前字体的大小。5.4.2其他属性1．粗体字粗体字由FontBold属性设置，一般格式为：FontBold=[Boolean]该属性可以取两个值，即True和False，默认为False。2．斜体字斜体字通过FontItalic属性设置，其格式为：FontItalic=[Boolean]当该属性被设置为True时，文本以斜体字输出。默认为False。3．加删除线一般格式为：FontStrikethru=[Boolean]如果把FontStrikethru属性设置为True，则在输出的文本中部画一条直线，直线的长度与文本的长度相同。4．加下划线其格式为：FontUnderline=[Boolean]下划线即底线，用FontUnderline属性可以给输出的文本加下划线。该属性的默认值为False。5．重叠显示一