当前位置:首页 >> IT/计算机 >> VB循环结构设计

VB循环结构设计


计算机具有速度快、精度高 的特点,特别适于进行重复性的 工作,重复次数越多越能显示它 的威力。所以,使用计算机时, 应尽量把问题归纳为简单而有规 则的重复运算和操作,以充分发 挥计算机的特长。

第5章 循环结构设计
采用循环程序可以解决一些按一定规则重复执行的问题。 例如,统计一个班几十名学生,甚至全校几千名学生的学期 成绩,如求平均分、不及格人数等

本章主要内容
循环语句?? For...Next / Do...Loop / While...Wend? 循环出口语句(Exit)?? 多重循环?? 列表框与组合框?? 程序举例

?
循环是指在指定的条件下多次重复执行一组语 句。被重复执行的一组语句称为循环体

VB提供的循环语句有 Do...Loop For...Next While...Wend For Each...Next 最常用的是For...Next和Do...Loop语句

5.1 循环语句 5.1.1 For...Next循环语句
按指定次数执行循环体
例5.1 在窗体上显示2至10各偶数的平方数 ?
采用Print直接在窗体上输出结果,程序代码: Private Sub Form_Load() Dim k As Integer Show 程序运行结果: For k = 2 To 10 Step 2 4 Print k * k 16 Next k 36 End Sub 64 100

说明:上述程序,循环变量k的初值、终值和步长值分别
为2,10和2,即从2开始,每次加2,到10为止,控制循环5次。 每次循环都将循环体(Print k*k)执行一次

格式: For 循环变量=初值 To 终值 [Step 步长值]
循环体? Next 循环变量

功能:本语句指定循环变量取一系列数值,并且
对循环变量的每一个值把循环体执行一次
初值、终值和步长值都是数值表达式,步长值可以是正数 (称为递增循环),也可以是负数(称为递减循环) 若步长值为1,则Step 1可以省略

For...Next语句的执行步骤
(1)求出初值、终值和步长值,并保存起来 (2)将初值赋给循环变量
?

(3)判断循环变量值是否超过终值(步长值为正时,指大于 终值;步长值为负时,指小于终值)。超过终值时,退出循环, 执行Next之后的语句? (4)执行循环体
? (5)遇到Next语句时,修改循环变量值,即把循环变量的 当前值加上步长值再赋给循环变量 (6)转到(3)去判断循环条件

?

例5.1的执行过程

例5.2 求S = 1 + 2 + 3 + … + 8
采用Print直接在窗体上输出结果,程序代码:
Private Sub Form_Load() Show s=0 For k = 1 To 8 s=s+k Next k Print "s="; s End Sub

程序运行结果如下:?
s=36?

语句s=s+k(循环体语句)的执行过程

例5.3 求T = 8! = 1×2×3×…×8
采用Print直接在窗体上输出结果,程序代码: Private Sub Form_Load() Show t=1 For c = 1 To 8 t=t*c Next c Print "T="; t End Sub 程序运行结果是:? T=40320? 语句t=t*c也称乘法器。先将t置1(不能置0)。? 在循环程序中,常用累加器和累乘器来完成各种计算任务

例5.4 用π/4=1 - 1/3 + 1/5 - 1/7 + ……级数 求π的近似值 (取前5000项来进行计算)
采用Print直接在窗体上输出结果,程序代码如下: Private Sub Form_Load() Show Dim pi As Single, c As Integer, s As Integer pi = 0 s=1 's表示加或减运算 For c = 1 To 10000 Step 2 pi = pi + s / c s = -s '交替改变加、减号 Next c Print "π="; pi * 4 End Sub 程序运行结果是:? π=3.141397

例5.5 用100 元买100 只鸡,母鸡3元1只, 小鸡1元3只,问各应买多少只?
下面采用“穷举法”来解此题。 其做法是:从所有可能解中,逐个进行试验,若 满足条件,就得到一个解,否则不是。直到条件满 足或判别出无解为止。
令母鸡为x只,小鸡为y只,根据题意可知 y = 100 – x 开始先让x初值为1,以后逐次加1,求x为何值时, 条件3x+y/3=100成立。如果当x达到30时还不能使条 件成立,则可以断定此题无解

采用Print直接在窗体上输出结果,程序代码: Private Sub Form_Load() Dim x As Integer, y As Integer Show For x = 1 To 30 y = 100 - x If 3 * x + y / 3 = 100 Then Print "母鸡只数为:"; x, Print "小鸡只数为:"; y End If Next x End Sub 运行结果:? 母鸡只数为:25

小鸡只数为:75

5.1.2 Do...Loop循环语句
For...Next循环主要是用在知道循环次数的情况下, 若事先不知道循环次数,可以使用当型循环Do...Loop Do...Loop两种格式:前测型循环结构和后测型循 环结构。两者区别在于判断条件的先后次序不同

1. 前测型Do...Loop循环
格式:
Do [{While|Until} 条件] 循环体 Loop?

Do While...Loop语句的功能:当条件成立(为真) 时,执行循环体;当条件不成立(为假时),终止循环

?
Do Until...Loop(直到型循环)语句的功能:
当条件不成立(为假)时,执行循环体,直到条件 成立(为真)时,终止循环

例5.6 求 S=12 + 22 + … + 1002
采用Do While...Loop语句 采用Print直接在窗体上输出结果,程序代码: Private Sub Form_Load() Dim n As Integer, s As Long Show n = 1: s = 0 Do While n <= 100 s=s+n*n n=n+1 Loop Print "s="; s End Sub 程序运行结果: S=338350

例5.7 用π /4=1 - 1/3 + 1/5 - 1/7 + …… 级数,求π 的近似值。当最后一项的绝对值小于10-5时,停止计算
?采用Print直接在窗体上输出结果,程序代码: Private Sub Form_Load() Show Dim pi As Single, n As Long, s As Integer pi = 0 : n = 1 : s = 1 Do While n <= 100000 '或1/n>=0.00001 pi = pi + s / n s = -s n=n+2 Loop Print "π="; pi * 4 End Sub

程序运行结果:?
π=3.141575

2. 后测型Do...Loop循环?
语句格式如下:? Do? 循环体? Loop [{While|Until}条件] 功能:先执行循环体,然后判断条件,根据条件决定是 否继续执行循环 ? 注意,本语句执行循环的最少次数为1,而前测型 Do...Loop语句的最少次数为0(即一次都不执行循环)

三种循环语句比较 示例:求和s = 1 + 2 + 3 + … + 8
For…Next S=0 For k=1 to 8 s=s+k Next k Print s 前测型 s=0:k=1 Do While k<=8 s=s+k k=k+1 Loop Print s
s=0 : k=1 do s=s+k k=k+1 Loop While k<=8 Print s

后 测 型

例5.8 输入两个正整数,求它们的最大公约数
“辗转相除法”算法:求出m/n余数p,若p=0,n即为
最大公约数;若p非0,则把原来的分母n作为新的分子m,把 余数p作为新的分母n继续求解?

设计步骤如下:? (1)创建应用程序的用户界面和设置对象属性

编写的“计算”按钮Click事件过程代码如下: Private Sub Command1_Click() Dim m As Integer, n As Integer, p As Integer m = Val(Text1.Text) : n = Val(Text2.Text) If m <= 0 Or n <= 0 Then MsgBox ("数据错误!") End End If Do p = m Mod n m=n n=p Loop While p <> 0 Text3.Text = m End Sub 若输入的m和n的值为85和68,则运行结果如上图

5.1.3 While...Wend循环语句 ?
语句格式 While 条件? 循环体 Wend?? 功能:当条件成立(为真)时,执行循环体;当条 件不成立(为假)时,终止循环。 本语句与上述Do While...Loop循环语句相似

5.1.4 循环出口语句?
用于提前退出循环
格式: Exit {For|Do}? 功能:直接从For循环或Do循环中退出 ? 当程序运行时遇到Exit语句时,就不再执行循环 体中的任何语句而直接退出,转到循环语句(Next、 Loop)的下面继续执行

例5.8的循环语句可改为
Do p = m Mod n If p=0 Then Exit Do End If m=n n=p Loop While p <> 0 Text3.Text = n

例5.9 设计一个“加法器”程序
把每次输入的数累加。当输入-1时结束程序的运行 (1)创建应用程序的用户界面和设置对象属性 (2)编写程序代码
Private Sub Form_Load() Show Sum = 0 Do While True '条件为真,循环无终止进行下去 x = Val(InputBox("请输入要加入的数(-1表示结束)", "输入数据")) If x = -1 Then Exit Do End If Sum = Sum + x Text1.Text = Sum Loop MsgBox ("累加运算结束") End Sub

以-1作为“终止循环标志”

5.2

多 重 循 环

多重循环是指循环体内含有循环语句的循环
例5.10 多重循环程序示例
Private Sub Form_Load() ? Show For i = 1 To 3 ?外循环 For j = 5 To 7 ?内循环 Print i, j Next j Next i End Sub ? 程序运行结果 1 5 1 6 1 7 2 5 2 6 2 7 3 5 3 6 3 7

注意内、外循环层次要分清,不能交叉

例5.11 编一程序,输出下列所示的图形

本例可采用两重循环来实现。外循环控制输出7行,内 循环控制每行输出要求的字符数。 在进入内循环之前,使用Print Tab()来对起始输出位置 定位,退出内循环后,使用Print来控制换行。

采用Print直接在窗体上输出结果,程序代码如下:
Private Sub Form_Load() Show For i = 1 To 7 Print Tab(10 - i); For j = 1 To 2 * i - 1 Print Chr(i + 48); Next j Print Next i End Sub

Print Chr(i+48)与Print i有所不同

例5.12 取一元、二元、五元的硬币共十枚,付 给25元钱,有多少种不同的取法??
(1)分析:设一元硬币为a枚,二元硬币为b枚,五元硬币 为c枚,可列出方程? a+b+c=10 a+2b+5c=25? 采用两重循环,外循环变量a从0~10,内循环变量b从0~10 (2)创建应用程序的用户界面

(3)编写程序代码
程序通过Print方法把处理结果输出在标签的下方 Private Sub Form_Load() Show CurrentX = 0 : CurrentY = 1500 '确定开始显示的坐标 Print , "五元", "二元", "一元" n=0 '记录解的组数 For a = 0 To 10 For b = 0 To 10 c = 10 - b - a If a + 2 * b + 5 * c = 25 And c >= 0 Then n=n+1 Print "("; n; ")", c, b, a End If Next b, a End Sub

5.3 列表框与组合框

列表框和组合框都能为用户提供若干个选 项,供用户从中任意选择 两种控件的特点是为用户提供大量的选项 但又占用很少的屏幕空间,操作简单方便

5.3.1 列表框
1. 列表框的用途?
列表框(ListBox)用于列出可供用户选择的项目列表,用户 可从中选择一个或多个选项。 自动出现滚动条 表项 索引

2. 常用属性
(1)Name属性 (2)List属性:该属性是一个字 符型数组, 用于存放列表框的表项 数组的下标从0开始 图5.5中,List1.List(0)的值为 “教授”,List1.List(1)的值为“副教授”

(3)ItemData属性:为每个表项设置一个对应的数值
(4)ListCount属性:返回列表框中表项的数目 (5)ListIndex属性:返回已选定表项的顺序号(索引)。若未 选定任何项,则ListIndex的值为-1 ? (6)Text属性:存放当前选定表项的文本内容 (7)Selected属性:逻辑值,表示列表框中某一表项是否被 选中 (8)Sorted属性:设置列表框中各表项在运行时是否按字母 顺序排列 (9)MultiSelect属性:设置是否允许同时选择多个表项

假设列表框List1中有四个表项,并已选定第2项,则 有: List1.List(0)的值为”教授” 个数List1.ListCount 为4 List1.ListIndex 为1 List1.Text的值为”副教授” List1.Selected(1)为True List1.Selected(0)为False
采用以下方法,可为列表框List1赋值:
(1)在属性窗口中设置 (2)利用AddItem赋值 List1.AddItem “教授” List1.AddItem “副教授” List1.AddItem “讲师” List1.AddItem “助教” (3) 利用List属性赋值 List1.List(0)= “教授” List1.List(1)= “副教授” List1.List(2)= “讲师” List1.List(3)= “助教”

3. 事件
可接收Click、DblClick等事件

4. 方法
(1) AddItem方法:用于把一个列表项加入列表框 格式: [对象.]AddItem 列表项[,索引] 举例:List1.AddItem "海南省" ,28 其中,“索引”值不能大于表项数(ListCount)

(2) Clear方法:用于清除列表框中的所有项目 (3) RemoveItem方法:用于删除指定的列表项

格式: [对象.]AddItem 列表项[,索引]

5. 列表框表项的输出?
(1)用鼠标单击列表框内某一表项,则该表项值存放在Text
属性中。例如:? x = List1.Text
′把表项值存放在x变量中

(2)指定索引号来取表项的内容,例如:? List1.ListIndex = 3? x = List1.Text (3)直接从数组List()中读取,例如:? x = List1.List(5)

例5.13 设计一个程序,找出100~800范围内所有 能同时被3和8整除的自然数? ?
(1)分析:判别条件为 (n Mod 3=0) And (n Mod 8=0)? (2)创建应用程序的用户界面和设置对象属性

(3)编写程序代码? 编写的“显示”按钮Click事件过程代码:
Private Sub Command1_Click() List1.Clear For n = 100 To 800 If (n Mod 3 = 0) And (n Mod 8 = 0) Then List1.AddItem n End If Next n End Sub

例5.14 设计一个选课程序
(1)创建应用程序的用户界面和设置对象属性

用户先在左列表框(List1)选择一个或多个选修课,当单击 “显示”按钮时,在右列表框(List2)中将显示出用户选中的所 有课程。单击“清除”按钮时,将清除右列表框中的内容

(2)编写程序代码

Private Sub Form_Load() List1.AddItem "电子商务" List1.AddItem "网页制作" List1.AddItem "Internet简明教程" List1.AddItem "计算机网络基础" List1.AddItem "多媒体技术“ End Sub Private Sub Command1_Click() List2.Clear For i = 0 To List1.ListCount - 1 If List1.Selected(i) Then
List2.AddItem List1.List(i)

'"显示"按钮单击事件 '清除列表框的内容 '逐项判断 '真时为选定

End If Next i End Sub Private Sub Command2_Click() List2.Clear End Sub

'"清除"按钮单击事件

5.3.2 组合框
允许从已有的选项中进行选择,还允许输入列 表中不包括的内容 列表框和文本框的组合 具有列表框和文本框的大部分属性和方法。独 有的一些属性:

?
(1)Style属性:该属性取值为0,1或2,分别决 定了组合框的三种不同类型
下拉组合框(Dropdown Combo) 简单组合框(Simple Combo) 下拉列表框(Dropdown List)

(2)Text属性:该属性是用户所选定项目的文本或 直接从文本框输入的文本

例5.15 编制程序,把一批课程名放入组合框中,再对组 合框进行项目显示、添加、删除、全部删除等操作 (1)创建应用程序的用户界面 (2)设置对象属性
组合框的Style属性为0,TabIndex(键序)为0? 两个标签;四个命令按钮; 一个文本框Text1,用来显示当 前的选修课总课程数

(3)编写程序代码
Private Sub Form_Load()
Combo1.AddItem "电子商务" Combo1.AddItem "网页制作" Combo1.AddItem "Internet简明教程" Combo1.AddItem "计算机网络基础" Combo1.AddItem "多媒体技术" Combo1.Text = "" Text1.Text = Combo1.ListCount

'置空值 '表项个数

End Sub Private Sub Command1_Click() If Len(Combo1.Text) > 0 Then Combo1.AddItem Combo1.Text Text1.Text = Combo1.ListCount End If Combo1.Text = "" Combo1.SetFocus End Sub

'”添加”

Private Sub Command2_Click() Dim ind As Integer ind = Combo1.ListIndex If ind <> -1 Then Combo1.RemoveItem ind Text1.Text = Combo1.ListCount End If End Sub Private Sub Command3_Click() Combo1.Clear Text1.Text = Combo1.ListCount End Sub Private Sub Command4_Click() End End Sub

?“删除”

'-1表示无表项 '删除已选定的表项

?“全清”

? 5.4 程序举例

例5.16 打印“九九乘法表”

两重循环; 采用Print直接在窗体上输出结果 Private Sub Form_Load()
Show FontSize = 15 Print Tab(12); “九九乘法表“ FontSize = 12 Print For k = 0 To 9 Print Tab(k * 4); k; Next k Print For j = 1 To 9 Print j; For k = 1 To j Print Tab(k * 4); j * k; Next k Print Next j '设置字号 '输出标题

'输出空行
'输出第一行数字

'换行 '外循环
'内循环 '输出乘积 '换行

End Sub

打印“九九乘法表”

?

例5.17 输入一个十进制整数,将其转换成二进制 数、八进制数或十六进制数
(1)分析:模仿十进制整数转换成二进制数的方法(即“除2 取余”),采用逐次“除n取余”法(n为2,8或16),即用n不 断去除要转换的十进制数,直至商为0为止,将每次所得的 余数逆序排列(以最后余数为最前位),即得到所转换的n进制 数。 (2)创建应用程序的用户界面和设置对象属性

?

列表框的名称为List1,其List属性设置了三个表项: 二进制、八进制和十六进制,ItemData属性设置了相应的
值:2,8和16

(3)编写程序代码?
功能要求:用户在文本框Text1中输入要转换的十进制 数,选择转换进制,单击“转换”按钮(Command1)后,则 在文本框Text2中输出转换结果。?

“换码表”(Ch变量)的作用

Private Sub Command1_Click()

程 Dim y As String, x As Long, s As Integer Dim Ch As String, n As Integer Ch = "0123456789ABCDEF" '换码表 If List1.ListIndex = -1 Then n=2 '未选,则以二进制转换 Else n = List1.ItemData(List1.ListIndex) End If y = " " :x = Val(Text1.Text) Private Sub Command2_Click() '结束 If x = 0 Then Unload Me Text2.Text = "" End Sub Exit Sub End If Do While x > 0 s = x Mod n '取余数 x = Int(x / n) '求商 y = Mid(Ch, s + 1, 1) + y '换码,反序加入 Loop 示例:(142)10 = (8E)16 Text2.Text = y

'“转换”按钮单击事件过

End Sub

例5.18 把一个正整数写成若干个素数相乘的形式
例如: 10=2*5 24=2*2*2*3 76=2*2*19

解题的步骤;程序代码: Private Sub Form_Load()
Show s = InputBox("请输入一个正整数") x = Val(s) :Print Print x; "="; For i = 2 To x Do While (x Mod i = 0) '求相同因子 x=x/i Print i; If x <> 1 Then Print "*"; 示例:20 = 2*2*5 Loop Next i

End Sub

补充1: 框架(Frame)
1. 框架的用途?

作为容器放置其他控件对象,将这些控件对象分成可标识 的控件组;框架内的所有控件将随框架一起移动、显示和消失。 ?

2. 常用属性?
Name属性和Caption属性

3. 事件?
可以响应Click和Dblclick事件。? 在应用程序中一般不需要编写有关框架的事件过程

例 控制文本的字体、字号及颜色
设计步骤如下:? (1)创建应用程序的用户界面和设置对象属性
在窗体上设置3个框架Frame1、Frame2和Frame3

(2)编写程序代码
功能要求:在三个框架中分别选择字体、字号 和颜色,单击“确定”按钮后,文本框中的文本相 应属性会发生变化
Private Sub Form_Load() Option1.Value = True Option3.Value = True Option5.Value = True Text1.FontName = "宋体" Text1.FontSize = 16 Text1.ForeColor = RGB(0, 0, 255) End Sub

Private Sub Command1_Click() If Option1.Value Then Text1.FontName = "宋体" Else Text1.FontName = "幼圆" End If If Option3.Value Then Text1.FontSize = 16 Else Text1.FontSize = 20 End If If Option5.Value Then Text1.ForeColor = RGB(0, 0, 255) Else Text1.ForeColor = RGB(255, 0, 0) End If End Sub

补充2 滚动条?
1.滚动条的用途?
为不能自动支持滚动的应用程序和控件提供滚动功能,也可 作为数据输入的工具。? 水平滚动条(HScrollBar)和垂直滚动条(VScrollBar) 最小值(Min),最大值(Max) ;移动滚动块时,代表的值随之 改变

2. 常用属性
(1)Min、Max属性: Min属性的默认值为0,Max属性的默认 值为32767。? (2)Value属性:设置滚动块在滚动条中的位置值 (3)SmallChange最小变动值属性 (4)LargeChange最大变动值属性

3. 事件
滚动条控件可以识别10个事件,其中最常用的是Scroll和 Change事件? (1)Scroll事件:当用鼠标拖动滚动块时,即触发Scroll事件 (2)Change事件:当改变Value属性值时,即触发Change事 件 当释放滚动块、单击滚动条内空白处或滚动箭头时, Change事件就会发生。

例 设计一个调色板应用程序
建立三个水平滚动条作为红、绿、蓝三种基本颜色的输 入工具,合成的颜色显示在右边的标签中(图10.17),用其背 景颜色属性BackColor值的改变实现合成颜色的调色

说明:根据调色原理,基本颜色有红、绿、蓝三种,选 择这三种颜色的不同比例,可以合成所需要的任意颜色 (1)创建应用程序的用户界面和设置对象属性 三个水平滚动条名称从上至下分别为HScroll1、HScroll2、 HScroll3 其Max属性均设置为255,Min属性均设置为0, SmallChange属性设置为1,LargeChange属性设置为10, Value设置为0。 显示合成颜色的标签名为Label1

(2)编写程序代码
功能要求:通过操作(单击或拖动)滚动条,直接修改 RGB设置,从而得到标签背景所需的颜色 Private Sub HScroll1_Change() Label1.BackColor = RGB(HScroll1.Value, _ HScroll2.Value, HScroll3.Value) End Sub Private Sub HScroll2_Change() Label1.BackColor = RGB(HScroll1.Value, _ HScroll2.Value, HScroll3.Value) End Sub Private Sub HScroll3_Change() Label1.BackColor = RGB(HScroll1.Value, _ HScroll2.Value, HScroll3.Value) End Sub

补充3 其他常用语句
强制显式声明变量语句(Option Explicit)
避免因为写错变量名而导致错误 例如,交换变量a、b的值
Temp=a a=b b=Tmp

'把Temp写错成Tmp?
‘模块级声明

运行结果是使b的值为0。若改成:?
Option Explicit? Dim a As Integer,b As Integer,Temp As Integer . . . Temp=a? a=b? b=Tmp?

运行时VB就会发出警告“Variable not defined”(变量未定 义),只有把Tmp改为Temp后才恢复正常

补充4 GoTo型控制
包括GoTo语句和On...GoTo语句

1. GoTo语句?
语法格式:GoTo {行号|标号}? 功能:改变程序的执行顺序,跳转到程序中指定的行开始执行 例10.2 应用GoTo语句示例 Private Sub Form_Load() Show Print "整型数" GoTo Line1 '跳转到标号Line1指定的行 Print "单精度数" Line1: Print "字符串" End Sub

2. On...GoTo语句
On...GoTo语句用来实现分支选择控制(类似于Select...End Select)

语法格式:On 数值表达式 GoTo {行号表|标号表}?
功能:根据“数值表达式”的值,控制转移到几个指定的语句 行中的一个语句行。

例如
On K GoTo Line1, Line2, Line3 执行过程:将K四舍五入取整,如果其值为1,则转移到Line1 标号行;如果为2,则转移到Line2标号行;如果为3,则转移到 Line3标号行。如果K的值等于0或大于3,则自动执行本语句的 下一个语句


更多相关文档:

vb循环结构程序设计_图文.ppt

vb循环结构程序设计 - 第4章 循环结构程序设计 本章内容 ? ? ? ? 循

VB程序设计--循环结构_图文.ppt

VB程序设计--循环结构 - Visual Basic 程序设计 循环结构 1 4.3 循环结构 4.3.1 For循环语句 4.3.2 Do…Loop循环语句 4.3.3 循环的嵌套 ...

VB循环结构程序设计_图文.ppt

第4 章第 四章 VB 程序设计基础 VB程序设计基础 4.1 VB的程序语句 4.2 顺序结构 4.3 选择结构 4.4 循环结构 4.5 其它控制语句 4.6 综合应用 4.4 循环结构第 ...

vb循环结构_图文.ppt

vb循环结构_工学_高等教育_教育专区。程序设计语言的三种基本结构流程图:语句块1语句块2 真语句块1 条件 假语句块2 顺序结构条件 假 选择结构循环体 条件 假 ...

【付晓弓】《VB循环结构》教学设计及反思.doc

【付晓弓】《VB循环结构》教学设计及反思_其它课程_初中教育_教育专区。VB 循环结构南京市江宁区汤山中学 付晓弓 教学目标一、知识与技能: 1、学会使用程序画一个...

VB循环结构,教学设计.doc

篇一:vb 程序设计 fornext 循环结构教学设计vb 程序设计 for?next 循环结构》教学设计 江苏省武进高级中学现代教育技术组 吴涛 一、 教学目标设计 本课内容的...

VB循环结构程序设计_图文.ppt

VB循环结构程序设计_计算机软件及应用_IT/计算机_专业资料。3.3 循环语句

VB教程---循环结构_图文.ppt

Sum=sum+n Sum=sum+i i=i+1 i是从1到n递增 1的数列 一、循环程序设计结构 VB中提供了两种类型的循环语句:一种是计数循环语 句;另一种是条件循环语句。...

vb控制结构循环结构程序设计_图文.ppt

vb控制结构循环结构程序设计 - 第6章 VB控制结构(2) 循环结构程序设计 本章内容及要求: (1)掌握For…..Next语句及Exit For语句的使用; (2)掌握Do….L...

VB循环结构程序设计_图文.ppt

VB循环结构程序设计 - 3.3 循环语句 程序的另一种结构是循环结构 循环结构

《VB程序设计》之循环结构讲解_图文.ppt

VB程序设计》之循环结构讲解 - 《VB程序设计》主题讲座 主题:循环结构 程序设计的三种基本结构 顺序结构 ? 选择结构 ? 循环结构 ? 循环结构 ? 计数型循环For...

vb控制结构-循环结构程序设计_图文.ppt

vb控制结构-循环结构程序设计 - 第6章 VB控制结构(2) 循环结构程序设计 本章内容及要求: (1)掌握For…..Next语句及Exit For语句的使用; (2)掌握Do…....

VB程序设计FORNEXT循环结构教学设计.pdf

VB程序设计FORNEXT循环结构教学设计 - 《VB 程序设计 For…Next 循环结构》教学设计 江苏省武进高级中学现代教育技术组 吴涛 一、教学目标设计 本课内容的学习建立...

vb教程,循环结构解析_图文.ppt

vb教程,循环结构解析 - 第 6章 Visual BASIC 程序设计 循环结构程序设计 本章要点: ? For...Next循环 ? Do...Loop循环 特点: 重复相同或相似...

VB教程 第5讲 循环结构设计_图文.ppt

VB教程 第5讲 循环结构设计 - 计算机具有速度快、 计算机具有速度快、精度高

vb-4-循环结构程序设计_图文.ppt

vb-4-循环结构程序设计 - 第六次课 第4章 循环结构程序设计 本章内容 循环结构 用For-Next语句实现循环结构 语句实现循环结构 用Do While-Loop语句实现循环结构...

VB五章控制结构-循环结构_图文.ppt

VB五章控制结构-循环结构 - 循环结构 在Visual Basic程序的三种结构中,循环结构是 教学课件 一种重要结构。 循环的本质:不断地重复某种动作。 对计算机程序而言,...

vb 循环结构程序设计_图文.ppt

vb 循环结构程序设计 - 第5章 循环结构程序设计 第5章 循环结构程序设计 循环是指在程序设计中,从某处开始有规律地反复执行 某一程序块的现象,重复执行的程序...

VB 循环结构程序设计.ppt

VB 循环结构程序设计_计算机软件及应用_IT/计算机_专业资料。VB 循环结构程序设计 医学计算机应用 2015/9/27 1 2015/9/27 2 Visual Basic 程序设计基础与应用第...

vb教程,循环结构_图文.ppt

vb教程,循环结构 - 第6 章 Visual BASIC 程序设计 循环结构程序设计 本章要点: ? For...Next循环 ? Do...Loop循环 特点: 重复相同或相似的操...

更多相关标签:
网站地图

文档资料共享网 nexoncn.com copyright ©right 2010-2020。
文档资料共享网内容来自网络,如有侵犯请联系客服。email:zhit325@126.com