VisualBasic程序设计教程课件作者何瑞麟佘学文主编方士杰李巍副主编第8章节.pptVIP

第8章 数组 尚辅网 / 第8章 数组 8.1 数组的概念 8.2 固定大小的数组 8.3 动态数组 8.4 自定义数据类型 8.5 控件数组 8.１ 数组的概念 数组（array）是由一组类型相同的数据构成。即它是用一个名字来表示一组同类型的数据。这个名字就是数组名。数组中的每一个数据，称为数组元素。一个数组中的不同元素以下标来区别。下标代表数组元素在数组中的顺序。 ８.２ 固定大小的数组 8.2.1 一维数组 数组在计算机内的存储通常是按行优先的顺序存储。数组应该先声明后使用，声明数组的目的是通知计算机为数组留出所需的存储空间。 说明符 数组名 (下标) [ As 数据类型 ] 其中：说明符为Visual Basic的保留字。如：Dim、Public 、Private 等。 下标用来定义数组的维数和元素的个数。下标值类型为长整型（Long）。 数据类型指定数组元素的类型，可以是任意的Visual Basic数据类型，缺省时数组元素为可变类型。 声明数组时，只有一个下标的数组称作一维数组。 数组说明格式： 例如： Dim X(-２ To 3) As Double Dim B(20) 例题１：数组元素的输入与输出。 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 此过程中声明了一个具有6个元素的一维整型数组程序，分别用循环语句输入、输出数组元素的值。 例题２：建立有１０个元素的数组，元素的值由键盘输入，要求将这１０个数顺序颠倒的显示出来(如下图所示)。 ①、创建用户界面和设置用户界面中各对象的属性 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 8.2.2 二维数组 在VB中拥有两个下标的数组称为二维数组。 例如： Dim Array (5，5) As Integer Dim X (1 To 10，1 To 10) As String Dim B (1 To 8 ，1 To 7 ) 例题３：求方阵A的对角线元素之和。 程序代码： Dim x(1 To 6, 1 To 6) As Single Private Sub Command1_Click() Dim i, j As Integer, a As Single For i = 1 To 6 For j = 1 To 6 a = Int(Rnd * 100) x(i, j) = Val(a) Next Next Picture1.Cls For i = 1 To 6 For j = 1 To 6 Picture1.Print Format(x(i, j), @@@@); Next Picture1.Print Picture1.Print Next Label1.Caption = 主对角线元素之和 Label2.Caption = 次对角线元素之和 End Sub Private Sub Command2_Click() Dim s, t As