数 组（1）（电子信息）.pptxVIP

;1.1 数组的概念 ;说明符 数组名 (下标) [ As 数据类型 ] 其中：说明符为Visual Basic的保留字。如：Dim、Public 、Private 等。 下标用来定义数组的维数和元素的个数。下标值类型为长整型（Long）。 数据类型指定数组元素的类型，可以是任意的Visual Basic数据类型，缺省时数组元素为可变类型。 声明数组时，只有一个下标的数组称作一维数组。 ;例题１：数组元素的输入与输出。 Private Sub Command1_Click() Dim x(1 To 6) As Integer, i As Integer For i = 1 To 6 x(i) = InputBox(请输入第 Str(i) 个元素) Next i For i = 1 To 6 Print x(; i; )=; x(i) Next i End Sub;例题２：建立有１０个元素的数组，元素的值由键盘输入，要求将这１０个数顺序颠倒的显示出来(如下图所示)。;①、创建用户界面和设置用户界面中各对象的属性;Dim a(1 To 10) As Integer Private Sub CmdInput_Click() Dim i As Integer Dim p As String For i = 1 To 10 a(i) = InputBox(输入a( Format(i, #) ):) Next i For i = 1 To 10 p = p a(i) Next i Label1.Caption = p End Sub;Private Sub CmdChange_Click() Dim i, j As Integer, t As Integer Dim p As String For i = 1 To 5 t = a(i): a(i) = a(10 - i + 1): a(10 - i + 1) = t Next i For j = 1 To 10 p = p a(j) Next j Label2.Caption = p End Sub;1.2.2 二维数组 ;程序代码： ;Private Sub Command2_Click() Dim s, t As Single s = 0 For i = 1 To 6 s = s + x(i, i) 主对角线元素求和 Next i Label1.Caption = 主对角线元素之和 = Str(s) t = 0 For i = 1 To 6 t = t + x(i, 7 - i) 次对角线元素求和 Next i Label2.Caption = 次对角线元素之和 = Str(t) End Sub;1.3动态数组 ;② 第二步是用ReDim语句在程序执行过程中给数组指定维数和分配实际的元素个数，称为数组重定义。ReDim语句只能出现在过程中。 例如：ReDim Array(２　To ３０) ;程序代码为： ;ReDim Preserve count(1 To n + 2) count(n + 1) = aver / n count(n + 2) = 0 For i = 1 To n If count(i) count(n + 1) Then count(n + 2) = count(n + 2) + 1 Next i For i = 1 To n Print count(; i; )=; count(i) Next i Print 平均分=; count(n + 1) Print 高于平均分人数=; count(n + 2) End Sub;1.4 自定义数据类型 ;几点说明： ①“元素名”表示数据类型中的一个成员。 ②“下标”表示可以用数组作成员。 ③“类型名”可以是任何基本数据类型，也可以是已经定义过自定义数据类型。 ④自定义的数据类型一般在标准模块(．Bas)中定义，默认是Public。若在窗体模块中定义必须是Private。 ⑤自定义数据类型中的元素类型可以是字符串，但应是定长字符串。;①相同点：自定义类型变量和数组都是由若干个元素组成。 ② 不同点：自定义类型变量的元素代表不同性质、不同类型的数据，以元素名表示不同的元素；而数组存放的是同性质、同种类型的数据，以下标表示不同的元素。;例如：声明一个表示学生多门课程考试成绩的自定义数据类型，用它定义变量Stu1和 Stu2 ，并进行赋值。 ①自定义数据类型的声明 Type Student No As Integer 学号