if语句程序设计

10
if语句的嵌套
算法2:
Dim x As Integer Dim y As Integer x = Val(InputBox("请输入数值")) If x < 0 Then y = -1 Else If x = 0 Then y=0 Else y=1 End If End If MsgBox y
16
for…next语句
例3： 计算累乘6!=1*2*6 方法：接收一个累乘的终值，确定一个循环变量，循环变量有2个作用（乘数和循环 变量），确定一个存储累乘积的变量。使用循环计算，最后输出显示结果。 Dim s As Integer, i As Integer s=1 For i = 1 To 6 s=s*i Next MsgBox s 例4：程序 S=1*2*3*4…X： Dim S As integer, I As integer x = InputBox(“请输入累加的终值") S=1 For I = l To x S=S*I Next 注意：累乘的乘数和乘积变量的初值为1。
5
if语句编程示例
例2: 输入两个实数，按由小到大的顺序输出这两个数。 Dim a As Integer Dim b As Integer Dim t As Integer a = Val(InputBox("请输入第一个数")) b = Val(InputBox("请输入第二个数")) If a > b Then t=a a=b b=t End If MsgBox Str(a) & Str(b)
If语句
我们在日常生活中经常需要处理具有两个分支的 问题，例如，如果明天下雨，则在教室内组织活动， 否则去野游。 在VB语言中，这类问题需要使用if语句解决，而 条件判断操作通常使用关系表达式或者逻辑表达式。
1
关系运算符和关系表达式
关系表达式 用关系运算符将两个表达式（可以是算术表达式或关系表达式， 逻辑表达式，赋值表达式，字符表达式）连接起来的式子，称关系 表达式。例：a>b, 1>2, 3=6。关系表达式的值是一个逻辑值，即 “真”或“假”。 关系运算符 > 大于 例：a=3,b=2,c=1,则关系表达 < 小于 式”a>b”的值为“真”；而 c>a的值为“假”。 >= 大于等于 <= 小于等于 = 等于 2 <> 不等于
12
循环结构语句
在许多问题中需要用到循环控制。循环结构是结构化程序 设计的基本结构之一，它和顺序结构、选择结构共同作为各种 复杂程序的基本构造单元。 循环结构的特点是， 在给定条件成立时，反复执行某程序 段，直到条件不成立为止。 给定的条件称为循环条件，反复执 行的程序段称为循环体。
P A
循环结构
逻辑运算符和逻辑表达式
逻辑表达式 用逻辑运算符将关系表达式或逻辑量连接起来的式子就是逻辑 表达式。逻辑表达式的值是一个逻辑值，即“真”或“假”。 逻辑运算符 and or not 例:1=2 and 3>1
与 或 非
值为“假”
3Байду номын сангаас
if语句编程示例
例1：编写程序，判断输入的整数是否为6，若是，显示“Right！” 和“Great!”，否则显示“Wrong！”和“Sorry！”
6
if语句编程示例
例3: 输入三个数a,b,c,要求按由小到大的顺序输出 n a>b If a>b If a>c If b>c 将a和b对换 将a和c对换 将b和c对换 y a>c y y n
b>c
a和b交换
a和c交换
c和b交换
7
例3: 输入三个数a,b,c,要求按由小到大的顺序输出 Dim a As Integer Dim b As Integer Dim c As Integer Dim t As Integer a = Val(InputBox("请输入第一个数")) b = Val(InputBox("请输入第二个数")) c = Val(InputBox("请输入第三个数")) If a > b Then t=a a=b b=t End If If a > c Then t=a a=c c=t End If If b > c Then t=b b=c c=t End If MsgBox Str(a) & Str(b) & Str(c)
if 条件表达式 then 语句1 else 语句2 End If
内嵌if
9
End If
if语句的嵌套
-1 (x<0) 例: 有一函数 y= 0 (x=0),编一程序，输入一个x值，输出y值。 1 (x>0) 算法1(多分支条件)： 算法2(嵌套)： 输入x 输入x 若x<0,则y=-1 若x<0,则y=-1 若x=0,则y=0 否则： 若x>0,则y=1 若x=0,则y=0 输出y 若x>0,则y=1 输出y
17
for…next语句
例5：计算1+2+3…+n 例6：计算1*2*3…*n
18
11
多分支条件语句练习
1.编写事件过程，使用输入语句接收托运行李的重量，计算托运 行李收费：托运行李重量<=25公斤，收费标准是每公斤1元， 行李重量大于25公斤，超出部分按每公斤2.5元计算。 2.编写事件过程，使用输入语句接收成绩的分数，根据成绩分数 显示不同的奖学金等级情况：成绩<60，奖学金等级0，60-69 奖学金等级3，70-79奖学金等级2，>=80分奖学金等级1。
13
循环结构语句
VB语言提供了三种循环语句，可以组成各种不同 形式的循环结构,它们是: For …Next循环 Do …Loop循环 While …wend循环
14
for…next语句
For…Next循环结构：将一段程序重复执行指定的次数。 格式： For 循环变量=初值 To 终值 [Step 步长] 循环体 Exit For Next [循环变量] 功能：执行For语句时，“循环变量”设为“初值”；执行到 Next语句时，步长加（减）到循环变量上；再执行For语句时， 若“循环变量”超过“终值”则循环结束。 步长：未指定值时默认为1。 若“步长”是正数或0，则“初值”应大于等于“终值”，否则， 15 “初值”应小于等于“终值”。
for…next语句
例1：For x= l To l00 Step 2 s=s+x If s > 50 Then Exit For Next 例2：计算100以内自然数的和：S=1+2+3+4….+100。 Dim sum As Integer, i As Integer For i = 1 To 100 Step 1 sum = sum + i Next i MsgBox sum 想一想：计算=1+3+5+7…99或2+4+6+8…100 如何编写？
开始
输入a值
真
a=6
假
显示“Right！ ” 显示“Great！ ” 结束
显示“Wrong！ ” 显示“Sorry！ ”
4
if语句编程示例
例1：编写程序，判断输入的整数是否为6，若是，显示“Right！” 和“Great!”，否则显示“Wrong！”和“Sorry！” Dim a As Integer a = Val(InputBox("请输入数值")) If a = 6 Then MsgBox "right!" MsgBox "great!" Else MsgBox "wrong!" MsgBox "sorry!" End If
if语句编程示例
8
if语句的嵌套
if语句的嵌套 在if语句中又包含一个或多个if语句称为if语句的嵌套。 一般形式： If 条件表达式 then if 条件表达式 then 内嵌if 语句1 匹配规则： else if与else的配对关系：else总 语句2 End If 是与它上面的最近的未配对的 Else if配对。