VB程序 循环结构、列表框和组合框

循环变量 = 初值
结
循环变量 ≥ 终值 ?
构
流
程
执行循环体
图
N
循环变量 = 循环变量 + 步长
Y Y
循环变量 ≤ 终值 ?
执行循环体
N
循环变量 = 循环变量 + 步长
步长为负
步长为正
4
注意事项：
（1）“循环变量” 必须为数值型；
（2）“初值”、“终值”为数值表达式，若值不是整
数，系统会自动取整；
（3）“步长”为数值表达式，可为正数，也可为负数，
End Sub
33
Private Sub Form_Click() Dim e As Double Dim i As Integer Dim fact As Double 按Di下m列re公su式lt计A算s ：Long e = 0: i = 1: fact = 1: result = 1 eD=o1+1/1！+1/2！+1/3！+…+1/n！+… 使1fea/=cnt！e=小+1于f/a0c.rt0e0s0u0lt01 result = result * i i=i+1 Loop While fact > 0.000001 Label1.Caption = Val(e)
s=s+n
End If
n=n+1
Loop While n <= 100
NumLabel.Caption = t
SumLabel.Caption = s
End Sub
32
Private Sub ComputeCmd _Click()
Dim n As Integer, s As Integer

Next i
学
For i =1 To 10 课 For j=1 To 20 件 … Next i
Next j
6.5 跳转语句
GoTo语句可以改变程序执行的顺序，跳过程序的某一
教 学 课
件
前后两项之差都 Sum=0
为1，是一个等 差数列
Sum=sum+1i=i+1
Sum=sum+3
… Sum=sum+n
i是从1到n递增 1的数列
一、循环程序设计结构
VB中提供了两种类型的循环语句：一种是计数循环语 句；另一种是条件循环语句。Visual Basic 支持的循环结
先执行循环体，后判断条件值，为假继续，直到为真退出
⑴. Do While … Loop语句
语法格式： Do While 〈条件表达式〉
〈循环体〉 [Exit Do] 〈循环体〉 Loop
(2) Do Until …Loop语句
语法格式：
Do Until〈条件表达式〉
〈循环体〉
教
[Exit Do]
学
说明
① 格式中的参数说明：
循环的初值、终值和步长都是数值表达式，其值不一定是
教 学
整数，可以是实数。
课
增量参数可正可负。如果增量为正，则初值必须小于等于
件
终值，否则不能执行循环体内的语句；如果增量为负，则
初值必须大于等于终值。如果没有设置step，则增量默认
为1。
当初值等于终值时，不管步长是正数还是负数，都执行一次循环体。
学
钱一。百钱买百鸡，问鸡翁、母、雏各几
课
何？
件
• 找出1~999之间所有的同构数
– 同构数：该数出现在它的平方数的右边，如： 5—25，25—625

Enabled
逻辑值。决定窗体是否响应用户事件（如单击窗体）。属性值 为 True 或 False。
Visible 可见性。默认为 True，False 使窗体及窗体上的对象都不可见
Index List ListIndex
在对象数组中的编号 字符数组，存放列表框的项。 ListIndex 的值表示执行时选中的列表项序号。
MouseUp 弹起鼠标
Paint 重新绘图
Resize 重新调整控件的布局
09 国贸 汪德波
图像框的属性、方法及事件
属 Name height
窗体名称。可在程序中使用，但不能设置 这四个属性决定窗体的大小和位置，单位为缇。程序中
Width 可进行设置。Height、width 设置窗体的高度和宽度，Top 为窗体
09 国贸 汪德波
VB 第七次作业
列表框的属性、方法及事件
基 本
属属
性
性特
有 属 性
方法 事件
Name
窗体名称。可在程序中使用，但不能设置
Height width Top Left
这四个属性决定窗体的大小和位置，单位为缇。程序中
可进行设置。Height、width 设置窗体的高度和宽度， Top 为窗体到屏幕顶部的距离， Left 为窗体到屏幕左边的距离。
MultiSelect 用来设置一次可以选择的列表项数。
Style Columns
用于确定控件的外观，只能在设计时确定。 用来确定列表框的列数。
Addltem 把“项目字符串”的文本放到列表框中。 RemoveItem 用来删除列表框中指定的项目。
Clear Click
用来删除列表框中的全部内容。 用来单击选择的内容

执行循环体。当条件为假时，不再执行循环。
对于Do循环结构，如果没有“循环条件”，就构成
一种最简单的Do循环。若在循环体中没有GoTo 、End
等语句，就会反复执行循环体，永不停止。
13
.
6.1.2.用 Do语句实现循环对象
例：计算输入数据的
累加和。
标签1
从键盘先后输入若干 正整数，计算并显示 标签2
6.1.2.用 Do语句 实现循环
计算累加和 的算法流程 如右图：
15
开始 初始化累加和sum
输入整数VarInteger
No VarInteger<>0
Yse Sum=Sum+VarInteger
显示输入的数 VarInteger
显示当前累加和 输入整数VarInteger
结束 .
6.1.2.用 Do语句实现循环
result = 1 For i = 1 To 5 Step 1
result = result * i Next i Print result
•For语句中i用来控制循环次数，称为循环变量。
•循环变量的值在循环过程中是不断变化的，本例中i的初始值指
定为1，终止值指定为5，“step 1”表示每执行完一次循环体后i
Loop
End16 Sub
.
6.1.2.用 Do语句实现循环
cmdCala_Click过程中定义两个整型变量：
Sum：存储累加和
varInteger：存储每次输入的整数。
若输入的值不是0，满足Do While的循环条件，执行循环体， 计算累加和Sum值，并将varInteger值显示在lblNumber中，将 Sum值显示在标签lblResult中。