VB补充练习题-数组

1、VB补充习题数组1. 随机生成15个100以内的正整数并显示在一个文本框中,再将所有对称位置的两个数据对调后显示在另一个文本框中（第1个数与第15个数对调，第2个数与第14个数对调，第3个数与第13个数对调）。2. 随机生成20个100以内的两位正整数，统计其中有多少个不相同的数。3. 20个两位随机正整数围成一圈，找出每四个相邻数之和中的最大值，并指出是哪四个相邻的数。4. 随机生成一个5×5的整数矩阵，该矩阵的副对角线（矩阵左下角到矩阵的右上角连线）上方元素都是两位偶数，副对角线和它的下方元素都为奇数。5. 设有一个二维数组A(5,5)，试编写程序计算：a) 所有元素之和；b)

2、所有靠边元素之和；c) 两条对角线元素之和。6. 利用随机函数生成一个由两位正整数构成的4行5列的矩阵，求出矩阵行的和为最大和最小的行，并调换这两行的位置。7. 随机生成20个1050之间的互不相同的整数，并求出它们的平均值。8. 找出100以内的所有素数，存放在数组Prime中，并将所找到的素数按每行10个的形式显示在窗体上。9. 求出裴波拉契数列的前20项，并按顺序将它们显示在一个文本框内。裴波拉契数列的递推公式如下：10. 分别用选择法、直接法和冒泡法对20个数进行排序。11. 在一个随机数组中，按顺序查找是否存在要查找的数。12. 利用二分查找法，在一个已经排好序的数组中，查找是否存在

3、需要找的数。13. 求一个n×n阶的转置矩阵。n从键盘输入，A矩阵和它的转置矩阵本别显示在两个文本框中。14. 设A是3×2的矩阵，B是2×3的矩阵，求A矩阵和B矩阵的乘积矩阵C=A·B。15. 有一个二维数组，找到不同行、不同列的三个数组元素的乘积最大的一组，并将这三个元素按下面的形式打印出来。A(1,x)=xx A(2,x)=xx A(3,x)=xx45678923549989592916. 编写打印N阶幻阵的程序。幻阵是由1N2个自然数组成的奇次方阵（N是一个奇数），方阵的每一行、每一列及两条对角线上的元素和相等。幻阵的编排规律如下（假定幻阵名为A

4、）：（1）1放在最后一行的中间位置。即I=N，J=（N+1）/2，A（I，J）=1。（2）下一个数放在前一个的右下方，即A（I+1，J+1）。 （a）若I+1>N，且J+1N，则下一个数放在第一行的下一列位置。 （b）若I+1N，且J+1>N，则下一个数放在下一行的第一列位置。 （c）若I+1>N，且J+1>N，则下一个数放在前一行的上方位置。 （d）若I+1N，且J+1N，但右下方位置已存放数据，则下一个数放在前一个数 的上方。(3)重复第二步，直到N2个数都放入方阵中。下面是一个3阶幻阵示例：49235781617. 对N阶方阵A中的与副对角线平行的各条斜线（共有2N-1条，如下图所示）上的元素进行累加求和并进行比较，求出累加和的最大值Max以及具有最大值的斜线上的最大元素。572241242696494918. 随机生成10个两两互质的数，并按从大到小的顺序存放在ListBox中。所谓“两两互质”，就是指任意两个数除了1以外没有其他的公约数。在使用列表框时可以把它的List属性当作数组一样看待。除第一个随机数以外，每当生成一个4位的随机整数，都要验证这个数和列表框中每个列表项是否互质。若不互质，则丢弃它；若互质