Question

几道VB编程题目*（麻烦写下详细过程）

(1)用数组编程随机产生10个学生的成绩（要求学生成绩在60分以上），然后计算这10个学生的平均成绩，并统计低于平均分的人数。 (2)利用二维数组随机产生一个m*m的矩阵，并求解对角线和反对角线的数据之和。 (3)利用二维数组随机产生一个m*n的矩阵，编写程序，找出其中最大的元素所在的行和列，并输出其值及行号和列号。 (4)某市的的士费起步价8元，可以行驶3公里，3公里以后的价格按每公里1.6元计算，输入的士行驶的公里数，请计算顾客付费是多少？ (5)编写一个程序，输入年份判断是否为闰年。其中判断闰年的条件是： a:能被4整除，但不能被100整除。 b:能被400整除。 (6)请利用do…loop循环，求1-1/3+1/5-1/7+1/9-…-1/101的值。 (7)编写一个将二进制整数转换为十进制数的程序。 (8)用数组编程随机产生10个学生的成绩（要求学生成绩在60分以上），然后计算这10个学生的平均成绩，并按从大到小的顺序输出这10个学生的成绩。 (9)创建一个函数，该函数用于查找某数x是否在数组a中，如果存在，则输出其位置，不存在，则输出0。并在主程序中调用该函数实现数据的查找。 (10)编写程序，求S=A! + B! + C!。请用函数过程实现阶乘的计算。

Answer 1

第一题： Private Sub Form_Click() Dim c(1 To 10) As Integer Dim sum, avg As Integer '------以下为统计十名学生成绩------------ Print "十名学生的成绩是:" For i = 1 To 10 c(i) = Rnd * 40 + 60 Print c(i) sum = sum + c(i) Next '------以下为计算平均成绩---------------- avg = sum / 10 Print "平均成绩为：" & avg '------以下为小于平均成绩的成绩---------- Print "小于平均成绩的成绩有：" For i = 1 To 10 If c(i) < avg Then Print c(i) End If Next '------以下为十名成绩从大到小排序--------- For i = 1 To 9 For j = i + 1 To 10 If c(i) < c(j) Then t = c(i) c(i) = c(j) c(j) = t End If Next Next Print "十名成绩从大到小排序为：" For i = 1 To 10 Print c(i) Next End Sub