资源描述
VisualBasic语言程序设计,第7章VisualBasic控制结构,2,第7章VisualBasic控制结构,7.1选择控制结构,7.2多分支控制结构,7.3For循环控制结构,7.4当循环控制结构,7.5Do循环控制结构,7.6多重循环,3,7.1选择控制结构,给定条件进行分析、比较和判断，并根据判断结果采取不同的操作，在VB中，这样的问题通过选择结构程序来解决。选择结构通过条件语句来实现。条件语句也称If语句，它有两种格式，一种是单行结构，一种是块结构。,7.1.1单行结构条件语句7.1.2块结构条件语句7.1.3IIf函数,4,7.1.1单行结构条件语句,单行条件语句比较简单，其格式如下：If条件Thenthen部分Elseelse部分该语句的功能是：如果“条件”为True，则执行“then部分”，否则执行“else部分”。其中Else部分是可选的，当省略时，简化为：If条件Thenthen部分它的功能是：如果“条件”为True，则执行“then部分”，否则执行下一行程序。,5,7.1.1单行结构条件语句,例：设有如下函数：输入x值，求y值。PrivateSubForm_Click()DimxAsSingle,yAsSinglex=InputBox(请输入x的值)Ifx0Theny=1ElseIfx=0Theny=0Elsey=-1Printx=;x,y=;yEndSub,6,7.1.2块结构条件语句,块结构条件语句一般格式如下：If条件1Then语句块1ElseIf条件2Then语句块2ElseIf条件3Then语句块3Else语句块nEndIf,块结构条件语句的功能是：如果“条件1”为True，则执行“语句块1”；否则如果“条件2”为True，则执行“语句块2”否则执行“语句块n”。,7,7.1.2块结构条件语句,例如：Check=InputBox(Enterastring:,CheckBox)IfLen(Check)6ThenPrintInputtoolongElseIfLen(Check)6ThenPrintInputtooshortElseIfLeft(Check)=aThenPrintCantstartwithanaEndIf,8,7.1.2块结构条件语句,注意：当有多个条件时，单行语句和多行块结构的区别。,X=val(inputbox(“输入数字”)Ifx=5thenprint“A”Ifx=7thenprint“B”Ifx=9thenprint“C”Ifx=11thenPrint“D”当输入8时，窗体上输出？,X=val(inputbox(“输入数字”)Ifx=5ThenPrintAElseIfx=7ThenPrintBElseIfx5,1,2),11,7.2多分支控制结构,在VisualBasic中，多分支结构程序通过情况语句来实现。情况语句也称SelectCase语句或Case语句，它根据一个表达式的值，在一组相互独立的可选语句序列中挑选要执行的语句序列。,12,7.2多分支控制结构,格式：SelectCase测试表达式Case表达式表列1语句块1Case表达式表列2语句块2CaseElse语句块nEndSelect,情况语句以SelectCase开头，以EndSelect结束。其功能是，根据“测试表达式”的值，从多个语句块中选择符合条件的一个语句块执行。,13,7.2多分支控制结构,格式：SelectCase测试表达式Case表达式表列1语句块1Case表达式表列2语句块2CaseElse语句块nEndSelect,:变量、属性、计算式:测试表达式可能的取值：单一值例:CaseA枚举例:Case2,4,6,8To区间例:Case1To5Is关系表达式例:CaseIs10,注意：如果是is结构，则只能用简单关系运算，不能使用andor等逻辑表达，例如：Caseis100oris=7000000000#,27,7.6多重循环,通常把循环体内不含有循环语句的循环叫做单层循环，而把循环体内含有循环语句的循环称为多重循环。例如在循环体内含有一个循环语句的循环称为二重循环。多重循环又称多层循环或嵌套循环。,28,7.6多重循环,【例】Fori=1To3Forj=1To3Printi,jNextjNexti,执行过程：外循环一次，内循环完，再取外下次.i=1j=1输出11j=212j=313i=2j=121j=222j=323i=3j=131j=232j=333i=4退出循环,29,7.6多重循环,例：打印“九九表”，结果如下：,30,7.6多重循环,FontSize=12PrintTab(30);9*9TablePrint:PrintPrint*;Fori=1To9PrintTab(i*6);i;NextiPrintForj=1To9Printj;Fork=1Tojtemp=j*kPrintTab(k*6);temp;NextkPrintNextj,设置窗体字号为12,在第一行第三十列输出9*9Table,输出两个空行,在第四行输入一个*,在第四行每隔6列输出一个数字,输入一个空行,利用双重循环输出乘法表,ThankYou,
展开阅读全文