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"欢迎使用VisualBasic"

Picture1.Print"欢迎使用VisualBasic"

Debug.Print"欢迎使用VisualBasic"

Printer.Print"欢迎使用VisualBasic"

Print"欢迎使用VisualBasic"

"

（2）“表达式表”是一个或多个表达式，可以是数值表达式或字符串。对于数值表达式，打印出表达式的值；而字符串则照原样输出。（3）当输出多个表达式或字符串时，各表达式用分隔符（逗号、分号或空格）隔开。如果输出的各表达式之间用逗号分隔，则按标准输出格式（分区输出格式）显示数据项。如果各输出项之间用分号或空格作分隔符，则按紧凑输出格式输出数据。

当输出数值数据时，数值的前面有一个符号位，后面有一个空格，而字符串前后都没有空格。

8大家有疑问的，可以询问和交流可以互相讨论下，但要小声点（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行宽；如果n<1，则把输出位置移到第一列。③当在一个Print方法中有多个Tab函数时，每个Tab

函数对应一个输出项，各输出项之间用分号隔开。2.Spc函数格式：Spc(n)在显示或打印列表中的下一个表达式之前插入n个空格数。Print"ABC";Spc(8);"DEF"说明：①Spc函数与输出项之间用分号隔开。②Spc函数与Tab函数的作用类似，可以互相代替。

3.空格函数格式：Space$(n)Space$函数返回n个空格。

a$="a"+Space$(4)+"b"Printa$输出结果：a□□□□b5.1.3格式输出使用格式化函数Format（）可以使数值、日期或字符型数据按指定的格式输出。格式为：Format（表达式[，格式字符串]）数值型格式实例：

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字符型格式实例：

PrintFormat("ABcd","@@@@@@")PrintFormat("ABcd","&&&&&&")PrintFormat("ABcd","<@@@@@@")PrintFormat("ABcd",">@@@@@@")PrintFormat("ABcd","!@@@@@@")日期与时间格式实例：

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．重叠显示一般格式为：FontTransParent

=[Boolean]如果该属性被设置为True，则前景