VB补充练习题-数组

VB补充习——数组1.随机生成15个100以内的正整数并显示在一个文本框中,再将所有对称位置的两个数据对调后显示在另一个文本框中（第1个数与第15个数对调，第2个数与第14个数对调，第3个数与第13个数对调……）。2.随机生成20个100以内的两位正整数，统计其中有多少个不相同的数。3.20个两位随机正整数围成一圈，找出每四个相邻数之和中的最大值，并指出是哪四个相邻的数。4.随机生成一个5×5的整数矩阵，该矩阵的副对角线（矩阵左下角到矩阵的右上角连线）上方元素都是两位偶数，副对角线和它的下方元素都为奇数。5.设有一个二维数组A(5,5)，试编写程序计算：a)所有元素之和；b)所有靠边元素之和；c)两条对角线元素之和。6.利用随机函数生成一个由两位正整数构成的4行5列的矩阵，求出矩阵行的和为最大和最小的行，并调换这两行的位置。7.随机生成20个10~50之间的互不相同的整数，并求出它们的平均值。8.找出100以内的所有素数，存放在数组Prime中，并将所找到的素数按每行10个的形式显示在窗体上。9.求出裴波拉契数列的前20项，并按顺序将它们显示在一个文本框内。裴波拉契数列的递推公式如下：10.分别用选择法、直接法和冒泡法对20个数进行排序。11.在一个随机数组中，按顺序查找是否存在要查找的数。12.利用二分查找法，在一个已经排好序的数组中，查找是否存在需要找的数。13.求一个n×n阶的转置矩阵。n从键盘输入，A矩阵和它的转置矩阵本别显示在两个文本框中。14.设A是3×2的矩阵，B是2×3的矩阵，求A矩阵和B矩阵的乘积矩阵C=A·B。15.有一个二维数组，找到不同行、不同列的三个数组元素的乘积最大的一组，并将这三个元素按下面的形式打印出来。A(1,x)=xxA(2,x)=xxA(3,x)=xx 45 67 89 23 54 99 89 59 2916.编写打印N阶幻阵的程序。幻阵是由1~N2个自然数组成的奇次方阵（N是一个奇数），方阵的每一行、每一列及两条对角线上的元素和相等。幻阵的编排规律如下（假定幻阵名为A）： （1）1放在最后一行的中间位置。即I=N，J=（N+1）/2，A（I，J）=1。（2）下一个数放在前一个的右下方，即A（I+1，J+1）。（a）若I+1>N，且J+1≤N，则下一个数放在第一行的下一列位置。（b）若I+1≤N，且J+1>N，则下一个数放在下一行的第一列位置。（c）若I+1>N，且J+1>N，则下一个数放在前一行的上方位置。（d）若I+1≤N，且J+1≤N，但右下方位置已存放数据，则下一个数放在前一个数的上方。(3)重复第二步，直到N2个数都放入方阵中。下面是一个3阶幻阵示例： 4 9 2 3 5 7 8 1 617.对N阶方阵A中的与副对角线平行的各条斜线（共有2N-1条，如下图所示）上的元素进行累加求和并进行比较，求出累加和的最大值Max以及具有最大值的斜线上的最大元素。 5 7 2 2 4 1 2 4 2 6 9 6 4 9 4 918.随机生成10个两两互质的数，并按从大到小的顺序存放在ListBox中。所谓“两两互质”，就是指任意两个数除了1以外没有其他的公约数。在使用列表框时可以把它的List属性当作数组一样看待。除第一个随机数以外，每当生成一个4位的随机整数，都要验证这个数和列表框中每个列表项是否互质。若不互质，则丢弃它；若互质，则拿它依次和各列表项比较，并将它插入到第一个比它小得列表项前面。19.统计字母(不区分大小写)在文本中出现的次数。20.删除一个数列中的重复数。