Visual Basic程序设计简明教程（第二版）课件第5章

2023/12/181第5章循环结构本章内容：

While语句

Do-Loop语句

For-Next语句

流程转向语句

循环嵌套

循环算法

图片框

图像框

计时器

2023/12/18《VisualBasic程序设计简明教程》25.1While语句

While表达式循环体

Wend

否是表达式为真循环体语句2023/12/18《VisualBasic程序设计简明教程》3说明：（1）循环语句的表达式一般是关系或者逻辑表达式，以构成循环条件。如果是算术表达式，则按照“非0为真”的原则，把算术表达式的值转换为逻辑值。（2）应该把需要重复执行的语句组成循环体。（3）如果在循环之前需要先判断条件，则采用while语句较为合适。2023/12/18《VisualBasic程序设计简明教程》4例5.1

1+2+3+4+5+…+100=？

PrivateSubCommand1_Click()DimiAsInteger,sumAsIntegeri=1'循环初值

sum=0Whilei<=100'循环条件

sum=sum+i'循环体

i=i+1WendPrint"sum=";sumEndSub返回2023/12/18《VisualBasic程序设计简明教程》55.2Do-Loop语句（1）DoWhile-LoopDoWhile表达式循环体

Loop（2）Do-LoopWhileDo

循环体

LoopWhile表达式2023/12/18《VisualBasic程序设计简明教程》6Do-LoopWhileDo-LoopWhile的循环条件位于循环语句的后面，属于“直到型”循环，不断地执行循环体，直到循环条件不成立为止。否是循环体表达式为真语句2023/12/18《VisualBasic程序设计简明教程》7说明：（1）注意Do-LoopWhile与DoWhile-Loop的区别。由于Do-LoopWhile是先执行循环体后判断循环条件，所以它的循环体至少执行一次，而DoWhile-Loop语句的循环体有可能一次也不执行。（2）如果需要先执行再判断循环条件，则采用Do-LoopWhile较为合适。2023/12/18《VisualBasic程序设计简明教程》8例5.2

1+2+3+4+5+…+100=？

PrivateSubCommand2_Click()DimiAsInteger,sumAsIntegeri=1'循环初值sum=0Dosum=sum+i'循环体

i=i+1LoopWhilei<=100'循环条件Print"sum=";sumEndSub返回2023/12/18《VisualBasic程序设计简明教程》95.3For-Next语句For循环变量=初值To终值[Step步长]

循环体Next[循环变量]否是循环变量=初值

变量在范围内循环体循环变量增加步长语句2023/12/18《VisualBasic程序设计简明教程》10说明：（1）步长一般是正数，应该满足初值≤终值。如果步长为负数，则应该满足终值≤初值。如果省略Step，则步长的默认值是1。（2）循环变量的类型必须是数值型，初值、终值和步长的类型都自动转换为循环变量的类型。循环次数=Int((终值-初值)/步长)+1。（3）如果事先知道循环次数，则采用For-Next语句较为合适。2023/12/18《VisualBasic程序设计简明教程》11例5.3

1+2+3+4+5+…+100=？

PrivateSubCommand3_Click()DimiAsInteger,sumAsIntegersum=0'循环初值Fori=1To100'循环条件

sum=sum+i'循环体NextiPrint"sum=";sumEndSub返回2023/12/18《VisualBasic程序设计简明教程》125.4流程转向语句有时遇到特殊情况，需要提前跳出循环，这时可以使用流程转向语句来实现。VB语言提供了Exit语句，它往往与If语句配合使用，增加了循环语句的出口，从而增强了程序的灵活性。2023/12/18《VisualBasic程序设计简明教程》135.4流程转向语句——Exit语句

Exit语句可以出现在Do-Loop语句和For-Next语句中，作用是跳出本层循环结构，转去执行下面的语句。其一般形式为ExitDo和ExitFor，前者用于跳出Do-Loop语句，后者用于跳出For-Next语句。2023/12/18《VisualBasic程序设计简明教程》14如果累加和超过4000，则停止计算。

DoIfsum>4000ThenExitDoEndIfsum=sum+ii=i+1LoopWhilei<=1002023/12/18《VisualBasic程序设计简明教程》15Fori=1To100Ifsum>4000ThenExitForEndIfsum=sum+iNexti5.4流程转向语句——ExitFor返回2023/12/18《VisualBasic程序设计简明教程》165.5循环嵌套循环嵌套又称为多重循环，是指在一个循环结构的循环体中又包含另一个完整的循环结构。通常把嵌套在循环体内的循环结构称为内循环，把外层的循环结构称为外循环。在程序中一般把最内层循环的总循环次数作为多重循环的循环次数。2023/12/18《VisualBasic程序设计简明教程》17例5.5

打印九九乘法口诀表

PrivateSubCommand1_Click()DimiAsInteger,jAsInteger,sAsStringFori=1To9'控制输出行

Forj=1Toi'输出该行的内容

s=j&"×"&i&"="&i*jPrintTab(j*10);s;NextjPrint'每一行结束后换行

NextiEndSub返回2023/12/18《VisualBasic程序设计简明教程》185.6循环算法

算法是对某个问题求解过程的描述。

循环算法主要有穷举法和迭代法，编写循环程序时还经常会用到标志法和计数器等技巧。5.6循环算法——穷举法穷举法就是穷尽所有的可能，一一列举并进行测试，从中筛选出满足条件的数据。穷举显然需要使用循环结构，测试则需要使用选择结构。在采用穷举法编写程序时，往往还辅以标志法和计数器等技巧。2023/12/18《VisualBasic程序设计简明教程》19例5.6

百马百担问题

PrivateSubCommand1_Click()Dimx%,y%,z%PrintTab(10);"大马";Tab(15);"中马";Tab(20);"小马"Forx=0To33Fory=0To50z=100-x-yIfx*3+y*2+z/2=100ThenPrintTab(10);x;Tab(15);y;Tab(20);zEndIfNextyNextxEndSub2023/12/18《VisualBasic程序设计简明教程》20例5.7

判断自然数x是否为素数

PrivateSubCommand1_Click()DimiAsInteger,xAsInteger,flagAsBooleanx=Val(Text1.Text)flag=TrueFori=2ToSqr(x)'穷举

IfxModi=0Then'x能被i整除，则肯定不是素数

flag=False'修改标志

ExitFor'跳出循环，没有必要再比较

EndIfNextiIfflag=TrueThen'flag为True则表示x为素数

Text2.Text=x&"是素数"ElseText2.Text=x&"不是素数"EndIfEndSub2023/12/18《VisualBasic程序设计简明教程》215.6循环算法——迭代法迭代法的基本思想是，不断地从旧值出发推导出新值，或者说新值是由上一次的旧值迭代而来。迭代法由迭代初值、迭代公式和迭代次数等要素构成。迭代公式是实现迭代算法的难点，关键是要找出当前一项与上一项之间的迭代关系。2023/12/18《VisualBasic程序设计简明教程》22例5.8

计算1!+2!+…+10!=？PrivateSubCommand1_Click()DimiAsInteger,sumAsLong,pAsLongsum=0p=1Fori=1To10p=p*i'计算i!sum=sum+p'计算累加和

NextiPrint"sum=";sumEndSub2023/12/18《VisualBasic程序设计简明教程》23例5.9

求Fibonacci数列的前20项

PrivateSubCommand1_Click()Dimi%,j%,f1AsLong,f2AsLong,t&f1=1f2=1j=3PrintTab(8);f1;Tab(16);f2;'先输出数列最前面的两项

Fori=3To20'因为前面已经求出两项，在这里只需要循环18次

t=f1+f2'求出当前的项，f1是前一项，f2是前二项

PrintTab(j*8);t;j=j+1IfiMod5=0ThenPrintj=1EndIff2=f1'前一项是下次的前二项

f1=t'当前项是下次的前一项

NextiEndSub返回2023/12/18《VisualBasic程序设计简明教程》245.7图片框

图片框（PictureBox）控件是一种可以容纳其他控件的容器型控件，它的基本功能是显示图片。

图片框还可以作为绘制图形的绘图板，甚至能够输出文本信息。在工具箱中表示为：

图片框的常用属性属性作用Name设置图片框的对象名Align确定图片框在窗体中的显示位置AutoSize确定图片框是否能自动调整尺寸以显示全部内容，默认值是FalsePicture设置在图片框中显示的图片文件2023/12/18《VisualBasic程序设计简明教程》25说明：程序第一个图片框控件的默认对象名是Picture1，依次类推。Picture属性值由被显示图片的文件名和路径名组成。在程序运行过程中动态载入图片的方法是：对象.Picture=LoadPicture(“图片文件路径”)返回2023/12/18《VisualBasic程序设计简明教程》265.8图像框图像框（Image）控件专门用来显示图片，与图片框相比，显示图片时所需资源较少，显示速度也更快。如果只是在界面中显示图片，则应该优先考虑使用图像框控件。在工具箱中表示为：图像框的常用属性属性作用Name设置图像框的对象名Picture设置在