《Visual Basic程序设计（第4版）》第4章 顺序结构程序设计

单元四

顺序结构程序设计单元四顺序结构程序设计数据输出

1常用基本语句

2利用文本框进行数据输入

3使用对话框

44.1数据输出4.1.1直接输出到窗体1.使用Print方法

[〈对象名〉.]Print[表达式表][{,|;}]逗号分隔符，各输出项按标准输出（分区输出）格式显示，此时，以14个字符宽度为单位将输出行分为若干区段，逗号后面的表达式在下一个区段输出。分号分隔符，按紧凑格式输出，即各输出项之间无间隔地连续输出。PrivateSubCommand1_Click()

PrintPrint"2*3+4=";2*3+4

Print Print"祝你学好"Print,"Visual«

Print,,"Baisc"

PrintPrint"祝您学好",

Print"Visual";"Baisc"EndSub2.与Print方法有关的函数

(1)Tab函数

(2)Spc函数PrivateSubForm_Click()ShowFontSize=12PrintPrintTab(10);"姓名";Tab(25);"性别";Tab(40);"年龄"PrintPrintTab(10);"张红";Tab(25);"女";Tab(40);17PrintTab(10);"海小翔";Tab(25);"男";Tab(40);18EndSub3.使用位置属性和字体属性PrivateSubCommand1_Click()DimxAsStringx="轻轻松松学VB"FontSize=20

FontName="黑体"CurrentX=2000CurrentY=1500ShowPrintxEndSub4.清除方法ClsPrivateSubCommand2_Click()

ClsEndSub4.1.2使用Label控件实现数据输出PrivateSubCommand1_Click()Label1.Caption="你是男是女呀？"

Label2.Caption="女生"

Label2.Alignment=2

Label2.BorderStyle=0EndSub

Label控件的常用属性：

(1)Caption属性用来在标签中显示文本。在缺省情况下，Caption（标题）是Label控件中唯一的可见部分。

(2)BorderStyle属性用来设置标签的边框。该属性可以取两个值，即0和1。默认情况下，该属性值为0，标签无边框。如果把BorderStyle（边框样式）属性设置成1，那么Label就有了一个边框。

(3)其他外观属性可以通过设置Label控件的BackColor、ForeColor和Font等属性来改变Label的外观。返回目录4.2常用基本语句4.2.1赋值语句[Let]〈名称〉=〈表达式〉实现两变量的交换。PrivateSubCommand1_Click()t=Label3.CaptionLabel3.Caption=Label4.CaptionLabel4.Caption=tEndSub

4.2.2卸载对象语句UnloadUnload〈对象名〉PrivateSubCommand2_Click()UnloadMe'Me表示按钮所在的窗体对象EndSub4.2.3注释语句RemRem〈注释内容〉'〈注释内容〉例如：s=pi*r^2'计算圆的面积v=4/3*pi*r^3:Rem计算球的体积返回目录4.3利用文本框进行数据输入4.3.1TextBox控件的简单使用

(1)Text属性：文本框中包含的文本内容。

(2)Locked属性：控件是否可编辑。Locked属性值为True时，文本框内容不可编辑；为False时可编辑。

(3)PassWordChar属性：显示在文本框中的替代符，如一串“*”号等。主要用于口令的输入。

(4)MaxLength属性：显示在文本框中的字符数，超出部分不接收，并同时发出嘟嘟声。PrivateSubForm_Load()Text1.Text="":Text2.Text=""Text3.Text="":Text4.Text=""Text5.Text=""

Text5.Locked=True

EndSubPrivateSubCommand1_Click()DimaAsSingle,bAsSingle,cAsSinglea=Val(Text2.Text)

b=Val(Text3.Text)c=Val(Text4.Text)Text5.Text=(a+b+c)/3EndSub4.3.2多行文本的输入MultiLine值为False，ScrollBars值为0（缺省情况下）MultiLine值为True，ScrollBars值为0MultiLine值为True，ScrollBars值为2MultiLine值为True，ScrollBars值为14.3.3焦点与Tab键序

焦点就是光标，当对象具有“焦点”时才能响应用户输入。当控件的Visible和Enabled属性值为True时，控件才能接收焦点。但是，某些控件不具有焦点，如标签、框架、计时器等。程序运行时，可以通过下列方法改变焦点：

用鼠标单击对象。

按〈Tab〉键或〈Shift〉+〈Tab〉在当前窗体的各对象之间巡回移动焦点。

按热键选择对象。控制Tab键序的属性有：1)TabIndex属性：决定控件接收焦点的顺序。2)TabStop属性：决定焦点是否能够停在该控件上。

4.3.4Frame控件PrivateSubCommand1_Click()DimhAsInteger,mAsInteger,sAsInteger

DimxAsLongh=Val(Text1.Text)

m=Val(Text2.Text)

s=Val(Text3.Text)

x=h*3600+m*60+s

Label1.Caption="共计秒数"&Str(x)&"秒"EndSub返回目录4.4使用对话框实现数据输入输出4.4.1输入框（InputBox）InputBox函数显示一个能接受用户输入数据的对话框，并返回用户在对话框中输入的信息。

变量=InputBox(〈信息内容〉[,〈对话框标题〉][,〈默认内容〉])PrivateSubCommand1_Click()DimhAsInteger,fAsIntegerh=Val(InputBox("鸡和兔的总头数","请输入",0))f=Val(InputBox("鸡和兔的总脚数（偶数）","请输入",0))x=(4*h–f)/2y=(f–2*h)/2Label2.Caption="设笼中鸡和兔的总头数为"&h&",总脚数为"&f&"。"Label3.Caption="则笼中鸡有"&x&"只,兔有"&y&"只。"EndSub4.4.2消息框（MsgBox）

MsgBox函数在对话框中显示信息，等待用户单击按钮，并返回一个整数以标明用户单击了哪个按钮。MsgBox函数的语法格式为：

变量=MsgBox(〈消息内容〉[,〈对话框类型〉[,〈对话框标题〉]])〈对话框类型〉有3个参数。参数1——出现按钮值常量说明0vbOKOnly确定按钮1vbOKCancel确定和取消按钮2vbAbortRetryIgnore终止、重试和忽略按钮3vbYesNoCancel是、否和取消按钮4vbYesNo是和否按钮5vbRetryCancel重试和取消按钮参数2——图标类型值常量说明16vbCritical停止图标32vbQuestion问号（？）图标48vbExclamation感叹号（！）图标64vbInformation消息图标参数3——默认按钮值常量说明0vbDefau