控制结构——VB课件

《控制结构——VB课件》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第5章控制结构VisualBasic提供的控制结构有以下四种：（1）顺序结构；（2）分支结构（也称为“选择结构”）；（3）循环结构；（4）跳转结构。分支结构：If语句、SelectCase语句；循环结构：Do…Loop语句、For…Next语句、While…Wend语句；跳转结构：GoTo语句、GoSub语句。If条件语句如果“条件表达式”的值为True，则执行“语句块”，否则跳过“语句块”，直接执行随后的语句。“语句块”可以是一条语句，多条语句（用冒号分隔）。块形式更适合于多条语句的情况。单行形式：IfiMod2=0ThenPr

2、int"偶数"块形式：IfiMod2=0ThenPrint"偶数"'语句块EndIf单行形式的If…Then…语句条件语句块TrueFalse块行形式的If…Then…EndIf结构If条件表达式Then语句块If条件表达式Then语句块EndIfIf条件表达式Then语句块1Else语句块2EndIf如果“条件表达式”的值为True，则执行“语句块1”；否则，执行“语句块2”。“语句块1”与“语句块2”中至少有一组被执行，然后继续执行随后的语句。单行形式的If…Then…Else…语句条件语句块1TrueFalse语句块2If条

3、件表达式Then语句块1Else语句块2块形式的If…Then…Else…EndIf结构打开【例5.1】例：IfiMod2=0ThenPrint"偶数"'语句块1ElsePrint"奇数"'语句块2EndIf在If语句的“If语句块”和“Else语句块”中还可以包含另一个If语句。如：…….If条件1Then…..If条件2Then…..Else….EndIf…...Else…..If条件3Then…..Else….EndIf…….EndIfIf语句的嵌套内层内层最外层【例5.2】判断输入数的奇偶性及所在的区间。PrivateSu

4、bcmd1_Click()Dimint1AsInteger,int2AsInteger:int1=Cint(txt1.Text)Ifint1<=0Thentxt2.Text="请输入一个正整数！"Elseint2=int1Mod2Ifint2=0ThenIfint1>100Thentxt2.Text="这是一个大于100的偶数！"Elsetxt2.Text=“这是一个不大于100的偶数！"EndIfElseIfint1>100Thentxt2.Text="这是一个大于100的奇数！"Elsetxt2.Text="这是一个小于100

5、的奇数！"EndIfEndIfEndIfEndSub打开【例5.3】三数求最大打开【例5.4】分数定等级这是一种多重分支结构，比使用嵌套的If语句更容易理解。If…Then…ElseIf…EndIf语句If条件1Then语句块1ElseIf条件2Then语句块2ElseIf条件3Then语句块3……ElseIf条件nThen语句块n[Else语句块n+1]EndIf从上到下，第几个条件表达式值为True，就执行相应的第几个语句块，然后执行EndIf下面的语句。如果有不只一个条件表达式的值为True，只有最上面的条件所对应的语句块被

6、执行。如果所有条件表达式的值均不为True，则执行Else关键字下面的“语句块n+1”，然后执行EndIf下面的语句。其中Else和“语句块n+1”是可选部分。注意：“ElseIf”关键字中间没有空格。打开【例5.5】PrivateSubcmdRank_Click()DimintMarkAsIntegerintMark=CInt(txtInput.Text)IfintMark>=90ThentxtOutput.Text="优秀"ElseIfintMark>=80ThentxtOutput.Text="良好"ElseIfintMar

7、k>=70ThentxtOutput.Text="中等"ElseIfintMark>=60ThentxtOutput.Text="及格"ElseIfintMark>=30ThentxtOutput.Text="补考"ElsetxtOutput.Text="重修"EndIfEndSubPrivateSubcmdRank_Click()DimintMarkAsIntegerintMark=CInt(txtInput.Text)IfintMark>=90ThentxtOutput.Text="优秀"ElseIfintMark>=80Th

8、entxtOutput.Text="良好"ElseIfintMark>=70ThentxtOutput.Text="中等"ElseIfintMark>=60ThentxtOutput.Text="及格"ElseIfintMark>=30Thentx