VB 程序设计13.pptVIP

第五章 数组（4） 学习目标 多维数组 数组总结 多维数组 定义： 如: dim a(1 to 10,1 to 10)，定义了二维数组a，共100个元素：a(1,1), a(1,2), ..., a(10,10) 又如：dim a#(10,10)，注意下标从零开始。 要点： 二维数组之输入/输出：二重循环。 二维数组的输出技巧 例：构造一个9×9的方阵，使主对角线元素为1，其余元素为0。 代码： Private Sub Command1_Click() Dim x%(9,9), i%, j% for i=1 to 9 for j=1 to 9 x(i,j)=iif(i=j, 1, 0) print x(i,j); next j print next i End Sub 二维数组示例：杨辉三角形 编写程序，打印杨辉三角形前10行。 示例：杨辉三角形 代码 练习 打印n×n的环形方阵，如图中，n=5 练习 代码 练习 1、用下面语句定义的数组的元素个数是_____ 。 dim A(-3 to 5) as integer A.6 B.7 C.8 D.9 2、用 Dim(1, 3 To 5,-2 to 2)声明的是一个______维数组，元素个数是______ 。 3、下列语句中的_____语句可以用来正确地声明一个动态数组(二级VB, 00春 27题) A. Private A(n) as integer B. Dim A() As Integer C. Dim A(,) as Integer D. Dim A(1 to n) 练习 4、设执行以下程序段时依次输入1、3、5，执行结果为______。 Dim a(4) As Integer, b(4) As Integer For K = 0 To 2 a(K + 1) = Val(InputBox(请输入数据)) b(3 - K) = a(K + 1) Next K Print b(K) A.5 B.3 C.1 D.0 5、程序运行后，单击窗体，则在窗体上显示的是______ Dim a，i％ a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9) For i = 0 To 3 Print a(5 - i); Next A. 4 3 2 1 B. 5 4 3 2 C. 6 5 4 3 D. 7 6 5 4 程序填空 利用数组显示如下轮转结果 程序填空 将输入值插入一有序递减数列，使之仍然有序。 习题选讲 将如下数字围成一个首尾相接的环形，找出在这个环上4个连续数，使其和最大；再找出4个，使其和最小。这些数字是：20，1， 8，4，13，6，10，15，2，17，3，19，7，16，8，11，14，9，12，5 习题选讲 输入一串字符，统计各字母出现的次数（大小写字母不区分），并将字母出现的个数显示在图片框中，效果如图所示。 习题选讲　 代码 习题选讲 产生50个互不相同的10～99的随机整数，统计各数值段（10～19, 20～29…, 90~99）有多少个数？ 程序界面： 习题选讲 复习： Rnd函数：产生一个[a,b]之间整数的公式是 Int(rnd*(b-a+1))+a 在使用前要用Randomize函数播种，如 Randomize timer 分析： 难点：如何生成各不相同的随机整数？ 思路：模仿“洗牌”的过程 习题选讲 思路： 习题选讲 Option Base 1 Private Sub Command1_Click() Dim a%(50), b%(9), c%(90), i%, m%, n%, t% Randomize Timer For i = 1 To 90 : c(i) = i + 9 : Next i For i = 1 To 5000 m = Int(Rnd * 90) + 10 n = Int(Rnd * 90) + 10 t = c(m): c(m) = c(n): c(n) = t Next i For i = 1 To 50 a(i) = c(i) Text1 = Text1 a(i) Space(2) b(a(i) \ 10) = b(a(i) \ 10) + 1 Next i For i