21世纪高等学校计算机基础教育系列教材 第8章数组的使用
第8章 数组的使用 •人民邮电出版社 21世纪高等学校计算机基础教育系列教材
数组的使用
数组的使用
数组与数组元素 数组是用一个统一的名称表示的、顺序排列的一组变量。数组中的变量 称为数组元素,用数字(下标)来标识它们,因此数组元素又称为下标变 数组的类型 数组的维数 固定大小的数组 数组的声明 有3种方法声明固定大小的数组,用哪一种方法取决于数组应用的有效 范围: 建立公用数组,在模块的通用段用 Public语句声明数组。格式为 Public数组名(〈维数定义〉)[As〈类型〉 建立模块级数组,在模块的通用段用 Private或Dim语句声明数组。 格式为 Private Dim数组名(〈维数定义〉)[As〈类型〉 建立局部数组,在过程中用Dim或 Private语句声明数组。格式为 Dim| Private数组名(〈维数定义))As〈类型〉
数组的概念 数组与数组元素 数组是用一个统一的名称表示的、顺序排列的一组变量。数组中的变量 称为数组元素，用数字（下标）来标识它们，因此数组元素又称为下标变 量。 数组的类型 数组的维数 固定大小的数组 数组的声明 有3种方法声明固定大小的数组，用哪一种方法取决于数组应用的有效 范围： l 建立公用数组，在模块的通用段用Public语句声明数组。格式为 Public 数组名(〈维数定义〉) [ As 〈类型〉] l 建立模块级数组，在模块的通用段用Private或Dim语句声明数组。 格式为 Private | Dim 数组名(〈维数定义〉)[ As 〈类型〉] l 建立局部数组，在过程中用Dim或Private语句声明数组。格式为 Dim | Private 数组名(〈维数定义〉)[ As 〈类型〉]
数组的使用 随机产生10个两位整数,找出其最大值、最小值和平均值,如图所示。 设计步骤如下 (1)建立应用程序用户界面与设置对象属性。 (2)编写代码。 随机整数的生成由窗体的Load事件代码完成 Private Sub Form Load Dim p As string Form1 Randomize 10个随机整数: For i=1 To 10 50 55,48,44,14 5,19,39,62 a()=Int(Rnd*90)+10 p=p&str(a(1)&"," 最大值B6 重置 最小值卩14 Labell Caption= LTrim( Left(p,Len(p)-1)平均值2 关闭 End Sub 求最大值、最小值和平均值
数组的使用 随机产生10个两位整数，找出其最大值、最小值和平均值，如图所示。 设计步骤如下： (1) 建立应用程序用户界面与设置对象属性。 (2) 编写代码。 随机整数的生成由窗体的Load事件代码完成： Private Sub Form_Load() Dim p As String Randomize p = "" For i = 1 To 10 a(i) = Int(Rnd * 90) + 10 p = p & Str(a(i)) & "," Next Label1.Caption = LTrim(Left(p, Len(p) – 1)) End Sub 求最大值、最小值和平均值
求最大、最小以及平均值由 “确定”按钮 Command2的“重置”按钮 Command 1的ick事件代 Click事件代码完成 码 Private Sub Private Sub Command1_Click Command2 Click Form load TextI Text= Dim n As Integer, m As Integer, Text2Text S As Single min=100:max=10:s=0 Text3 Text Fori= 1 To 10 End sub Ifa(i> n Then max=a( 最后是“关闭”按钮 Command3的 If a()<m Then min-a(i Clck事件代码: s=s+a(1) Private Sub Command3 Click Next Unload me Text 1. Text =max End sub Text2 Text = min Text3Text =s/10 End sub
求最大、最小以及平均值由 “ 确 定 ” 按 钮 Command2 的 Click事件代码完成： Private Sub Command2_Click() Dim n As Integer, m As Integer, s As Single min = 100: max = 10: s = 0 For i = 1 To 10 If a(i) > n Then max = a(i) If a(i) < m Then min = a(i) s = s + a(i) Next Text1.Text = max Text2.Text = min Text3.Text = s / 10 End Sub “重置”按钮Command1的Click事件代 码： Private Sub Command1_Click() Form_Load Text1.Text = "" Text2.Text = "" Text3.Text = "" End Sub 最后是“关闭”按钮Command3的 Click事件代码： Private Sub Command3_Click() Unload Me End Sub