2011复习第5章数组与记录.pptxVIP

5.1 一维数组 5.4 记录类型 5.2 二维数组 5.5 表格控件 5.3 数组的其它定义形式 5.6 控件数组 ; 1. 一维数组的概念及其取名 2. 一维数组说明 3. 一维数组元素的表示 4. 一维数组的输入与输出 5. 应用举例;一维数组是由一组同类型的数据构成。 ; 数组说明语句的一般格式： Dim varname ( subscripts ) [ As type ] 其中Dim为关键字。varname为数组名。subscripts 用于定义数组的维数和元素的个数。定义一维数组时， subscripts的语法形式： [lower To] upper lower和upper为整型常量，分别指定下标的下界值和上界值。无 [lower To]时， lower默认为0。type是数组元素的类型，它可以是任何数据类型。无[ As type ]时，数组元素的类型为可变类型。; 功能：定义指定的一维数组，并为该数组分配存贮区域。 ; 一般形式： 一维数组名（下标） 其中下标可以是数值型常数或常量或变量，更一般为数值表达式，它表示该数组元素在该一维数组中的顺序或者说位置。 例如：h包含的50个元素用h(0),h(1), ┅,h(49)来表示； s包含的50个元素用s(1),s(2), ┅,s(50)来表示。 又如：h(i)也可表示数组h的元素。s(i+j+1) 也可表示数组s的元素。; 说明： 若下标为实数，则vb系统会对其四舍五入自动取整。 例如：h(2+0.5) 表示h(3)； h(2+0.4) 表示h(2)。 ;? 要输入一维数组元素的值可以使用赋值语句，也可以使用InputBox函数。 ;（2）一维数组元素的输出;Option Explicit Private Sub Command1_Click() Dim a(1 To 5) As Integer, i As Integer For i = 1 To 5 a(i) = InputBox(请输入第 Str(i) 个元素) Next For i = 1 To 5 Print a(; i; ) = ; a(i) Next End Sub; 补充例1 某班有10个学生参加计算机等级考试，求这些学生的平均成绩。 ;Private Sub command1_click() Dim S(1 To 10) As Single, Sum As Single,i As Integer For i = 1 To 10 S(i) = InputBox(s( Str(i) )=) Next i Sum = 0 For i = 1 To 10 Sum = Sum + S(i) Next i Print Average=; Sum / 10 End Sub Private Sub Command2_Click() End End Sub;Private Sub command1_click() Dim S(1 To 10) As Single, Sum As Single,i As Integer For i = 1 To 10 S(i) = InputBox(s( Str(i) )=) Next i Sum = 0 For i = 1 To 10 Sum = Sum + S(i) Next i Print Average=; Sum / 10 End Sub Private Sub Command2_Click() End End Sub; 补充例2 编写程序：求10个数中的最小值。 ;Private Sub command1_click() Dim a(1 To 10) As Single,min As Single,i As Integer For i = 1 To 10 a(i) = InputBox(a( Str(i) )=) Next i min = a(1) Fo