vb第5章数组、列表框和组合框

31
第5章 数组、列表框和组合框
• （4）编写“逆置”命令按钮的单击事件代 •码 Private Sub cmdBack_Click()
• • • Dim t As Integer
0 1 2 3 4 5 6 7 8 9
• 实现数组元素的逆置功能 • 9 8 7 6 5 4 3 2 1 0 • For i = 0 To 9 • lblResult.Caption=lblResult.Caption & Str(a(i)) • Next i • End Sub
End Sub
7
第5章 数组、列表框和组合框
3、编写“平均值”按钮的单击事件 Private Sub cmdAve_Click()
L2.Caption = “平均值:” & s/20
End Sub
两个过程中都要用到， 应定义成窗体级变量
8
第5章 数组、列表框和组合框
• 【修改引例】 添加“大于平均值”按钮。单 击 “大于平均值”按钮时，将20个数据中大 于平均值的数据显示在下面标签中。
32
第5章 数组、列表框和组合框
• （4）编写“逆置”命令按钮的单击事件代 •码 Private Sub cmdBack_Click()
• • • Dim t As Integer
0 1 9 1 9 8 9 8 实现数组元素的逆置功能8 9 9 8 2 2 2 7 7 7 3 3 3 3 6 6 4 4 4 4 4 5 5 5 5 5 5 4 6 6 6 6 3 3 7 7 7 2 2 2 8 8 1 1 1 1 9 0 0 0 0 0
累加20个数据
For i = 1 To 20 s = s + a(i) Next i
连接20个数据，显示在标签中 For i = 1 To 20 L1.Caption = L1.Caption & a(i) Next i
16
第5章 数组、列表框和组合框
查找大于平均值的数据，显示在标签中 For i = 1 To 20 If a(i) > ave Then L2.Caption = L2.Caption & a(i) End If Next i
• End Sub
19
第5章 数组、列表框和组合框 定义20个变量的方法 • Dim a(1 To 20) As Integer
• 包括20个变量： • a(1)、a(2)、a(3)、…、a(20) • 均是整 型 • 若有Dim a(-1 To 10) As Single
• 包括12个变量：a(-1)、a(0)、a(1)、a(2)、 a(3)、…、a(10) • 各变量的数据类型均是单精度型
20
第5章 数组、列表框和组合框
• 【实例5.1】 计算20个数据的总和与平均值。程序 运行时随机产生20个两位整数显示在上面标签中； 单击“求和”或“平均值”按钮时，计算20个数据 的总和或平均值，显示在下面的标签中。
21
第5章 数组、列表框和组合框
• 操作步骤
• （1）设计用户界面
22
第5章 数组、列表框和组合框
• End Sub
14
第5章 数组、列表框和组合框 思考：改进
• 20个变量的名字为a(1)、a(2)、……、a(20)
对于第i个变量，可表示为a(i)
随机生成20个数据
For i = 1 To 20 a(i) = Int(Rnd * 90) + 10 Next i
15
第5章 数组、列表框和组合框
• Private Sub cmdLarge_Click()
L2.Caption = "" ave = s / 20 If a1 > ave Then L2.Caption = L2.Caption & Str(a1) End If 烦！烦！烦！ If a20 > ave Then • L2.Caption = L2.Caption & Str(a20) End If
25
第5章 数组、列表框和组合框
• （5）编写“平均值”命令按钮的单击事件代码
• Private Sub cmdAve_Click() • Dim sum As Integer • Dim ave As Single • For i = 1 To 20 • sum = sum + a(i) • Next i • lblResult.Caption="平均值是：" & sum/20 • End Sub
• • • For i = 0 To 9 • lblResult.Caption=lblResult.Caption & Str(a(i)) • Next i • End Sub
33
第5章 数组、列表框和组合框
• （4）编写“逆置”命令按钮的单击事件代 •码 Private Sub cmdBack_Click()
• （2）定义窗体级变量 • Dim a(1 To 20) As Integer
23
第5章 数ቤተ መጻሕፍቲ ባይዱ、列表框和组合框
• （3）编写窗体的装载事件过程代码 • Private Sub Form_Load() • Randomize • For i = 1 To 20 • a(i) = Int(Rnd * 90) + 10 • lblData.Caption = lblData.Caption & • Str(a(i)) • Next i • End Sub
26
第5章 数组、列表框和组合框 技能要点
• 数组的概念 – 数据类型相同的多个变量所构成的集合 – 所有的变量都使用相同的名字 — 数组名 – 不同的变量通过下标来区别
27
第5章 数组、列表框和组合框
• 数组的定义
缺省时默认为0
Dim 数组名(下界 To 上界) As 类型 Dim a( 3 To 25 ) As String 包含元素个数：上界 – 下界 + 1
18
第5章 数组、列表框和组合框 改写“大于平均值”按钮的单击事件
• Private Sub cmdLarge_Click() L2.Caption = "" ave = s / 20 For i = 1 To 20 If a(i) > ave Then L2.Caption = L2.Caption & Str(a(i)) End If • Next i
生成20个10~99间的随机数 累加20个随机数
连接20个随机数，显示在标签中
End Sub
5
第5章 数组、列表框和组合框 • 2、编写窗体的Load事件
Private Sub Form_Load()
For i = 1 To 20 生成20个10~99间的随机数 1 累加20个随机数 1
连接20个随机数，显示在标签中 1 Next i
9
第5章 数组、列表框和组合框 分析
• 单击“平均值”按钮后才能使用“大于平均值” 按钮 为了找到大于平均分的各个数据，必须保存20个 随机数据
定义20个整型变量
10
第5章 数组、列表框和组合框 定义窗体级变量
• • • • • Dim s As Integer Dim a1 As Integer Dim a2 As Integer Dim a20 As Integer
11
第5章 数组、列表框和组合框 编写窗体的Load事件
• Private Sub Form_Load() • cmdLarge.Enabled = False
Randomize a1 = Int(Rnd * 90) + 10 a2 = Int(Rnd * 90) + 10 a20 = Int(Rnd * 90) + 10 s = a1 + a2 + … + a20 L1.Caption = a1 & a2 & … & a20
a(3)、a(4)…a(25)共23个元素
a(0)、a(1)…a(25)共26个元素
28
第5章 数组、列表框和组合框
• 【实例5.2】数据的逆置。程序运行时随机产生10 个两位整数显示在上面标签中；单击“逆置”按钮， 将各数据按逆序重新放入原数组中并显示在下面标 签中；单击“重置”按钮则重新产生10个两位整数 显示在上面标签中，同时将下面标签清空。
• Dim t As Integer • t = a(0) : a(0) = a(9) : a(9) = t For i = 0 To 4 t = a(1) : a(1) = a(8) : a(8) = t t = a(i) • t = a(2) : a(2) = a(7) : a(7) = t a(i) = a(9 - i) • t = a(3) : a(3) = a(6) : a(6) = t a(9 - i) = t • t = a(4) : a(4) = a(5) : a(5) = t Next i • For i = 0 To 9 • lblResult.Caption=lblResult.Caption & Str(a(i)) • Next i • End Sub
24
第5章 数组、列表框和组合框
要处理1000个 • （4）编写“求和”命令按钮的单击事件代 码Private Sub cmdSum_Click() 数据时，怎么 • 办？
• Dim sum As Integer sum = sum + a(1) • For i = 1 To 20 sum = sum + a(2) sum = sum + a(3) • sum = sum + a(i) …… • Next i sum = sum + a(20) • lblResult.Caption = "总和是：" & sum • End Sub
• 【引例】 计算20个数据的平均值。程序运行时随 机产生20个两位整数显示在上面标签中；单击 “平均值”按钮时，计算20个数据的平均值显示在 下面的标签中。
3
第5章 数组、列表框和组合框
操作步骤 • 1、界面设计
4
第5章 数组、列表框和组合框
• 2、编写窗体的Load事件
Private Sub Form_Load()
第5章 数组、列表框和组合框
• • • •
5.1 数组的使用 5.2 控件数组 5.3 列表框与组合框 5.4 小结
实 例
1
第5章 数组、列表框和组合框
本章实例
实例5.1
实例5.3 实例5.6 实例5.4 实例5.7 实例5.10 实例5.2 实例5.5 实例5.8 实例5.11
实例5.9
2
第5章 数组、列表框和组合框 5.1 数组的使用
End Sub
6
第5章 数组、列表框和组合框 • 2、编写窗体的Load事件 Randomize
Private Sub Form_Load()
For i = 1 To 20 生成20个10~99间的随机数 1 a = Int(Rnd * 90) + 10 s=s+a 累加20个随机数 1
L1.Caption = L1.Caption & str(a) 连接20个随机数，显示在标签中 1 Next i
17
第5章 数组、列表框和组合框 改写窗体的Load事件
Private Sub Form_Load() cmdLarge.Enabled = False Randomize For i = 1 To 20 a(i) = Int(Rnd * 90) + 10 s = s + a(i) L1.Caption = L1.Caption & Str(a(i)) Next i End Sub
12
• End Sub
第5章 数组、列表框和组合框 编写“平均值”按钮的单击事件
• Private Sub cmdAve_Click() • L2.Caption = “平均值:” & s/20
cmdLarge.Enabled = True
• End Sub
13
第5章 数组、列表框和组合框 编写“大于平均值”按钮的单击事件
29
第5章 数组、列表框和组合框
• 操作步骤 • （1）设计用户界面 • （2）定义窗体级数组 • Dim a(9) As Integer
省略数组下标下界
• a(0)、a(2)、a(3)、…、a(9)
30
第5章 数组、列表框和组合框
• （3）编写窗体的装载事件过程代码 • Private Sub Form_Load() • For i = 0 To 9 • a(i) = Int(Rnd * 90) + 10 • lblData.Caption = lblData.Caption & • Str(a(i)) • Next i • End Sub