内容发布更新时间 : 2024/12/25 21:21:59星期一 下面是文章的全部内容请认真阅读。

实验五 数组及其应用 一、实验目的 1．掌握数组的基本概念。 2．掌握数组的声明、引用。 3．掌握静态数组和动态数组的区别。 4．掌握控件数组。 4．掌握如何利用数组解决与数组相关的常用算法（特别是排序算法）。 二、实验内容 1 随机产生10个0～100之间（包括0和100）的整数，存放在一个数组中，然后求各元素之和、平均值，统计大于平均值的元素个数并把它们打印出来，如图5-1所示。

【步骤】 （1）设计应用程序的界面：在窗体上创建三个命令按钮Command1、Command2和Command3，四个标签Label1、Label2、Label3和Label4，两个文本框Text1和Text2，两个图形框Picture1和Picture2。 （2）设置对象的属性 对象名称 Command1 Command2 Command3 Label1 属性名称 Caption Caption Caption Caption 求和 求平均值 统计 10个随机整数分别为： Label2 Label3 Label4 Caption Caption Caption 各元素之和为： 平均值为： 大于平均值的元素为： Text1、Text2 Text 属性值 （3）编写事件代码： Option Base 1 Dim a(10) As Integer Private Sub Command1_Click()

Dim i%, sum% sum = 0 For i = 1 To 10 sum = sum + a(i) Next i Text1 = Str(sum) End Sub Private Sub Command2_Click() Text2 = Val(Text1) / 10 End Sub Private Sub Command3_Click() Dim i% For i = 1 To 10 If a(i) > Val(Text2) Then Picture2.Print a(i); Next i End Sub Private Sub Form_click() Dim i%

Randomize Picture1.Cls Picture2.Cls Text1 = \ Text2 = \ For i = 1 To 10 a(i) = Int(Rnd * 101) Picture1.Print a(i); Next i End Sub （4）程序的运行及保存。 2 编写一个程序，删除数组中某个元素，如图5-2所示。 【步骤】

（1）设计应用程序的界面：在窗体上创建一个命令按钮Command1，三个标签Label1、Label2和Label3，一个文本框Text1，两个图形框Picture1和Picture2。 （2）设置对象的属性 对象名称 Command1 Label1 Label2 Label3 属性名称 Caption Caption Caption Caption 属性值 删除 删除前 删除后 被删除元素的下标 Text1 Text （3）编写事件代码： Option Base 1 Dim a%(10) Private Sub Command1_Click() Dim i%, j% If Val(Text1) < 1 Or Val(Text1) > 10 Then MsgBox \下标超出范围！\ Text1 = \ Else For i = Val(Text1) + 1 To 10