[计算机软件及应用]vb循环结构

《[计算机软件及应用]vb循环结构》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第4章：循环结构主要内容:1:循环结构2:Do…Loop语句3:For…Next语句4:循环嵌套5:列表框、组合框小测验任意输入一个整数，判断其奇偶性程序代码：PrivateSubCommand1_Click()DimxAsIntegerx=Val(Text1.Text)IfxMod2=0ThenText2.Text="偶数"ElseText2.Text="奇数"EndIfEndSub例4.1在窗体上打印出1~20以内的所有偶数分析与思考从1开始判断1是否为偶数，若是则打印1判断2是否为偶数，若是则打印2判断3……判断20是否为偶数，若是则打印20结束例4.1直

2、接写代码If1Mod2=0ThenPrint1If2Mod2=0ThenPrint2…If20Mod2=0ThenPrint20分析与思考“判断一个数是否为偶数若是则打印”这样的处理被重复了20次！例4.1高效率的处理1）赋予变量x初值为12）如果x<=20，那么若x是偶数则打印x；反之若x>20则跳至第5步3）赋予x值为下一个要判断的数4）跳至第2步5）结束例4.1程序代码PrivateSubCommand1_Click()DimxAsIntegerx=1DoWhilex<=20IfxMod2=0ThenPrintxx=x+1LoopEndSub代码的这种结构称

3、为“循环结构”DoWhile…Loop是典型的循环语句开始x=1x<=20xMod2=0TPrintxTx=x+1结束FF语句序列循环结构循环：指在满足指定条件下重复多次执行相同语句序列的程序结构循环体：被重复执行的语句序列执行时，先测试条件，若满足，则执行一遍语句序列，然后跳回到条件处，再次测试条件；若不满足，则跳出循环VB提供的循环语句有For...NextDo...LoopWhile...WendForEach...Next其中最常用的是For...Next和Do...Loop语句条件TF语句序列前测型Do...Loop语句格式：Do[{While

4、Until}条件]循环体L

5、oopDoWhile...Loop语句的功能：当条件为真时，执行循环体；当条件为假时，退出循环。此循环称为“当型循环”。先测试条件再决定是否执行循环体！DoUntil...Loop语句的功能：当条件为假时，执行循环体，直到条件为真时，退出循环。此循环称为“直到型循环”。先测试条件再决定是否执行循环体！DoWhilex<=100...LoopDoUntilx>100...Loop等价于小测验程序运行后，单击命令按钮，在两个文本框中显示的值分别为（）和（）PrivateSubCommand1_Click()DimxAsInteger,nAsIntegerx=0DoWhilex<50

6、x=(x+2)*(x+3)n=n+1LoopText1.Text=Str(n)Text2.Text=Str(x)EndSub272例4.2题目：求S=1+2+…+100之和分析与思考累加问题：求一组有规律的数的和可用循环结构解题，但关键是找出其中“重复执行”的部分，观察下面代码：s=s+1s=s+2…s=s+100“重复执行”部分：将s和一个数相加重新赋予s其中变化的是那个数，设该数为n，显然n的初值为1，然后不断加1，直到100例4.2程序代码如下：PrivateSubCommand1_Click()DimnAsInteger,sAsIntegern=1s=0

7、DoWhilen<=100s=s+nn=n+1LoopPrint"s=";sEndSub1）变量s称为累加器变量，用来保存求和结果2）赋值语句s＝0称累加器清零3）s=s+n实现累加例4.2程序代码如下：PrivateSubCommand1_Click()DimnAsInteger,sAsIntegern=1s=0DoUntils=s+nn=n+1LoopPrint"s=";sEndSubn>100例4.3题目：利用公式π/4＝1-1/3+1/5-1/7+……求π的近似值。要求：当加数项的绝对值小于10-5时，停止计算分析与思考这是累加问题的变型公式中的每项的分母

8、是规律的奇数列。且奇数项为加法运算，偶数项为减法运算循环条件为：累加项的绝对值小于10-5可写为Until1/n<0.00001例4.3程序代码PrivateSubCommand1_Click()DimpiAsSingle,nAsLongDimcAsIntegerpi=0:n=1c=1DoUntil1/n<0.00001pi=pi+c/nn=n+2c=-cLooppi=pi*4Print"π=";piEndSub说明：1）变量c的作用：实现加