VisualBasic循环结构程序设计.pptVIP

计算机软件技术基础,VisualBasic程序设计,选择结构程序设计：IfThen语句（单分支结构）If.ThenElse语句（双分支结构）IfThenElseIf语句（多分支结构）结构SelectCase语句（多分支结构）,回顾,语句格式：If表达式1Then语句块1ElseIf表达式2Then语句块2Else语句块n+1EndIf,格式：SelectCase测试变量或表达式Case表达式表1语句块1Case表达式表2语句块2Case表达式表n语句块nCaseElse语句块n+1EndSelect,表达式表有四种形式：一个表达式。如：Case6一组用逗号隔开的枚举值。如：Case1，3，5，7表达式1TO表达式2。如：Case1To10Is。如：CaseIs=80另外，在一个情况语句中，上述四种形式可以混合使用。,格式：SelectCase测试变量或表达式Case表达式表1语句块1Case表达式表2语句块2Case表达式表n语句块nCaseElse语句块n+1EndSelect,在指定的条件下多次重复执行一组语句。VB中提供了两种类型的循环语句：计数循环语句；条件循环语句。,DoLoop循环用于事先不知道循环次数的循环结构。此种语句四种语法格式：DoWhileLoop语句DoLoopWhile语句DoUntilLoop语句DoLoopUntil语句,格式：DoWhile条件表达式循环体Loop,说明：条件表达式可以是一个逻辑表达式，也可以是一个关系表达式，其值应是逻辑型。DoWhile和Loop应成对出现。循环体中要有控制循环的语句，以避免出现死循环。这种循环可以一次也不执行循环体。,例打印1到20的整数。,格式：DoWhile条件表达式循环体Loop,PrivateSubForm_Click()DimiAsIntegeri=1DoWhilei20EndSub,格式：Do循环体LoopUntil条件表达式,打印1到20的整数。,例DoLoop循环编程计算下式的值(两种方法当型和直到型)。,方法一、用当型循环实现，程序如下：PrivateSubForm_Click()s=0:i=1DoWhilei100s=s+1/ii=i+1LoopPrints=;sEndSub,方法二、用直到型循环实现：,PrivateSubForm_Click()s=0:i=1Dos=s+1/ii=i+1LoopUntili100也可写为LoopWhilei=100Prints=;sEndSub,2.ForNext循环,格式：For循环变量=初值To终值Step步长Next循环变量,For循环变量=初值To终值Step步长Next循环变量,Fori=mTonStepxs=s*iPrintsNexti,m=1:n=10:s=1:x=2,说明：格式中的参数说明：循环变量必须为数值型。循环的初值、终值和步长都是数值表达式，其值不一定是整数，可以是实数，VB自动取整。增量参数可正可负。如果增量为正，则初值必须小于等于终值如果增量为负，则初值必须大于等于终值。如果没有设置step，则增量默认为1。,m=1:n=10:s=1Fori=mTonStep2s=s*iPrintsNexti,在For语句和Next语句之间的语句序列称为循环体，可以是一个或多个语句。Next是循环终端语句，在Next后面的循环变量与For中的循环变量必须相同。当循环是单层循环时，Next后面的循环变量可以不写。,m=1:n=10:s=1Fori=mTonStep2s=s*iPrintsNexti,For循环语句的执行过程1)把初值赋给循环变量2)检查循环变量的值是否超过终值3)如果超过就不执行循环体，跳出循环，执行Next后面的语句4)否则执行一次循环体，然后把循环变量增加步长，再赋给循环变量重复上述过程。,m=1:n=10:s=1Fori=mTonStep2s=s*iPrintsNexti,当初值等于终值时，不管步长是正数还是负数，都执行一次循环体。,m=1:n=10:s=1Fori=mTonStep2s=s*iPrintsNexti,循环次数由初值、终值和步长决定，计算公式为：循环次数=INT（终值初值）/步长+1）,For语句和Next语句必须成对出现，不能单独使用。在循环体中可以使用循环变量，但一般不再对循环变量赋值。,For循环变量=初值To终值Step步长Next循环变量,例3.18求N的阶乘N!=1*2*3*(N-1)*N,PrivateSubForm_Click()DimsAsSingleDimnAsIntegers=1n=Val(InputBox(输入自然数n)Ifn34ThenExitSubEndIfFori=1Tons=s*iPrintsNextiPrintn=;n,s=;sEndSub,3、循环的强制退出,ExitForExitDo常和If、SelectCase配合使用，使循环中的程序不再继续进行,3-19求从1001000之间所有3的倍数的数之和，当和大于3000时，停止计算并输出和。,PrivateSubCommand1_Click()DimiAsIntegerDimsumAsIntegersum=0i=100DoWhilei3000ThenExitDoEndIfEndIfi=i+1LoopPrinti,sumEndSub,4、WhileWend循环,格式：WhileWend,例打印1到20的整数,功能：和DoWhile循环的功能完全相同,PrivateSubForm_Click()DimIAsIntegerI=1WhileI=0.000001pi=pi+tn=n+2s=-st=s/nLooppi=pi*4Printpi=;piEndSub,5-2编程求ex的近似值展开式。要求最后一项的值小于等于0.000001为止。,PrivateSubForm_Click()DimxAsSingle,yAsSingle,f1AsSingleDimf2AsSingle,kAsIntegerx=InputBox(输入x的值,求exp(x)的值)y=1f1=xFork=2To1000y=y+f1f2=f1*x/kIfAbs(f2)0.000001ThenExitForElsef1=f2EndIfNextkPrintexp(;x;)=;yEndSub,5-3求一个数，它除3余2，除5余3，除7余2，求满足上面要求的最小正整数,PrivateSubForm_Click()DimaAsIntegerIfaMod3=2AndaMod5=3AndaMod7=2ThenPrintaEndIfEndSub,ExitFor,Fora=2To1000Nexta,5-4求所有的3位数，它满足该数中某两位有相同数字，且该数是一个完全平方数，并求出所有这些数的和。,PrivateSubForm_Click()DimaAsIntegerDimbAsIntegerDimsumAsIntegerFora=10To31b=a*a