《Visual Basic程序设计简明教程》课件第5章.ppt

1、2023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程15.1 5.1 While语句 While 表达式表达式 循环体循环体 Wend 否否是是表达式为真表达式为真循环体循环体语句语句2023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程2说明：说明：（1 1）循环语句的表达式一般是关系或者逻辑表达）循环语句的表达式一般是关系或者逻辑表达式，以构成循环条件。如果是算术表达式，则按照式，以构成循环条件。如果是算术表达式，则按照“非非0 0为真为真”的原则，把算术表达式的值转换为逻辑值。的原则，把算术表达

2、式的值转换为逻辑值。（2 2）应该把需要重复执行的语句组成循环体。）应该把需要重复执行的语句组成循环体。（3 3）如果在循环之前需要先判断条件，则采用）如果在循环之前需要先判断条件，则采用whilewhile语句较为合适。语句较为合适。2023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程3例例5.15.1 1+2+3+4+5+1+2+3+4+5+100=+100=？Private Sub Command1_Click()Dim i As Integer,sum As Integer i=1 循环初值循环初值 sum=0 While i=100 循

3、环条件循环条件 sum=sum+i 循环体循环体 i=i+1 Wend Print sum=;sum End Sub2023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程45.2 5.2 Do-Loop语句（1）Do While-Loop Do While 表达式表达式 循环体循环体 Loop（2）Do-Loop While Do 循环体循环体 Loop While 表达式表达式 2023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程5Do-Loop While Do-Loop While的的循环条件位

4、于循环语循环条件位于循环语句的后面，属于句的后面，属于“直直到型到型”循环，不断地循环，不断地执行循环体，直到循执行循环体，直到循环条件不成立为止。环条件不成立为止。否否是是循环体循环体表达式为真表达式为真语句语句2023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程6说明：说明：（1 1）注意）注意Do-Loop WhileDo-Loop While与与Do While-LoopDo While-Loop的区的区别。由于别。由于Do-Loop WhileDo-Loop While是先执行循环体后判断循环是先执行循环体后判断循环条件，所以它的循环体

5、至少执行一次，而条件，所以它的循环体至少执行一次，而Do While-Do While-LoopLoop语句的循环体有可能一次也不执行。语句的循环体有可能一次也不执行。（2 2）如果需要先执行再判断循环条件，则采用）如果需要先执行再判断循环条件，则采用Do-Loop WhileDo-Loop While较为合适。较为合适。2023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程7例例5.25.2 1+2+3+4+5+1+2+3+4+5+100=+100=？Private Sub Command2_Click()Dim i As Integer,sum

6、 As Integeri=1 循环初值循环初值sum=0Do sum=sum+i 循环体循环体 i=i+1Loop While i 4000 Then Exit Do End If sum=sum+i i=i+1 Loop While i 4000 Then Exit For End If sum=sum+i Next i 5.4 5.4 流程转向语句流程转向语句Exit ForExit For2023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程155.5 5.5 循环嵌套循环嵌套l循环嵌套又称为多重循环，是指在一个循环结循环嵌套又称为多重循环，

7、是指在一个循环结构的循环体中又包含另一个完整的循环结构。构的循环体中又包含另一个完整的循环结构。l通常把嵌套在循环体内的循环结构称为内循环，通常把嵌套在循环体内的循环结构称为内循环，把外层的循环结构称为外循环。把外层的循环结构称为外循环。l在程序中一般把最内层循环的总循环次数作为在程序中一般把最内层循环的总循环次数作为多重循环的循环次数。多重循环的循环次数。2023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程16例例5.55.5 打印九九乘法口诀表打印九九乘法口诀表 Private Sub Command1_Click()Dim i As Int

8、eger,j As Integer,s As String For i=1 To 9 控制输出行控制输出行 For j=1 To i 输出该行的内容输出该行的内容 s=j&i&=&i*j Print Tab(j*10);s;Next j Print 每一行结束后换行每一行结束后换行 Next i End Sub2023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程175.6 5.6 循环算法循环算法 算法是对某个问题求解过程的描述。算法是对某个问题求解过程的描述。循环算法主要有穷举法和迭代法，编循环算法主要有穷举法和迭代法，编写循环程序时还经常会用

9、到标志法和计写循环程序时还经常会用到标志法和计数器等技巧。数器等技巧。5.6 5.6 循环算法循环算法穷举法穷举法l穷举法就是穷尽所有的可能，一一列举并进行测穷举法就是穷尽所有的可能，一一列举并进行测试，从中筛选出满足条件的数据。试，从中筛选出满足条件的数据。l穷举显然需要使用循环结构，测试则需要使用选穷举显然需要使用循环结构，测试则需要使用选择结构。在采用穷举法编写程序时，往往还辅以择结构。在采用穷举法编写程序时，往往还辅以标志法和计数器等技巧。标志法和计数器等技巧。2023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程18例例5.65.6 百马

10、百担问题百马百担问题 Private Sub Command1_Click()Dim x%,y%,z%Print Tab(10);大马大马;Tab(15);中马中马;Tab(20);小马小马 For x=0 To 33 For y=0 To 50 z=100-x-y If x*3+y*2+z/2=100 Then Print Tab(10);x;Tab(15);y;Tab(20);z End If Next y Next x End Sub2023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程19例例5.75.7 判断自然数判断自然数x x是否为素

11、数是否为素数 Private Sub Command1_Click()Dim i As Integer,x As Integer,flag As Boolean x=Val(Text1.Text)flag=True For i=2 To Sqr(x)穷举穷举 If x Mod i=0 Then x能被能被i整除，则肯定不是素数整除，则肯定不是素数 flag=False 修改标志修改标志 Exit For 跳出循环，没有必要再比较跳出循环，没有必要再比较 End If Next i If flag=True Then flag为为True则表示则表示x为素数为素数 Text2.Text=x&是素

12、数是素数 Else Text2.Text=x&不是素数不是素数 End If End Sub2023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程205.6 5.6 循环算法循环算法迭代法迭代法l迭代法的基本思想是，不断地从旧值出迭代法的基本思想是，不断地从旧值出发推导出新值，或者说新值是由上一次的旧发推导出新值，或者说新值是由上一次的旧值迭代而来。值迭代而来。l迭代法由迭代初值、迭代公式和迭代次迭代法由迭代初值、迭代公式和迭代次数等要素构成。数等要素构成。l迭代公式是实现迭代算法的难点，关键迭代公式是实现迭代算法的难点，关键是要找出当前一项与上一

13、项之间的迭代关系。是要找出当前一项与上一项之间的迭代关系。2023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程21例例5.85.8 计算计算1!+2!+1!+2!+10!=+10!=？Private Sub Command1_Click()Dim i As Integer,sum As Long,p As Long sum=0 p=1 For i=1 To 10 p=p*i 计算计算i!sum=sum+p 计算累加和计算累加和 Next i Print sum=;sum End Sub 2023-12-13Visual BasicVisual B

14、asic程序设计简明教程程序设计简明教程22例例5.95.9 求求FibonacciFibonacci数列的前数列的前2020项项 Private Sub Command1_Click()Dim i%,j%,f1 As Long,f2 As Long,t&f1=1 f2=1 j=3 Print Tab(8);f1;Tab(16);f2;先输出数列最前面的两项先输出数列最前面的两项 For i=3 To 20 因为前面已经求出两项，在这里只需要循环因为前面已经求出两项，在这里只需要循环18次次 t=f1+f2 求出当前的项，求出当前的项，f1是前一项，是前一项，f2是前二项是前二项 Print

15、Tab(j*8);t;j=j+1 If i Mod 5=0 Then Print j=1 End If f2=f1 前一项是下次的前二项前一项是下次的前二项 f1=t 当前项是下次的前一项当前项是下次的前一项 Next i End Sub2023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程235.7 5.7 图片框图片框 图片框（图片框（PictureBox）控件是一种可以容纳其）控件是一种可以容纳其他控件的容器型控件，它的基本功能是显示图片。他控件的容器型控件，它的基本功能是显示图片。图片框还可以作为绘制图形的绘图板，甚至能图片框还可以作为绘制

16、图形的绘图板，甚至能够输出文本信息。够输出文本信息。在工具箱中表示为：在工具箱中表示为：图片框的常用属性图片框的常用属性 属性属性作用作用Name设置图片框的对象名设置图片框的对象名Align确定图片框在窗体中的显示位置确定图片框在窗体中的显示位置AutoSize确定图片框是否能自动调整尺寸以显示全部内容，默认值是确定图片框是否能自动调整尺寸以显示全部内容，默认值是FalsePicture设置在图片框中显示的图片文件设置在图片框中显示的图片文件2023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程24说明：说明：l程序第一个图片框控件的默认对象名是

17、程序第一个图片框控件的默认对象名是Picture1，依次类推。，依次类推。lPicture属性值由被显示图片的文件名和路径属性值由被显示图片的文件名和路径名组成。在程序运行过程中动态载入图片的方法名组成。在程序运行过程中动态载入图片的方法是：是：对象对象.Picture=LoadPicture(“图片文件路图片文件路径径”)2023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程255.8 5.8 图像图像框框图像框（图像框（Image）控件专门用来显示图片，与）控件专门用来显示图片，与图片框相比，显示图片时所需资源较少，显示速图片框相比，显示图片时

18、所需资源较少，显示速度也更快。度也更快。如果只是在界面中显示图片，则应该优先考虑如果只是在界面中显示图片，则应该优先考虑使用图像框控件。使用图像框控件。在工具箱中表示为：在工具箱中表示为：图像框的常用属性图像框的常用属性 属性属性作用作用Name设置图像框的对象名设置图像框的对象名Picture设置在图像框中显示的图片文件设置在图像框中显示的图片文件Stretch确定图片是否能自动调整尺寸以适应图像框，默认值是确定图片是否能自动调整尺寸以适应图像框，默认值是False2023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程26说明：说明：l程序第一个

19、图像框控件的默认对象名是程序第一个图像框控件的默认对象名是Image1，依次类推。，依次类推。l当当Stretch属性值是属性值是False时，图像框可以根时，图像框可以根据显示的图片自动调整尺寸；当据显示的图片自动调整尺寸；当Stretch属属性值是性值是True时，图片可以根据图像框自动时，图片可以根据图像框自动调整尺寸，但是这有可能导致图片显示时调整尺寸，但是这有可能导致图片显示时出现变形。出现变形。2023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程275.9 5.9 计时器计时器 计时器（计时器（Timer）控件能够有规律地以一）控件能

20、够有规律地以一定的时间间隔来触发定的时间间隔来触发Timer事件过程，执行事件过程，执行指定的操作，从而实现特定的功能。指定的操作，从而实现特定的功能。计时器属于后台控件，程序运行时看不到。计时器属于后台控件，程序运行时看不到。在工具箱中表示为：在工具箱中表示为：计时器的常用属性计时器的常用属性属性属性作用作用Name设置计时器的对象名设置计时器的对象名Enabled确定计时器是否有效，默认值是确定计时器是否有效，默认值是True，表示有效，表示有效Interval设置计时器引发设置计时器引发Timer事件的时间间隔，默认值事件的时间间隔，默认值是是02023-12-13Visual BasicVisual Basic程序设计简明教程程序设计简明教程28说明：说明：l程序第一个计时器控件的默认对象名是程序第一个计时器控件的默认对象名是Time1，依次类推。依次类推。l当某个计时器的当某个计时器的Enabled属性值是属性值是True时，计时，计时器开始工作，并每隔一个固定的时间周期就时器开始工作，并每隔一个固定的时间周期就引发引发Timer事件。事件。lInterval是计时器最重要的属性，其属性值是是计时器最重要的属性，其属性值是一个整数，即设置的时间间隔，单位是毫秒。一个整数，即设置的时间间隔，单位是毫秒。