江苏省二级VB 第五章 选择分支与循环嵌套

第五章选择分支与循环嵌套5.1 分支结构与分支结构语句（2个例子）5.2 循环结构与循环结构语句（6个例子）5.3 程序实例（10个例子）习题练习（11个例子）5.1 分支结构与分支结构语句5.1.1 IF-Then-Else-End If 结构语句结构一般如下：If e Then[ A组语句 ]Else[ B组语句 ]End Ife 为判决条件，可以是逻辑变量，关系表达式或逻辑表达式。

当A组语句仅有一个时，可简化为：If e Then < 语句 >例如，程序代码：If Text1.Text = “” ThenText1.SetFocusEnd If可以简化为：‘当文本框中文本为空时，则使得文本框成为焦点。

If Text1.Text = “” Then Text1.Setfocus (省去End If)较为复杂的结构如下：If e1 Then ‘如果e1为True，则执行A1组语句A1 组语句ElseIf e2 Then ‘如果e2为True，则执行A1组语句A2 组语句…End If[ 例题5-1 ] 已知三角形的三边长度，设计求此三角形面积的程序。

问题分析：a + b > c & a + c > b & b + c > a , S = sqr(p(p-a)(p-b)(p-c)) , p= (a+b+c)/2算法设计：开始——输入a、b、c——判断a + b > c & a + c > b & b + c > a，通过则求p,求S，否则提示：“输出数据错误信息”——结束。

设计程序代码如下：Private Sub Command1​_Click( )Dim a As single, b As single, c As singlea = Val(Text1.text) ‘Text 属性为字符串型，转为数值型b = Val(Text2.text)c = Val(Text3.text)If a + b > c and a + c > b and b + c > a Thenp = (a+b+c)/2s = sqr(p*(p-a)*(p-b)*(p-c))Text4.text = CStr(s) ‘数值型，转为字符串型,不使用，则自动强制转换ElseText4.text = “数据错误”End IfEnd SubPrivate Sub Command2_Click ( ) ‘结束程序EndEnd SubPrivate Sub Command3_Click ( ) ‘清除原有数据Text1.text = “”Text2.text = “”Text3.text = “”Text4.text = “”Text1.SetFocusEnd Sub[ 例题5-2 ]一个有多个分支的示例程序数学表达式：，试写出该程序。

程序界面设计：两个文本框和一个命令按钮及相应的说明标签，文本框1中输入测试数据，单击命令按钮，在文6本框2给出测试结果。

Private Sub Command1_Click ( )Dim x as Integerx = Val(Text1.Text )If x < 1 ThenText2.Text = “这是小于1的数”ElseIf x < = 10 ThenText2.Text = “这是1到10之间的数”End IfEnd Sub5.1.2 Select-Case-End-Select 结构语句一般形式如下：Select Case e ‘e 为测试表达式Case c1 ‘c1是测试项，可取（1）具体数值（当表达式为算数表达式时） A组语句（2）连续的数据范围（8 To 20，B To H）Case c2 ( 3 ) 满足某个判决条件 (Is >20, Is < “P”)B组语句 ( 4 ) 多个范围的组合…Case Elsen组语句End Select例题5-2 的程序代码也可用本结构语句实现：Private Sub Command1_Click ( )Dim x as Integerx = Val(Text1.text)Select Case xCase Is < 1Text2.Text = “这是小于1的数”Case 1 To 10Text2.Text = “这是1到10之间的数”Case ElseText2.Text = “这是大于10的数”End SelectEnd Sub5.2 循环结构与循环结构语句循环语句按结构分：当型结构和直到型结构的区别仅仅是False和True 位置交换，下为当型的两种结构：TrueFalseTrueFalseAA5.2.1 Do-Loop 循环语句结构四种结构形式：（1）Do While e (2) Do… …[ Exit Do ] [ Exit Do ]… …Loop Loop While e(3) Do Until e (4) Do… …[ Exit Do] [ Exit Do]… …Loop Loop Until e前两种为当型结构，后两种为直到型结构，Do语句Loop语句之间为循环体语句，循环体语句包含一条或多条Exit Do语句，如果程序执行到Exit Do语句，就会直接退出循环，转而执行Loop语句的下一条语句。

[ Exit Do] 语句最常用的形式是与If-Then结合，即为：If e Then Exit Do 在执行循环体时，如果条件e被满足，则执行Exit Do语句，直接退出循环。

[ 例题5-3]设计采用欧几里得算法求解两个自然数的最大公约数的程序。

问题分析及界面设计：界面参照例题5-1，算法如下：@例题 2-1求两个自然数的最大公约数的算法。

(辗转相除法)S1.输入两个自然数M、N；S2.求M除以N的余数R；S3.使得M=N，即为N替换M；S4.使得N=R，即为R替换N；S5.如果R0,则重复执行S2、S3、S4（循环），否则转S6S6.输出M，M即为M、N的最大公约数。

程序设计如下：Private Sub Command1_Click( )Dim m as Long, n as LongDim r as Longm = Val(Text1.Text) ‘取数据mn = Val(Text2.Text) ‘取数据nBasic实现INPUT m,nDOr=m MOD nm=nn=rLOOP UNTIL r=0PRINT mENDIf m <1 Or n<1 Then ‘检验数据合法性Text3.Text = “数据错误！”ElseDo ‘求最大公约数r = m Mod nm = nn = rLoop Until r = 0Text3.Text = Csr(m)End SubPrivate Sub Command3_Click ( ) ‘清除原有数据Text1.text = “”Text2.text = “”Text3.text = “”Text4.text = “”Text1.SetFocusEnd SubPrivate Sub Command3_Click ()EndEnd Sub5.2.2 For-Next 循环结构语句如果事先知道循环次数，则可使用For-Next 循环结构语句，它的一般形式如下：For v = e1 to e2 [ Step e3]…[ Exit For] ‘e1为初值，判别v是否超过e2，若超过，退出循环，执行Next语句的下条。

…Next v ‘执行Next语句，系统执行下述操作：v = v+ e3‘v 是循环控制变量，应为整型或单精度型；e1、e2、e3为控制循环的参数。

e1为初值，e2为终值，e3为步长（e1 =1 时可省）。

For-Next 循环的正常循环次序可用下式计算：循环次数= Int((e2-e1)/e3) +1如下面程序代码：Private Sub Form_Click（）For i = 1 To 10 Step 2Print i;Next iPrint “i =”; iEnd Sub[ 例题5-4] 求1 ~ 10 这十个数的和与连乘积的程序。

Option ExplicitPrivate Sub Form_Click()Dim i As Integer, s As Integers = 0Print "s=";For i = 1 To 10s = s + iIf i < 10 ThenPrint i; "+";ElsePrint i; "=";End IfNext iPrint sf = 1Print "f=";For i = 1 To 10f = f * iIf i < 10 ThenPrint i; "*";ElsePrint i; "=";End IfNext iPrint fEnd Sub[ 例题5-5]一个从由字母、数字组成的字符串中找到所有大写字母并逆序输出。

界面设计:两个文本框，三个按钮，一筛选，一清除，一结束思路分析：从一个字符串找出符合要求的字符是采取对字符串的每一个字符逐个筛选的方法实现的，利用Mid函数可从字符串中提取单个字符，循环控制处理过程，循环的终值使用Len函数；对于符合要求的字符采用连接运算组成新字符串；逆序输出则是过从后往前逐个提取字符再连接Option ExplicitPrivate Sub Cmd1_Click ( )Dim a as String, d as String, t as String ’Dim I as IntegerText1.setFocusa = Text1.Text ‘前期准备For I = 1 to Len（a）If Mid(a , I , 1) > = “A” And Mid(a , I , 1) < = “Z”Thent = t & Mid( a , I , 1) ‘从字符串a 左边第I个位置开始向右取一个字符 End IfNext IFor I = Len（t）to 1 Step -1d = d & Mid ( t , I , 1)Next IText2.Text = dEnd SubPrivate sub Cmd2_Click ( )Text1.Text = “”Text2.Text= “”Text1.SetFocusEnd SubPrivate sub Cmd3_Click ( )EndEnd SubPrivate sub Form_Load()MsgBox “本程序的功能是将一个从由字母、数字组成的字符串中找到所有大写字母并逆序输出”, “示例程序”End Sub5.2.3 循环嵌套大循环套小循环，小循环一定包含在大循环之内，而不得相互交叉。