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

36 92 66 71 48 18 91 33 80 44 36 92 66 71 48 18 删除数据的位置：k=4 a(1) a(2) a(3) a(4) a(5) a(6) a(7) a(8) a(9) a(10) 18 48 71 66 92 91 33 80 36 a(1) a(2) a(3) a(4) a(5) a(6) a(7) a(8) a(9) 删除结束后，数组元素个数减1 分析： 开始 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) ⑶当数组中的一个控件识别某一事件时，它将调用此控件组的相应事件过程，并把相应索引作为参数传递，允许用代码判断是哪一个控件识别此事件。 * 在线教务辅导网： 教材其余课件及动画素材请查阅在线教务辅导网 QQ:349134187 或者直接输入下面地址： 引例1、单击命令按钮，随机产生10个二位正整数显示在列表框1中，求这10个数的平均值显示在文本框中，并