第五章 选择分支 与循环.docVIP

第5章 选择分支与循环 1、分支结构 （1）If-Then-Else-End If结构语句 （2）Select-Case-End Select 语句结构 注：Case语句后不能用函数 Is 不能与逻辑运算符同时使用 Case 1 TO 10 是指范围是【1,10】 例如挑选|x|5的条件 用select case x Case Abs（x）5 Case Abs(IS)5 Case IS5 or IS-5 以上三种说法都是错的 正确的说法是 Case IS5,IS-5 在For 循环中，初值，终值，步长一旦定下来就不变！例： Dim i%, a%, b%, c% a = 4.5: b = 8.5: c = 1.5 For i = a To b Step c a = a + 1 b = b + 1 c = c + 1 i = i + 1 Next i print a;b;c;i Ps:一旦跳出循环，则初值，终值，步长又变为原来状态。 For 循环中： 初值终值：步长为正 初值终值：步长为负 例：有以下两题对比 For 6 to 1 Print i： Next i Print i+2 结果为 8 For i = 3 To 3 Step -2 Print i Next i Print i - 2 结果为 3 -1 循环次数=Int((e2-e1)/e3)+1 4、以下有两个例题（据我们装B老师说考到的概率是95%以上）： 例题一、编写一个从由字母、数字组成的字符串中找出所有大写字母并逆序输出（JNB 12DFFG3） Dim s As String, i As Integer s = text1.Text For i = 1 To Len(s) If Mid(s, i, 1) = A And Mid(s, i, 1) = Z Then text2 = Mid(s, i, 1) text2.Text text2.text Mid (s,i,1) 重点：1.从指定字符串中挑选大写字母，小写字母，数字 （只要将A换成a，0。将Z换成z，9） 2.懂得如何逆序输出，以及与顺序输出的区别 例题二 编写程序，输入正整数n，求对应的八位的二进制数。 Private sub form_click Dim N As integer ,s as string N =VAL(TEXT1) DO while N0 S=N MOD 2 S 逆序输出 N=N\2 Loop 输出八位二进制数，见下 一个要以八位数输出的不足前面补0 方法： （1）、Format(S （2）、Right(0000000 S,8) （3）、String(8-len(s);0) 5、例题： 产生5~100之间的随机整数使用表达式： Int ( ( 100 - 5 + 1 ) * Rnd + 1 ) 6、 正向循环（初值终值，步长为正） 满足条件 至少执行一次 Exit For 则有真理： 正常跳出 变量值 终值 异常跳出 变量值 = 终值 经过 Exit For 跳出的叫异常跳出 不经过 Exit For 跳出的叫做正常跳出 本章总结：多看书！ 多分支结构 If 条件1 Then 语句组1 ElseIf 条件2 Then 语句组2 ElseIf…… 。