第4章顺序结构程序设计电子课件 中职 高教版 Visual Basic程序设计（第4版）.pptx

第4章 顺序结构程序设计电子课件 中职 高教版 Visual Basic程序设计（第4版）单元四单元四单元四单元四 顺序结构程序设计顺序结构程序设计顺序结构程序设计顺序结构程序设计单元四单元四 顺序结构程序设计顺序结构程序设计数数数数 据据据据 输输输输 出出出出 1 1 1 1常用基本语句常用基本语句常用基本语句常用基本语句 2 2 2 2利用文本框进行数据输入利用文本框进行数据输入利用文本框进行数据输入利用文本框进行数据输入 3 3 3 3使用对话框使用对话框使用对话框使用对话框 4 4 4 44.1 数据输出4.1.1 直接输出到窗体1.使用Print方法 对象名象名.Print 表达式表表达式表,|;逗号分隔符逗号分隔符，各，各输出出项按按标准准输出（分区出（分区输出）格式出）格式显示，此示，此时，以，以14个字符个字符宽度度为单位将位将输出行分出行分为若若干区段，逗号后面的表达式在下一个区段干区段，逗号后面的表达式在下一个区段输出。出。分号分隔符分号分隔符，按，按紧凑格式凑格式输出，即各出，即各输出出项之之间无无间隔地隔地连续输出。出。Private Sub Command1_Click()Print Print 2*3+4=;2*3+4 Print Print 祝你学好祝你学好 Print,Visual Print,Baisc Print Print 祝您学好祝您学好,Print Visual;BaiscEnd Sub2.与Print方法有关的函数(1)Tab函数函数(2)Spc函数函数Private Sub Form_Click()Show FontSize=12 Print Print Tab(10);姓名姓名;Tab(25);性性别;Tab(40);年年龄 Print Print Tab(10);张红;Tab(25);女女;Tab(40);17 Print Tab(10);海小翔海小翔;Tab(25);男男;Tab(40);18End Sub3.使用位置属性和字体属性Private Sub Command1_Click()Dim x As String x=轻轻松松学VB FontSize=20 FontName=黑体 CurrentX=2000 CurrentY=1500 Show Print x End Sub4.清除方法ClsPrivate Sub Command2_Click()ClsEnd Sub4.1.2 使用Label控件实现数据输出Private Sub Command1_Click()Label1.Caption=你是男是女呀？你是男是女呀？Label2.Caption=女生女生 Label2.Alignment=2 Label2.BorderStyle=0 End Sub 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名称名称=表达式表达式实现两两变量的交量的交换。Private Sub Command1_Click()Private Sub Command1_Click()t=Label3.Caption t=Label3.Caption Label3.Caption=Label4.Caption Label3.Caption=Label4.Caption Label4.Caption=t Label4.Caption=tEnd SubEnd Sub 4.2.2 卸载对象语句UnloadUnload 对象名象名Private Sub Command2_Click()Unload Me Me表示按钮所在的窗体对象End Sub4.2.3 注释语句Rem Rem 注注释内容内容 注注释内容内容 例如：例如：s=pi*r 2 计算算圆的面的面积 v=4/3*pi*r 3:Rem 计算球的体算球的体积返回目录4.3 利用文本框进行数据输入4.3.1 TextBox控件的简单使用 (1)Text属性：文本框中包含的文本内容。(2)Locked属性：控件是否可编辑。Locked属性值为 True时，文本框内容不可编辑；为False时可编辑。(3)PassWordChar属性：显示在文本框中的替代符，如一串“*”号等。主要用于口令的输入。(4)MaxLength属性：显示在文本框中的字符数，超出部分不接收，并同时发出嘟嘟声。Private Sub Form_Load()Text1.Text=:Text2.Text=Text3.Text=:Text4.Text=Text5.Text=Text5.Locked=True End SubPrivate Sub Command1_Click()Dim a As Single,b As Single,c As Single a=Val(Text2.Text)b=Val(Text3.Text)c=Val(Text4.Text)Text5.Text=(a+b+c)/3 End Sub4.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.4 Frame控件Private Sub Command1_Click()Dim h As Integer,m As Integer,s As Integer Dim x As Long h=Val(Text1.Text)m=Val(Text2.Text)s=Val(Text3.Text)x=h*3600+m*60+s Label1.Caption=共共计秒数秒数&Str(x)&秒秒 End Sub返回目录4.4 使用对话框实现数据输入输出4.4.1 输入框（InputBox）InputBox函数显示一个能接受用户输入数据的对话框，并返回用户在对话框中输入的信息。变量量=InputBox(信息内容信息内容,对话框框标题,默默认内容内容)PrivateSubCommand1_Click()DimhAsInteger,fAsIntegerh=Val(InputBox(鸡和兔的和兔的总头数数,请输入入,0)f=Val(InputBox(鸡和兔的和兔的总脚数（偶数）脚数（偶数）,请输入入,0)x=(4*hf)/2y=(f2*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默认按钮默认按钮值常量说明0vbDefaultButton1默认按钮为第一按钮256vbDefaultButton2默认按钮为第二按钮512vbDefaultButton3默认按钮为第三按钮msg=MsgBox(请确认输入的数据是否正确！,3+32+0,数据检查)若不需要返回若不需要返回值，则可以使用可以使用MsgBox的命的命令形式：令形式：MsgBox信息内容信息内容,对话框框类型型,对话框框标题返回目录结束返回目录