[工学]vb第四章 数组.pptVIP

第四章 数组 4.1 数组的概念 4.2 静态数组及声明 4.3 动态数组及声明 4.4 数组的基本操作 4.5 控件数组 4.6 For Each…Next语句 4.7 数组中常见错误和注意事项 已有知识解决方法：再重复输入成绩，带来两个问题： （1）输入数据的工作量成倍增加； （2）若本次输入的成绩与上次不同，则统计的结果不正确。解决此问题的根本方法，引入数组，始终保持输入的数据，一次输入，多次使用。2.基本概念 数组：用一个统一的名称表示的、顺序排列的一组变量 数组元素；数组中的变量，用数字（下标）标识 数组维数：数组元素中下标的个数 数组形式：静态数组（固定大小的数组）和动态数组 4.2 静态数组及声明 数组不是一种数据类型，而是一组相同类型的变量的集合，数组 必须 先声明后使用。 1. 静态数组及声明 形式: Public|Private|Dim 数组名(下标1[,下标2…]) [As 类型] 声明了数组的名、维数、大小、类型 维数：几个下标为几维数组 下标: [下界 To ] 上界，省略下界为0 每一维大小: 上界－下界+1 数组大小: 每一维大小的乘积 例：Dim mark(1 to 100) As Integer 2.静态数组的使用 例4.1 随机产生10个两位整数，找出其最大值、最小值和平均值。[P139-3] 例4.2随机产生10个两位整数，按由小到大顺序排列。 Dim a(1 To 10) As Integer 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 Label2.Caption = LTrim(Left(p, Len(p) - 1)) End Sub Private Sub Command1_Click() Form_Load Text1.Text = Text2.Text = Text3.Text = End Sub Private Sub Command2_Click() Dim min As Integer, max As Integer, s As Single min = 100: max = 10: s = 0 For i = 1 To 10 If a(i) max Then max = a(i) If a(i) min Then min = a(i) s = s + a(i) Next Text1.Text = max Text2.Text = min Text3.Text = s / 10 End Sub Private Sub Command3_Click() Unload Me End Sub 2.静态数组的使用 例4.1 随机产生10个两位整数，找出其最大值、最小值和平均值。[P139-3] 例4.2随机产生10个两位整数，按由小到大顺序排列。 Private Sub Private Sub Command1_Click() Randomize p = For i = 1 To 10 Do x = Int(Rnd*90)+10 Yes = 0 For j = 1 To I-1 If x = a( j ) Then yes = 1:Exit For Next