VB程设第4章循环结构程序设计

发布时间：2024-11-28

VB程序设计-武汉大学黄文斌老师课件

Visual Basic程序设计基础

第4章循环结构程序设计条件真循环体条件真假循环体假

VB程序设计-武汉大学黄文斌老师课件

Visual Basic程序设计基础

内容提要循环是按照给定条件重复执行一组语句。循环控制流程和循环语句称为循环结构。例如：统计一个班学生的平均分、不及格人数等，常常用到循环结构描述重复计算问题。

本章内容循环语句(语句格式、功能和程序设计实例)循环嵌套(多重循环)定时器(Timer)控件进度条(ProgressBar)控件

VB程序设计-武汉大学黄文斌老师课件

Visual Basic程序设计基础

4.1循环语句VB提供的循环语句有While...Wend Do...Loop For...Next For Each...Next

最常用的是While...Wend和For...Next循环语句。

VB程序设计-武汉大学黄文斌老师课件

Visual Basic程序设计基础

4.1.1循环的基本概念例如，计算S=1+2+3+…+1000。比较下列两种方法： (1)采用赋值语句，即： S=1+2+3+4+5+6+7+……+1000显得十分冗长。仔细观察，可见其中有大量的加法重复计算。 (2)采用计数型循环语句，即： S=0 ' 1)置S初值为0 For i=1 To 1000 ' 2)对于i从1到1000,重复执行： S=S+i '① S=S+i Next i '② i自动递增1,进入下次重复。

VB程序设计-武汉大学黄文斌老师课件

Visual Basic程序设计基础

4.1.2 While…Wend(当型)循环语句格式：While条件[循环体] Wend

功能：当条件成立(值为真)时，执行循环体；当条件不成立(值为假)时，终止循环。

VB程序设计-武汉大学黄文斌老师课件

Visual Basic程序设计基础

例：计算S=1+2+3+4+5+6+7+……+100的值Dim i As Integer, s As Long i= 1: s= 0 While i<= 100 s=s+i i=i+1 Wend Print"1+2+...+100="; s

VB程序设计-武汉大学黄文斌老师课件

Visual Basic程序设计基础

例4.1由键盘输入一系列整数，当输入数据为999时结束输入。统计输入数据的负数之和，以及负数的平均值。用Print直接在窗体上输出结果。 1.设计窗体、控件及其属性

VB程序设计-武汉大学黄文斌老师课件

Visual Basic程序设计基础

2.算法流程图：

VB程序设计-武汉大学黄文斌老师课件

Visual Basic程序设计基础

3.按上列算法，编写“开始”按钮的事件过程如下：Private Sub Command1_Click() Dim Num, Sum, Count As Integer '定义变量、初值 Dim Aver As Single: Sum=0: Count=0 Num=Val(InputBox(“Enter a Integer Number:”)) While ( Num<> -999) '循环求和、计数、输下一个数 If Num<0 Then Sum= Sum+ Num Count= Count+ 1 End If Num= Val(InputBox("Enter a Integer Number:")) Wend If Count<>0 Then Aver= Sum/ Count '求平均 Print"Sum="; Sum '在窗体上显示结果 Print"Aver="; Aver End Sub

VB程序设计-武汉大学黄文斌老师课件

Visual Basic程序设计基础

4.1.3 Do...Loop循环语句Do...Loop有两种格式：前测型循环结构和后测型循环结构。两者区别在于判断条件的先后次序不同。 1.前测型Do...Loop循环格式： Do[{While|Until}条件]

[循环体] Loop

VB程序设计-武汉大学黄文斌老师课件

Visual Basic程序设计基础

4.1.3 Do...Loop循环语句

功能：

do while...loop:当条件成立(真)时，执行循环体；当条件不成立(假),终止循环。(与while相同) do until...loop

:当条件不成立(假)时，执行循环体；直到条件成立(真),终止循环。

VB程序设计-武汉大学黄文斌老师课件

Visual Basic程序设计基础

例4.2求 N!。用Print直接在窗体上输出结果。Private Sub Command1_Click() Dim N As Integer, IntCount As Dim LnFact As Long LnFact= 1 intCount= 1 N= Val(InputBox("Enter N:")) Do While intCount<=N LnFact= LnFact * intCount: intCount= intCount+1 Loop Print"Fact="; LnFact End Sub Integer '定义变量、初值 '输入N值 '循环求阶乘

'在窗体上显示结果

VB程序设计-武汉大学黄文斌老师课件

Visual Basic程序设计基础

4.1.3 Do...Loop循环语句2.后测型Do...Loop循环格式：Do

[循环体] Loop[{While|Until}条件]说明：先执行循环体，然后判断条件，根据条件决定是否继续执行循环。

VB程序设计-武汉大学黄文斌老师课件

4.1.3 Do...Loop循环语句

Visual Basic程序设计基础

功能：

do ... loop while:先执行一次循环体，当条件成立(真)时，再执行循环体；当条件不成立(假),终止循环。 Do ... loop until:先执行一次循环体，当条件不成立 (假)时，再执行循环体；直到条件成立(真),终止循环。

VB程序设计-武汉大学黄文斌老师课件

Visual Basic程序设计基础