《复习：算法的执行流程以及代码实现》由会员分享，可在线阅读，更多相关《复习：算法的执行流程以及代码实现（13页珍藏版）》请在金锄头文库上搜索。
1、算法的执行流程以及代码实现顺序结构Dim a as double, b as doublea = input(val(“请输入a:”) b = input(val(“请输入b:”)a = a + b b = a b A = a bPrint a Print b开始结束输入：a ，bb a-b输出：a，ba a+ba a-b分支结构 单分支结构 If a0 or x=0) then y = x Else y = - x End Ifx=0y = xYNy = -x分支结构的嵌套 设有如下函数：输入x，要求输出y的值。1x 0 y =0x = 0-1x 0?x=0?y=1y=0y=-1YYNNx输
2、入数据Dim x as Integer, y as Integer x = Val(InputBox (“输入 x”)If x 0 Theny = 1 ElseIf x = 0 Theny = 0 Elsey = -1 End IfPrint y循环语句1当循环Do WhileLoop 结构 Do While 条件表达式语句块 Loop 例：求10以内所有偶数的和s = 0 : i = 2 Do while i 10开始计算“条件”值条件为真吗？执行循环体结束是否Do Loop Until“直到型”循环特点：先执行，再判断，最 少执行一次循环体，直到条件成立，退出 循环循环结构+分支结构开始结
3、束I 1I 0，输出两个解x1、x2 ； d=0，输出一个解x1 ； d=0?d0?x1=(-b+ sqr(d) / (2*a) x2= (-b- sqr(d) / (2*a)输出：x1,x2输出：”无解“x1=(-b) / (2*a)输出：x1YYNN解析算法例题代码：Dim a as single, b as single, c as single, d as single Dim x1 as single, x2 as singlea = val(InputBox(“输入a:”) b = val(InputBox(“输入b:”) c = val(InputBox(“输入c:”)d = b
4、 * 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的倍数，请设计算法流程图 求出所有的可能，并根据流程图写出代码。提示，要用到2个变量。0 i，j9。注：程序设计中，最终结果在控件list(列表)中显示，使 用到了该控件的.
5、addItem属性，该属性只能添加字符串 内容。完整拓展流程图开始c0， n0j 0j=9n=10407+i*1000+j*10n是57或67的倍数？ 计数器c计数：cc+1输出：真正解n的值j j+1输出：计数器c结束i 0i i+1i =9 YYNNNY循环嵌套、两种代码结构比较Dim i As Integer, j As Integer, n As Integer, c As Integern = 0: c = 0For i = 0 To 9 step 1 For j = 0 To 9 step 1 n = 10407 + i * 1000 + j * 10 If (n Mod 57 =
6、 0 Or n Mod 67 = 0) Then List1. AddItem (Str(n) c = c + 1 End If Next jNext iDim i As Integer, j As Integer, n As Integer, c As Integeri = 0: n = 0: c = 0Do While i = 9 j = 0 Do While j = 9 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 j = j + 1 Loopi = i + 1Loop
