第七章 数组更改.ppt

第七章 数组和自定义数据类型 数组的概念：数组并不是一种数据类型，而是一组相同类型数据的集合。用一个统一的名字（数组名）代表逻辑上相关的一批数据，每个元素用下标变量来区分；下标变量代表元素在数组中的位置。 说明： 1．数组名的命名规则与变量的命名相同。 2．数组的元素个数：上界-下界+1。 3．缺省下界为0，若希望下标从1开始，可在模块的通用部分使用Option Base语句将设为1。其使用格式是： Option Base 0|1 后面的参数只能取0或1 例如：Option Base 1 将数组声明中缺省下界下标设为1 4．下界和上界不能使用变量，必须是常量，常量可以是直接常量、符号常量，一般是整型常量。 5．如果省略As子句，则数组的类型为变体类型。 6．数组中各元素在内存占一片连续的存储空间，一维数组在内存中存放的顺序是下标大小的顺序，如图所示： Sub Form_click( ) Dim x( ) As Single … n =Inputbox(“输入n”） ReDim x(n) … End Sub 问题：下面程序的，输出结果应该是什么？Dim ID( ) As Integer, Name1( ) As String, i As IntegerReDim ID(5), Name1(5)For i = 1 To 5 ID(i) = i: Name1(i) = A iNext iReDim Preserve ID(UBound(ID) + 1) Name1(UBound(Name1) + 1)ID(6) = 6: Name1(6) = ABCFor i = 1 To 6 Print ID(i), Name1(i)Next i 例7.3：编程：输入正整数n，再由InputBox函数输入n个数至数组并在窗体上输出这n个数，然后要求元素数据反过来存放，并输出，要求使用动态数组实现。 即第1个元素与第n个元素互换，第2个元素与第n-1个元素互换，…。最后在窗体上输出对换后各元素的值。 如：输入8和11、12、13、14、15、16、17、18，输出为：11 12 13 14 15 16 17 18和18 17 16 15 14 13 12 11。 Private Sub Command1_Click()Dim A( ) As Integer, N As Integer, i As Integer, T As IntegerN = Val(InputBox(请输入数据个数))ReDim A(N)For i = 1 To N A(i) = Val(InputBox(请输入第 i 个数)) Print A(i);Next iPrint For i = 1 To N \ 2 T = A(i): A(i) = A(N - i + 1): A(N - i + 1) = T Next iFor i = 1 To N Print A(i);Next iPrintEnd Sub 7.4 控件数组的概念及应用 对一批同类且功能类似的控件，可以建成控件数组，控件数组可以简化编程，控件数组中的每一个元素是同类控件，并且具有相同的名称。 控件数组用索引值Index属性区分元素。 首先，与创建其它控件一样，创建第1个控件 如果需要修改名称，则可先在属性窗口修改该控件名称； 选择该控件，使用“编辑”菜单的“复制”命令 使用“编辑”菜单的“粘贴”命令 这时VB出现对话框，询问是否建立控件数组，单击“是” 这时新控件的Index索引值为1，而原控件索引值自动为0； 控件数组已经产生 控件数组及元素，也有属性、方法和事件。 元素的方法、事件和属性与它的非数组同类控件一样 但有一个重要的属性是Index属性，相当于数组下标，编程用 访问控件数组元素与访问普通数组元素一样 通过控件名称(索引值)来确定每个控件 如Command1(2). Caption=问候。 如果是一批很有规律的操作，一般可以通过循环进行。 注意： 若删除了其中某数组元素（控件），则将导致索引Index不连续，此时再使用该索引值将出错。 解决的方法是重新修改其他元素的Index值 例【7-4】设计如图所示程序，要求用控件数组。 创建有3个单选钮的控件数组 程序代码如下：Private Sub Form_Load() Text1.FontSize = 10 Optio