Presentation is loading. Please wait.

Presentation is loading. Please wait.

第5章 循环结构 本章要点: For循环 While循环 Do循环.

Similar presentations


Presentation on theme: "第5章 循环结构 本章要点: For循环 While循环 Do循环."— Presentation transcript:

1 第5章 循环结构 本章要点: For循环 While循环 Do循环

2 所谓循环结构,表示在执行语句时,需要对其中的某个或某部分语句重复执行多次。对于此类情况可以利用各种循环结构来实现。
循环结构可以分为For循环、While循环和Do循环语句结构。

3 6.1 For循环 1. 格式 For <循环变量>=<初值> To <终值> [Step <步长>] <语句组1> [Exit For] <语句组2> Next [<循环变量>] 初值 循环变量 T 循环变量值超过终值? F 2. 功能: 执行过程如流程图所示 执行循环体 循环变量+步长 循环变量 后续语句

4 3. 说明 1) 循环变量——数值型变量 2) 初始值——数值型变量 3) 终值——数值型变量 4)步长——数值型变量 5) 循环体——需要重复执行的部分 4) Exit For——退出循环,常放在条件语句中 5) Next循环变量——之后的循环变量应与For语句中的循环变量一致,也可以省略

5 例5.1,编写程序,在窗体上输出一行由6个“*”组成的图形
Private Sub Form_Click() For I = 2 To7 Print "*"; Next I End Sub

6 例5.2 以“顺序输出10以内所有奇数”为例,来进一步理解For循环的执行过程。 程序语句及执行过程如下: 程序语句: For i = 1 To 10 Step 2 Print i; Next i

7 执行过程: (1)系统把初值1赋给循环变量i,记下终值10和步长2。 (2)判断i是否大于终值10。 i > 10则时转到(5)。 i ≤ 10时执行循环体“Print i;”。 (3)执行Next语句,相当于执行语句“i = i + 2”。 (4)转到(2),继续执行。 (5)结束循环,执行Next后面的语句。 上述程序语句在执行时,共进行6次判断,执行5次循环体,分别输出1、3、5、7、9这5个奇数,循环变量的值最终为11。

8 例5.3 计算S=1+2+3+…+n。(n由用户输入) 这是一个“累加求和”的问题。解决这类程序时,通常是引入一个用来存放“和”值的单元S,然后循环地向S中加入一个加数,最后,在变量S中存放的就是累加的结果。 程序代码如下: n = InputBox("input n") S =0 For I = 1 To Val(n) S = S + I Next I Print S

9 例: 判断以下程序段的执行结果: For i = 5 To 1 Step -1 Print i * i; Next i Print Print i 例: 判断以下程序段的执行结果: X = 6 For K = 1 To 10 Step -2 X = X + K Next K Print K,X K=1;超过终值 不进入循环

10 累加分析: 流程图: 输入N的值,求1+2+3+4+…+N 累加器(变量)初始化 Sum=0 重复执行(循环体) Sum=Sum+I
(I=1,2,…,N) 流程图: F 0Sum ,1I I>N? I+1I Sum+ISum T 输入N 输出Sum

11 设计界面: Text1 Label3 Command1 运行界面:

12 代码: Private Sub Command1_Click()
Dim N As Integer, I As Integer, Sum As Integer N = Val(Text1.Text) ' 输入累加总项数 Sum = ' 设累加和初值为0 For I = 1 To N Sum = Sum + I ' 循环体:和值=和值+累加项 Next I Label3.Caption = Sum ' 输出累加结果 End Sub

13 5.2 While循环 问题: 求12+22+32+42+…大于某数N的最小值,N由用户指定。 特点: 已知循环条件、未知循环次数,
1. 格式 While <条件> [<语句组>] Wend 2. 功能 F 条件? 语句组 T

14 例如: Private Function Sum2(n As Integer ) As Integer Dim s, i As Integer i=1 While( i<=n) s=s + i ; i= i+ 1 Wend Sum2=s End Function

15 流程图: F I<=N S=S+I T 输入N I=I+1 0S,1I 输出S

16 例5.4 Private Sub Form _ Click() a = 1000 found = 0 While ( found<>10) a =a-1 If a Mod 13 = 0 And a Mod 7 = 0 Then found = found + 1 Print a ‘输出每次找到的数字 End If Wend End Sub

17 例5.5 Private Sub Form_Click() '单击窗体时执行 Dim n%, f%
While f < 500 '不断执行循环体,直到f >= 500为止 n = n + 1 f = f * n Wend Print n; "! ="; f '显示阶乘第一次大于500的数及其阶乘 f = f / n '求此数前一个数的阶乘 n = n '求此数的前一个数 Print n; "! ="; f '显示阶乘最接近500但又不大于500的数及其阶乘 Print “ N =”; n ‘显示要找的正整数N End Sub

18 While...Wend循环可以使用Do...Loop循环来代替,但Do...Loop循环具有更多的形式。

19 5.3 Do循环 1. 格式 2. 功能 格式一: Do While <条件> F [<语句组1>] 条件?
循环体 T F 格式一: Do While <条件> [<语句组1>] [Exit Do] [<语句组2>] Loop 条件? 循环体 F T 格式二: Do Until <条件> [<语句组1>] [Exit Do] [<语句组2>] Loop

20 格式 功能 条件? 循环体 T F 格式三: Do [<语句组1>] [Exit Do] [<语句组2>] Loop While <条件> 条件? 循环体 T F 格式四: Do [<语句组1>] [Exit Do] [<语句组2>] Loop Until<条件>

21 3. 说明 1) Exit Do语句用于退出循环体 2) 也可以在Do语句和Loop语句之后都没有条件, 这时在循环体内必须有强行退出循环的语句即: Do [<语句组1>] Exit Do [<语句组2>] Loop 3) 当型循环可能一次都不执行;而直到型循环至少要执行一次循环体。多数情况下,当型循环和直到型循环可互相代替。

22 Private Function Sum4(n As Integer) As Integer Dim s,i As Integer i=1
例如: Private Function Sum3(n As Integer) As Integer Dim s,i As Integer If n=1 Then Sum3=1 Else i=1 Do s=s+i:i=i+1 Loop (i<=n) Sum3=s End If End Function Private Function Sum4(n As Integer) As Integer Dim s,i As Integer i=1 Do While (i<=n) s=s+i:i=i+1 Loop Sum4=s End Function

23 5.4 中途跳出语句 (1)exit for:用于中途跳出for循环,可以直接使用,也可以用条件判断语句加以限制。
(2)exit do:用于中途跳出do循环,同上类似。 (3)exit sub:用于中途跳出sub过程,既可以直接使用,也可以用条件判断语句限制使用。 (4)exit function:用于中途跳出function过程,可以直接使用,也可以用条件判断语句限制使用。 使用上述几种中途跳出语句,可以为某些循环体或过程设置明显的出口,能够增强程序的可读性。

24 例如: Private Function Sum5( n As Integer) As Integer Dim s , i As Integer i = 1 Do If ( i >= n) Then Exit Do s = s+ i; i = i +1 Loop Sum5 = s End Function

25 5.5图片框 图片框用于在窗体的特殊位置上放置图形信息,也可以在其上放置多个控件,因此它可以作为其他控件的容器。 1.常用属性
2.常用事件和方法 3.应用例子

26 常用属性 图片框的常用属性如下。 (1)Appearance属性 返回/设置一个对象在运行时是否以3D效果显示。 (2)AutoRedraw属性 返回/设置从图形方法到一个持久性位图的输出。 (3)AutoSize属性 决定控件是否能自动调整大小以显示所有的内容。 (4)Picture属性 返回/设置图片框控件中显示的图形。在设置时,设计阶段可直接利用属性窗口指定,运行阶段可使用LoadPicture函数加载

27 设计一个窗体,以命令按钮选择方式显示春、夏、秋、冬四个季节的图片。如图4.10所示是一幅春天的图片。
首先添加一个窗体,在其中放置一个图片框Picture1和4个命令按钮(使用Command1控件数组)。在该窗体上设计如下事件过程: Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 Picture1.Picture = LoadPicture("e:\sf\spring.jpg") Case 1 Picture1.Picture = LoadPicture("e:\sf\summer.jpg") Case 2 Picture1.Picture = LoadPicture("e:\sf\fall.jpg") Case 3 Picture1.Picture = LoadPicture("e:\sf\winter.jpg") End Select End Sub

28 5.6图像框 图像框用来显形图形,可以显示位图、图标、图元文件、增强型图元文件、JPEG或GIF文件。
图像框与图片框的区别是:图像框控件使用的系统资源比图片框少而且重新绘图速度快,但它仅支持图片框的一部分属性、事件和方法。两种控件都支持相同的图片格式,但图像框控件中可以伸展图片的大小使之适合控件的大小,而图片框控件中不能这样做。 1.常用属性 2.常用的事件和方法 3.应用例子

29 常用属性 (1)Appearance属性 返回/设置一个图像框在运行时是否以3D效果显示。 (2)Picture属性
返回/设置图像框控件中显示的图形。在设置时,设计阶段可直接利用属性窗口指定,运行阶段可使用LoadPicture函数加载。 (3)Stretch属性 返回/设置一个值,决定是否调整图形的大小以适应图像框控件。该属性取值如下: · False:这是默认值,当图形载入时,图像框本身会自动调整大小,使得图形可以填满图像框。 · True:当图形载入时,图形自动调整大小,填满整个图像框。

30 设计一个窗体,说明图像框Stretch属性的作用。
首先添加一个窗体,在其中放置1个图像框Image1(其Picture属性设置为“e:\media\ happy.bmp”)和2个命令按钮(分别为Command1和Command2)。在该窗体上设计如下事件过程: Private Sub Command1_Click() '实现 "原大小"功能 Image1.Width = ' 设置图像框大小 Image1.Height = 1000 Image1.Stretch = False End Sub Private Sub Command2_Click() '实现"放大"功能 Image1.Stretch = True

31 5.7计时器 计时器控件在设计时可看见它,在运行时它就隐藏起来,但是在后台每隔一定时间间隔,系统就会自动执行一次计时器事件。所谓时间间隔,指的是各个计时器事件之间的时间,一般以毫秒(ms)为基本单位。因为计时器在1秒钟内最多产生18个事件,所以两个事件之间的时间间隔精确度不超过1/18s。 1.常用属性 2.常用事件和方法 3.应用例子

32 常用属性 (1) Enabled属性 决定计时器控件是否开始计时。其语法如下: Object.Enabled=True或False
若设置为True(默认值),表示启动计时器开始计时;否则,表示暂停计时器的使用,在需要启动计时器时再将Enabled属性设置为True即可。 (2)Interval属性 设置两个计时器事件之间的时间间隔。设置时以毫秒为单位,设置的范围是0~65 535ms。若将Interval属性值设置为1000ms,即将时间间隔设置为1s,则每隔1s就会执行一个计时器时间。由此可以看出,若想在1s内执行n个计时器事件,则必须将Interval属性的值设置为1000/n才可以实现。系统初始值设置为0。

33 设计一个窗体说明计时器的基本应用方法。 首先在本章工程中添加一个窗体,在其中放置两个标签(Label1和Label2)和一个计时器Timer1,该计时器的Interval属性设置为100。并在该窗体上设计如下事件过程: Private Sub Timer1_Timer() Label2.Caption = Time End Sub 执行本窗体,其界面如图4.18所示。

34 本章小结 1. For循环 For <循环变量>=<初值> To <终值> [Step <步长>] <语句组1> [Exit For] <语句组2> Next [<循环变量>] 2. While循环 While <条件> [<语句组>] Wend

35 Do [{While|Until}<条件>] Loop [{While|Until}<条件>]
[<语句组1>] [Exit Do] [<语句组2>] Loop Do [<语句组1>] [Exit Do] [<语句组2>] Loop [{While|Until}<条件>]


Download ppt "第5章 循环结构 本章要点: For循环 While循环 Do循环."

Similar presentations


Ads by Google