新Visual Basic程序设计（第三版） 电子教案+源代码（前9章） 潘地林 第4章.pptVIP

第四章Visual Basic程序控制结构 本章主要内容 1 顺序结构 2 选择结构 3 循环结构 4 其他控制结构 Visual Basic基本控制结构 VB具有三种基本的流程控制结构：顺序结构、条件分支结构和循环结构 4.1 顺序结构 在顺序结构中程序语句是严格按书写顺序依次执行，是最简单、最基本的控制结构。 4.4.1赋值语句: 变量名＝表达式 对象名.属性名＝表达式 说明:(1)赋值号两侧精度不统一时 ①以左侧为准； A1%=6.845 表达式右侧的值经四舍五入为７赋给整型变量A1。 X!=6.2831528# 将表达式右侧双精度值(16位)降为单精度(7位)赋给单精度型变量Ｘ。 ②字符串→数值变量时，字符串转换为数值； 　a%=“31.456”　　　变量a的值为３１ a!=“31.456”　　　变量a的值为３１.456 a%=“31xy34”　　　出现类型不匹配错误 ③逻辑值：“真”为-1，“假”为0； ④任何非字符型数据赋值给字符型变量时将被转换为 字符型。 (2)赋值号左侧只能是“变量”。 (3)一个赋值语句只能给一个变量赋值。 dim a as long,b as long,c as long a=b=c=10 不合法，其值为false 　　　 4.1.2应用举例 例4-1输入圆的半径，计算圆的面积*。 源程序代码 Private Sub Form_click() Dim a As Long, b As Long, c As Long a = 5000 b = 1000 Print a=; a, b=; b c = a a = b b = c Print a=; a, b=; b End Sub 4.2 选择结构 用于根椐某个给定条件进行判断或比较的结果来决定执行什么样的操作,这就需要用到条件分支结构来实现。 4.2.1 if 语句 单分支(简单分支结构) If语句的三种形式： 双分支结构 多分支结构 1.单分支(简单分支结构) 单行结构 块结构 (1) 单行结构语句格式： if 条件表达式 then 语句行 块结构的语法格式： (2) 块结构的语法格式： If 条件语句 then 语句块 End if *例: 输入a、b两个数比较两数,如果ab则在窗体上输出 “Ab”,如果a=b,则输出“a=b”,否则将a、b两数进行 交换后输出。 Private Sub Form_click() Dim a As Integer, b As Integer, t As Integer a = InputBox(请输入a的值) b = InputBox(请输入b的值) If a b Then Print ab If a = b Then Print a=b P67 例4-3 ***例4-3编写验证用户名和密码的应用程序,假定用户名为“wang”，密码为“123”，若输入正确，弹出消息提示“输入正确”，运行结果如下： 2. 双分支 if语句 当满足某个条件执行一段指定程序代码操作,而不满足执行另一段程序代码,此时可用选择分支（双分支）语句来完成。 选择语句语法格式： if 条件表达式 then 语句块1 else 语句块2 end if 例：p68 4-5*** Private Sub Form_click() Dim x As Single, y As Single x = InputBox(请输入X的值) If x 0 Then y = Sin(x) + Sqr(x ^ 2 + 1) Else y = Cos(x) - x ^ 3 + 3 * x End If Print x=; x, y=; y End Sub 3.多分支结构 （1）if…then…elseif 语句语法格式： if 条件表达式1 the