第3章 数据的输入与输出

《第3章 数据的输入与输出》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第3章数据的输入与输出第3章数据的输入与输出输入与输出是程序设计中的重要环节。没有输出操作的程序不会有什么实用价值，而没有输入的程序则缺乏灵活性。VB提供了多种手段使输入输出操作灵活、多样、方便和直观。本章介绍VB的输入、输出操作，以及与之有关的控件。3.1数据输出VB的输出操作包括文本信息的输出和图形图像的输出，本章主要介绍文本信息的输出。3.1.1Print方法在早期版本的BASIC语言中，数据的输出主要通过Print语句来实现。在VB中Print是作为对象的方法来使用的。1.使用Print

2、方法使用Print方法可以在窗体上输出文本字符串或表达式的值，其语法格式为：[〈对象名称〉.]Print[〈表达式列表〉][{,

3、;}]其中，〈对象名称〉可以是窗体（Form）、图片框（PictureBox）或打印机（Printer）。如果省略“对象名称”，则在窗体上直接输出。〈表达式列表〉是一个或多个表达式，可以是数值表达式或字符串。对于数值表达式，将输出表达式的值；对于字符串，则照原样输出。如果省略“表达式列表”，则输出一个空行。【例3-1】使用Print方法在窗体中直接输出字符串或数值表达

4、式的值，如图3-1所示。图3-1使用Print方法【例3-1】使用Print方法在窗体中直接输出字符串或数值表达式的值，如图3-1所示。命令按钮Command1的Click事件代码：PrivateSubCommand1_Click()PrintPrint"2*3+4=";2*3+4'使用“;”分割符Print'输出一个空行Print"欢迎学习"Print,"Visual"'使用“,”分割符Print,,"Baisc"'使用两个“,”分割符PrintPrint"欢迎学习",'在行末使用“,”分割符

5、Print"Visual";"Baisc"EndSub2.与Print方法有关的函数为了使数据按指定的位置输出，VB提供了几个与Print相配合的函数。(1)Tab函数在Print方法中，可以使用Tab函数来对输出进行定位。其格式为：Tab(n)其中n为数值表达式，其值为一整数。Tab函数把显示或打印位置移到由参数n指定的列数，从此列开始输出数据。要输出的内容放在Tab函数后面，并用分号隔开。例如：PrintTab(10);"姓名";Tab(30);"年龄"(2)Spc函数在Print方法中

6、，还可以使用Spc函数来对输出进行定位。与Tab函数不同，Spc函数提供若干空格。其格式为：Spc(n)其中n为数值表达式，其值为一整数，表示在显示或打印时下一个表达式之前插入的空格数。Spc函数与输出项之间用分号隔开。例如：Print"ABC";Spc(5);"DEF"'输出：ABCDFE当Print方法与不同大小的字体一起使用时，使用Spc函数打印的空格字符的宽度总是等于选用字体内以磅数为单位的所有字符的平均宽度。【例3-2】在上例中使用Tab函数与Spc函数，只需改写命令按钮的Clic

7、k事件代码：PrivateSubCommand1_Click()PrintPrintTab(5);"2*3+4=";2*3+4PrintPrintTab(6);"欢迎学习";Tab(17);"VisualBaisc"PrintPrintTab(7);"欢迎学习";Spc(3);"Visual";Spc(2);"Baisc"EndSub3.Print方法的精确定位要精确地把文本输出到窗体、图片框或打印页上，可以使用位置属性（CurrentX和CurrentY）与文本的高度宽度方法（TextHeig

8、ht和TextWidth）。CurrentX和CurrentY属性分别用来返回或设置当前输出位置的横坐标与纵坐标，TextHeight和TextWidth方法则分别可以返回一个字符串文本的高度值和宽度值。其单位均为Twip。TextHeight和TextWidth方法的格式为：[对象名称.]TextHeight(字符串)[对象名称.]TextWidth(字符串)其中，对象名称可以是窗体、图片框或打印机对象。【例3-3】下面程序把字符串文本“计算机等级考试”输出到窗体的中间，如图3-3

9、所示。只需编写窗体的Click事件代码：PrivateSubForm_Click()DimtextWAsInteger,textHAsIntegerPrintText$="计算机等级考试"textW=TextWidth(Text)/2'文本的宽度TextWidth(Text)textH=TextHeight(Text)/2CurrentX=ScaleWidth/2-textW'窗体的宽度属性ScaleWidthCurrentY=ScaleHeight/2-textH'设置垂直位置PrintTex