实验七 数组

实验七数组

一、实验目的

1．掌握定义数组的方法；

2．能配合循环语句编程对数组进行操作；

3．了解控件数组的基本概念与简单编程。

4．掌握组合框和列表框控件的使用

二、实验要求

1、能够根据实际的编程要求，定义数组

2、能够实现数组的遍历，求和，找最大值、最小值，查找等算法；

3、掌握控件数组的建立方法，以及Index属性的含义；

三、报告内容

1、以下的数组定义（请看完书后在填，不要抄书）

1）定义一个有8个元素的数组的语句：

2）定义一个下界为5，上界为10的一维数组的语句：

2、填空完成下列程序段，产生20个[100，200]间的随机整数，显示这组数，并求出它们的平均值。

Private Sub Command1_Click()

Dim ab(20) As Integer ' 数组ab有______个元素

Dim i%, s As Integer

For i = 1 To 20

ab(i) = ____________ ' 填空为数组元素赋值

Print "第"; i; "个数是 "; ab(i)

s = ____________ ‘求和

__________ ‘求平均值

Print "平均值是:"; s / 20

End Sub

3）列表框控件（ListBox）用于显示项目列表，用户可从中选择一个或多个项目。

组合框是文本框与列表框的组合，所以它具有文本框与列表框共有的属性、方法和事件。我们重点介绍列表框，同样组合框也有这些特性。