《Visual Basic程序设计 教学课件 ppt 作者 解凯 陈如琪 第四章 Visual Basic控制结构》由会员分享，可在线阅读，更多相关《Visual Basic程序设计 教学课件 ppt 作者 解凯 陈如琪 第四章 Visual Basic控制结构（73页珍藏版）》请在金锄头文库上搜索。
1、第四章 Visual Basic控制结构,4.1 顺序结构 4.2 选择结构 4.3 循环结构 4.4 其它辅助控制语句 4.5 常用算法（一） 4.6 常见错误 （顺序、条件、循环）,4.1 顺序结构,顺序结构： 该结构中，各语句按出现的先后次序执行。 顺序结构中的语句主要有: 赋值语句 输入/输出语句 VB中的输入/输出语句可以通过 文本框控件 Print方法 用户交互的函数和过程 来完成输入、输出功能,一、赋值语句,形式: 变量名表达式 作用: 先计算右边的表达式的值，然后将值赋给左 边的变量。一般用于给变量赋值或对控件设 定属性值. 例: sRate!=0.1 Text1.Text “
2、欢迎使用Visual Basic 6.0” intx=5+6*10 计数器 count%=0 count=count+1,当表达式的类型与变量的类型不一致时,按照下面的规则处理： 1 右边表达式为数值型而与左边变量精度不同时，强制转换为左边的精度。 iA% = 10 / 3 iA中的结果为3 2 表达式为数字字符串型，左边变量是数值型，自动转换成数值类型再赋值，但当有非数字字符或空串时，则出错。 n%=“123” n中的结果为：123 n%=val(“123”) n%=“1a23”,赋值语句,3 当逻辑型值赋给数值型时，T转换为 1，F转换为0。反之，当数值型赋给逻辑型时，非0转换为T，0转换
3、为F。 4 任何非字符类型赋值给字符类型，自动转换为字符类型。,赋值语句,注意,虽然赋值号与关系运算符等于号都用“=”表示，VB系统会根据所处的位置自动判断是何种意义的符号。例如：赋值语句a=b和b=a是不同的两条语句，而在关系表达式中a=b和b=a是等价的。 赋值号左边只能是变量或属性，不能是常量、常数符号或表达式。 如：sin(x)=x+y; 0=sin(x); x*y=8 不能在一句赋值语句中同时给多个变量赋值。 如 dim x, y, z x=y=z=1 (结果为0) 常用的赋值语句：sum=sum+x,二.数据的输入,1. 对话框输入 ：InputBox函数 InputBox(提示，
4、标题，缺省，x 坐标位置 ，y坐标位置) 其中: 提示 提示信息, 不能省略，字符串表达式, 标题 对话框标题,字符串表达式 缺省字符串表达式，输入区缺省值 x, y 整型表达式，左上角的位置，Twip 注意：各项参数必须一一对应，可省略部分要用逗号分开。,例如在(100,100)位置显示输入框, 其中默认值省略 userName = InputBox（“请输入你的姓名” , “输入姓名” , , 100 , 100） 当输入姓名“王伟”并单击“确定”按钮，则将输入框中的输入值送到变量userName中。若按“取消”按钮，则返回一个0长度的字符串。,例4-1 输入摄氏温度c，请转换为华氏温度f
5、输出。 分析：摄氏温度转换成华氏温度的公式为： F=9/5*c+32 编写事件过程程序如下： Private Sub Form_Click() Dim c !, f ! c=val(InputBox (“ 请输摄氏入温度”, “计算华氏温度”) f=9/5*c+32 print “摄氏温度c=”;c, “华氏温度f=”;f End Sub,例 某商场营业员的总工资由两部分组成：基本工资 和营业额提成。基本工资一般为300元；营业额提成 是营业额的5%。要求输入基本工资、本月的营业 额，显示实发工资。 Private Sub Form_Click() Dim jbgz!, sfgz!, x As
6、 Single jbgz = Val(InputBox(“输入基本工资“, “工资计算“, 300) x = Val(InputBox(“输本月入营业额“) sfgz = jbgz + x * 0.05 Print “本月实发工资=“; sfgz End Sub,2用文本框输入,文本框控件可以用作数据的输入，在运行时接受用户输入的数据。 例如，将文本框text1中输入的字符串赋给字符串变量Mystr，代码如下： Dim Mystr as String Mystr=Text1.Text 由于文本框的Text属性为字符串类型，因此要想将输入到文本框的内容作为数值输入，要进行类型转换。,例4-2输入
7、二元一次方程的系数，求二元一次方程的解。 分析：二元一次方程的求解公式为： 在窗体上通过文本框输入方程的系数，单击“求解”按钮后，方程的解显示在标签中。,Private Sub Command1_Click() Dim a11 As Single, a12 As Single, a21 As Single, a22 As Single Dim b1 As Single, b2 As Single Dim x As Single, y As Single a11 = Val(Text1.Text) a12 = Val(Text2.Text) b1 = Val(Text3.Text) a21 =
8、Val(Text4.Text) a22 = Val(Text5.Text) b2 = Val(Text6.Text) x = (b2 * a12 - b1 * a22) / (a21 * a12 - a11 * a22) y = (b2 * a11 - b1 * a21) / (a22 * a11 - a12 * a21) Label5.Caption = “x=“ & x Label6.Caption = “y=“ & y End Sub,注：变量不能用下小标 a11,三、数据输出,1 文本框不仅可以输入数据，也可用于数据的输出。例如变量x中存放计算结果，将结果在文本框中输出： Text1.
9、Text=x 注意：使用文本框输出数据，如果希望数据不被修改，可设置属性Locked为True。 例4-3已知圆半径，求圆周长和圆面积。 界面设计：在窗体上，建立两个文本框，分别用于输出圆周长和圆面积，建立两个标签用于说明，一个命令按钮用于启动。,Private Sub Command1_Click() Dim r!, s!, p! r = Val(InputBox(“请输入半径“) p = 2 * 3.14159 * r s = 3.14159 * r * r Text1.Text = p Text2 = s End Sub,2 标签输出数据,用标签(Label）输出数据就是数据赋给标签的C
10、aption属性。例如在标签Label1上显示变量x的值，可以使用如下语句： Label1.Caption=x 例如，如下程序段显示圆的周长。 r=val(Text1.Text) Label1.Caption=“圆的周长=” & 2*3.14*r,3 输出消息对话框,MsgBox用于在屏幕上显示一个消息对话框，可向用户发布消息，并等待用户选择一个按钮。MsgBox有两种形式： 函数：返回值=MsgBox(提示,按钮,标题) 过程： MsgBox 提示,图标和按钮类型,标题 “提示”和“标题”的含义与输入对话框类似 按钮：整型表达式，决定消息框按钮的数目、含义及出现在消息框上的图标类型,Msgb
11、ox “提示信息” i= MsgBox (“是否退出?“, vbQuestion + vbYesNo, “询问“) i=msgbox(“密码错出”，5，“警告”） i1=msgbox(“密码错出”，5+vbExclamation，“警告”）,例4-4已知三角形的三边长度，求三角形的面积。 Private Sub Command1_Click() Dim a!, b!, c!, p!, s! a = Text1 b = Text2 c = Text3 p = (a + b + c) / 2 s = Sqr(p * (p - a) * (p - b) * (p - c) MsgBox “三角形的面
12、积=“ & s, vbInformation + vbOKOnly End Sub,4.2 选择结构（或称分支结构）,1 IfThen语句(单分支结构) 语句形式： （1）If Then 语句块或语句 End If （2）If Then 作用：当表达式的值为True时执行Then后面的语句块（或语句），否则不做任何操作。 说明：1) 表达式一般为关系表达式、逻辑表达式，也可以为算术表达式，非0为True，0为False； 2) 语句块可以是一条或多条语句。若用（2）式表示，则只能是一条语句，若多条语句，语句间需用冒号分隔，而且必须在一行上书写。,例4.5 已知两个数x和y，比较它们的大小，使得
13、 x大于y。 方法一： If xy Then t=x x=y y=t End If 方法二： If xy Then t=x : x=y : y=t 练习：求输入整数的绝对值,2IfThenElse语句（双分支结构） （1）If Then Else End If （2） If Then Else 作用：当表达式的值为True时执行Then后面的语句块1（或语句1），否则执行Else后面的语句块2（或语句2）,例4.6 计算分段函数的值,Private Sub Command1_Click() Dim x As Single, y As Single x = Val(Text1.Text) If
14、x 0 Then y = x * x - 5 Else y = 2 * x + 1 End If Text2.Text = y End Sub,3. IfThenElseIf语句（多分支结构）,If Then ElseIf Then Else 语句块 n+1 End If 根据表达式的值确定执行哪个语句快，VB测试条件的顺序 为表达式1、表达式2一旦遇到表示式值为真，则执行该条 件下的语句快，其余分支不执行。如果所有表达式的值均为 假，且有Else字句，则执行语句块n+1，否则，什么也不执 行，然后执行End If后的语句,例4.7已知输入某课程的百分制成绩mark，要求显示对应五级制的评定,
15、Private Sub Command1_Click() Dim mark As Single Dim y As String mark=Text1.Text If mark 100 Then y = “成绩数据错误!“ ElseIf mark 60 Then y = “不及格“ ElseIf mark 70 Then y = “及格“,ElseIf mark 80 Then y = “中“ ElseIf mark 90 Then y = “良“ Else y = “优“ End If Label1.Caption = y End Sub,例4.8在购买某物品时，按所花钱数给予不同的折扣，设x
16、为所花钱数，d为折扣率。编写程序计算应付款。,Private Sub Command1_Click() Dim x As Single, y As Single, d As Single x = Text1.Text If x 1000 Then d = 0 ElseIf x 2000 Then d = 0.1 ElseIf x 3000 Then d = 0.2 Else d = 0.3 End If y = x - x * d Label3.Caption = y End Sub,4If语句的嵌套,If语句的嵌套是指If或Else后面的语句块中又包含If语句。语句形式： If Then If Then End If Else If Then else end If End If,注意： 1）对于嵌套结构，为了增强 程序的可读性，应该采用缩进 形式书写；
