VB课件含具体例子第8章数组幻灯片.pptVIP

8.5控件数组 一组相同类型的控件 特点： 使用同一个名字(控件数组名) 具有基本相同的属性 使用Index属性(从0开始)区分 可由代码控制执行不同的操作 8.5.1 建立控件数组 法1．复制粘贴法 步骤： ①在窗体上创建第一个控件，并设置好控件的属性； ②选中该控件，进行“复制”和“粘贴”操作，系统将会弹出提示消息框如下； ③单击“是”按钮后，就建立了一个控件数组，在此之后进行的“粘贴”操作生成的控件都是控件数组中的元素。 8.5.1 建立控件数组(续) 法2．Name设置法 方法： 将需要放置在控件的Name属性都设置为相同 (当设置第二个控件的Name时也会弹出以上的提示建立控件数组的消息框) 8.5.1 建立控件数组(续) 法3．Load法 步骤：①在窗体上创建第一个控件，设置好控件的属性，其中将控件的Index属性设置为0，表示这是一个控件数组； 8.5.1 建立控件数组(续) 法3．Load法 ②在代码中通过Load和Unload语句添加和删除元素。 For k = 1 To 5 Load Command1(k) Command1(k).Top = Command1(0).Top + i * _ (Command1(0).Height + 100) Command1(k).Visible = True Next k 添加控件元素 设置控件元素的外观 8.5.1 建立控件数组(续) 删除控件数组元素 法一：修改控件元素的Name属性 法二：将控件元素的Index属性设置为“空” 8.5.2 使用控件数组 控件数组共用同一个的事件过程 Private Sub Command1_Click(Index As Integer) …… End Sub 判断是哪个控件元素 使用If或Select Case语句判断Index的值，并执行相应的操作 [例8-7] 简单计算器的实现 8.6记录数组 表示二维表信息 每一列表示不同的数据项 Type Memberinfo m_ID As String * 3 m_Name As String * 10 m_Dep As String * 10 m_Pay As Currency End Type 基本记录类型： 8.6记录数组(续) 记录数组的定义： 如：Dim Member(10) As Memberinfo 记录数组的使用： 和普通数组类似 数组元素中又包含几个成员项，引用： Member(5).m_ID=“005” Member(k).m_Name=“Member” k [例8-8] 使用记录数组实现职工信息建立、浏览和查询 8.3.1 数组的输入(续) 法4.Array函数 ——对数组整体赋值 先定义一个Variant的变量 如： Dim m或者 Dim m As Variant 再使用Array函数赋值 如：m＝array(1,3,5,7,9) 下标从0开始,系统根据Array函数的参数个数决定数组的大小 即：m(0)=1、m(1)=3、m(2)=5、m(3)=7、m(4)=9 0 1 2 3 4 1 3 5 7 9 8.3.1 数组的输入(续) 法4.Array函数 ——对数组整体赋值 Dim v As Variant : v = Array(11, 22, 33, 44, 55) Print v ‘错误，v现在是数组，只能通过循环逐个输出每个元素 Print v(0),v(1), v(2), v(3), v(4) ‘正确 Print v(5) ‘错误，下标越界 v=15.3 ‘将v由数组变成了一个实数 Print v ‘正确，v不是数组而是一个单个变量 8.3.2 数组的输出 ——将数组的各个元素输出 1.一维数组 For i = 1 To 10 Print A(i), 在一行上显示Next I For i = 1 To 100 Print B(i), If i Mod 10 = 0 Then Print 每10个一行显示Next i 8.3.2 数组的输出(续) 2．二维数组——二重循环 For i = 1 To 10 控制行 For j = 1 To 5 控制列 Print C(i,j) , 由于最后是逗号，输出一个数组元素后并不换行，保证同行元素在同行 Next j Print