Visual Basic语言程序设计及实验教程电子教案周建丽 第6章 数组.pptVIP

开始 For i=1 to 10 a(i)=int(rnd*90+10) List1.additem a(i) Next i 输入k i=？ i=k a(i)=a(i+1) i=i+1 Y N For i=1 to 9 List2.additem a(i) Next i 结束 产生数据并显示 显示删除后的数据 流程图 向左移动元素同时也实现了删除 例： Private Sub Form_Click() Dim a(3,3) As Integer For i=1 To 3 For j=1 To 3 If i=j Then a(i,j)=1 Else a(i,j)=0 Print a(i,j); Next j Print Next i End Sub 1 1 1 1 0 1 1 1 1 B. 0 0 0 0 1 0 0 0 0 C. 1 0 0 0 1 0 0 0 1 D. 1 0 1 0 1 0 1 0 1 例:随机产生25个小于100的二位整数，组成一个5×5的方阵,求对角线上元素之和、对角线上元素之积和方阵中最大的元素。 6.3 动态数组及声明 6.3.1 建立动态数组 创建动态数组分两步进行： ⑴声明动态数组 Dim a() As Integer ⑵用ReDim语句分配实际的元素个数。 格式为： ReDim 数组名(下标范围) [As 类型] Private Sub Form_Click() Dim a() As Integer ReDim a(1 To 5) As Integer For i=1 to 5 a(i)=i Print a(i); Next i print ReDim a(1 To 10) As Integer For i=6 to 10 a(i)=I Next I For i=1 to 10 print a(i); Next I End Sub 例:单击窗体，输入数据个数n，随机产生n个二位随机正整数，显示在窗体上，再将其逆序后结果过显示在窗体上。 例:单击窗体，随机生成N个三位正整数显示在窗体上，计算其平均数并统计小于平均数的个数显示在窗体上。要求:N由Inputbox输入对话框实现输入。 6.4 For Each…Next语句 For Each…Next语句是针对一个数组或集合中的每个元素，重复执行一组语句。 语法格式为: For Each 成员 In 数组名 循环操作语句组 [Exit For] 循环操作语句组 Next [成员] Private Sub Form_Click() Dim a(1 To 10) As Integer For Each x In a x=Int(Rnd*90+10) print x; Next x End Sub 6.5 控件数组 6.5.1 控件数组的概念 ⑴具有相同名称、类型以及事件过程的 一组控件。 ⑵每个控件具有一个唯一的索引(Index) ⑶当数组中的一个控件识别某一事件时，它将调用此控件组的相应事件过程，并把相应索引作为参数传递，允许用代码判断是哪一个控件识别此事件。 6.5.2 控件数组的建立 1、在程序设计时创建控件数组(静态) 2、在程序运行时添加控件数组元素(动态) (1)复制现有的控件并将其粘贴到窗体上。 (2)将相同名字赋予多个同类控件。 (3)将控件的Index属性设置为非Null数值。 * 引例1、单击命令按钮，随机产生10个二位正整数显示在列表框1中，求这10个数的平均值显示在文本框中，并在列表框2中显示大于其平均值的数。 引例2： 输入10个学生的成绩，求平均值，然后将高于平均值的成绩输出。 6.1 数组的概念 6.2 数组的声明和应用 6.3 动态数组及声明 6.4 For Each…Next循环语句 6.5 控件数组 6.1 数组的概念 6.1.1 数组与数组