复习算法的执行流程以及代码实现.ppt

1、算法的执行流程以及代码实现,顺序结构,Dim a as double, b as double a = input(val(“请输入a:”) b = input(val(“请输入b:”) a = a + b b = a b A = a b Print a Print b,分支结构,单分支结构If a0 then b = a * 10 End If 双分支结构If (x0 or x=0) then y = x Else y = - x End If,分支结构的嵌套,设有如下函数：输入x，要求输出y的值。 1x 0 y =0 x = 0 -1x 0,Dim x as Integer, y as I

2、nteger x = Val(InputBox (“输入x”) If x 0 Then y = 1ElseIf x = 0 Then y = 0Else y = -1End If Print y,循环语句1当循环,Do WhileLoop 结构 Do While 条件表达式 语句块 Loop例：求10以内所有偶数的和 s = 0 : i = 2 Do while i = 10 s = s + i : i = i + 2 Loop For next 结构 For 循环变量 = 初值 to 终值Step步长 语句块 Next 循环变量 s = 0 For i = 2 To 10 Step 2 s

3、= s + i Next i,“当型”循环特点：先判断，再执行，有可能循环体一次也不执行,循环语句2Do LoopUntil 直到型循环,Do 语句块 Loop Until 条件表达式 直到型循环 例：求10以内所有 s = 0 : i = 2 Do s = s + i i = i + 2 Loop until i 10,Do Loop Until,“直到型”循环特点：先执行，再判断，最少执行一次循环体，直到条件成立，退出循环,循环结构+分支结构,此算法的功能是：,输出所有11000内（包括1、1000）能被3整除的整数。,代码2(Do While Loop)： I = 1 Do While

4、I = 1000 If I mod 3 = 0 then Print I End If I = I + 1 Loop,解析算法例题：已知一元二次方程ax2+bx+c=0的系数a、b、c，求方程的解x。,算法分析： 输入a、b、c； 计算d=b2-4ac的结果，d0，输出两个解x1、x2 ；d=0，输出一个解x1 ；d0 ，输出“无解” 。,解析算法例题流程图：,解析算法例题代码：,Dim a as single, b as single, c as single, d as single Dim x1 as single, x2 as single a = val(InputBox(“输入a:

5、”) b = val(InputBox(“输入b:”) c = val(InputBox(“输入c:”) d = b * b -4 * a * c If d=0 then If d 0 then x1=(-b+ sqr(d) / (2*a) x2= (-b- sqr(d) / (2*a) print “两个解：”x1,x2 Else x1=(-b) / (2*a) print ”一个解：“x1 End If Else print “无解” End If,枚举算法例题一个五位数，模糊的是千位与十位上的数字(如下图) ，已知该数是57或67的倍数，请设计算法流程图求出所有的可能，并根据流程图写出代

6、码。,提示，要用到2个变量。0 i，j9。,注：程序设计中，最终结果在控件list(列表)中显示，使用到了该控件的.addItem属性，该属性只能添加字符串内容。,完整拓展流程图,循环嵌套、两种代码结构比较,Dim i As Integer, j As Integer, n As Integer, c As Integer n = 0: c = 0 For i = 0 To 9 step 1 For j = 0 To 9 step 1 n = 10407 + i * 1000 + j * 10 If (n Mod 57 = 0 Or n Mod 67 = 0) Then List1. AddItem (Str(n) c = c + 1 End If Next j Next i,Dim i As Integer, j As Integer, n As Integer, c As Integer i = 0: n = 0: c = 0 Do While i = 9 j = 0 Do While j = 9 n = 10407 + i * 1000 + j * 10 If