Visual Basic程序设计及应用 教学课件 作者 郑丽敏 VB第4章.ppt

4.2.4 条件函数 Choose函数 Choose( 整数表达式, 选项列表 ) 根据整数表达式的值来决定返回选项列表中的某个值 例如：Op = Choose(N, ＋, －, ×, ÷) Select Case N Case 1 Op = ＋ Case 2 Op = － Case 3 Op = × Case 4 Op = ÷ End Select If N = 1 Then Op = ＋ ElseIf N = 2 Then Op = － ElseIf N = 3 Then Op = × ElseIf N = 4 Then Op = ÷ End If * 4.3 循环结构 循环 在给定的条件下多次重复的执行某一程序块。被重复执行的程序块称为“循环体” 循环结构语句 计数循环（For … Next ） Do循环（Do … Loop） 当循环（While … Wend） 4.3.1 For-Next循环语句 格式 For 循环变量 = 初值 To 终值 [Step 步长] [循环体] Next [循环变量] 执行过程 初值=循环变量,记下终值、步长 判断循环变量是否“超过”终值？ 如果没“超过”，进入?，否则退出循环 执行循环体 执行Next语句，循环变量＋步长，转向? T 循环变量超过终值？ 执行循环体 F 初值 =循环变量 循环变量+步长=循环变量 * 4.3.1 For-Next循环语句 * 说明 Step 步长可省略，默认值步长为1 步长为正，初值应该小于终值 步长为负，初值应该大于终值 Next后面的循环变量可以省略 如果不省略，必须同For后面的循环变量相同 循环次数 For i = 1.2 To 5.8 Step 1.2 （4次） 4.3.1 For-Next循环语句 * 循环变量是否出现在循环体内 一般不要在循环体内修改循环变量的值，以免影响循环次数而出现逻辑错误 y = 1 For x = 1 To 5 y = y * x Next x y = 1: n = 2 For x = 1 To 5 y = y * n Next x For x = 1 To 5 Print x; x = x * 2 Next x For x = 1 To 5 Print x; Next x 4.3.1 For-Next循环语句 * 【例4-15】求表达式 1+(1+2)+(1+2+3)+…+(1+2+…+n)的值 sum = 0: j = 0 n = Val(InputBox(输入n的值)) For i = 1 To n j = j + i sum = sum + j Next i Print sum=; sum 0 = sum : 0 =j 输入n For i = 1 To n j + i = j sum + j = sum 输出sum 4.3.1 For-Next循环语句 * 【例4-16】求Fibonacci数列的前40个数 f1 = 1: f2 = 1 Print f1, f2, For i = 3 To 40 fn = f1 + f2 f1 = f2: f2 = fn Print fn, If i Mod 4 = 0 Then Print Next 1 = f1 : 1 = f2 输出f1, f2, For i = 3 To 40 f1 + f2 = f f2 = f1 : f = f2 输出 f, i 是 4 的倍数吗？ 真 回车换行 4.3.2 Do-Loop循环语句 * 格式1（先判断） Do While 条件 循环体 Loop 格式2（先判断） Do Until 条件 循环体 Loop 条件 循环体 F T 条件 循环体 T F 4.3.2 Do-Loop循环语句 * 格式3（后判断） Do 循环体 Loop While 条件 格式4（后判断） Do 循环体 Loop Until 条件 条件 循环体 T F 条件 循环体 T F 4.3.2 Do-Loop循环语句 * 【例4-18】用辗转相除法求两自然数m和n的最大公约数和最小公倍数 n1 = Val(InputBox(输入第一个数)) m1 = Val(InputBox(输入第二个数)) If m1 n1 Then m = m1: n = n1 Else m = n1: n = m1 End If Do r = m Mod