UC知道几个计算机VB考试的题目
来源：百度知道 编辑：UC知道 时间：2024/06/23 05:22:01
1 利用INPUTBOX框，输入20个学生的成绩，出平均分，并统计高于平均分的人数。
2.单击窗体，随机生成一个N*M的矩阵，矩阵中的所有元素都是10--50的两位整数，并求出矩阵中各行的最大值。
3.产生10个50--100（包括50和100）的随机整数，并用“泡沫排序”按从小到大的顺序输出。
4.设有如下两组数据：
A：2， 5， 8，4，7
B：13， 16，14，17，18
编出程序，分别创建数组A和B，然后数组的对应元素相加，结果放入数组C中并输出。
5.输入20个学生的成绩，统计各个分数段的人数。分数段分隔方法为：0--59分，60--69分，70--79分，80--89分，100分。
知道的说下哈..谢谢了!
2.单击窗体，随机生成一个N*M的矩阵，矩阵中的所有元素都是10--50的两位整数，并求出矩阵中各行的最大值。
3.产生10个50--100（包括50和100）的随机整数，并用“泡沫排序”按从小到大的顺序输出。
4.设有如下两组数据：
A：2， 5， 8，4，7
B：13， 16，14，17，18
编出程序，分别创建数组A和B，然后数组的对应元素相加，结果放入数组C中并输出。
5.输入20个学生的成绩，统计各个分数段的人数。分数段分隔方法为：0--59分，60--69分，70--79分，80--89分，100分。
知道的说下哈..谢谢了!
只回答一个 其他的再提问题 我再接着回答
1计算平均分的
Private Sub Form_click()
Dim score(20) As Integer, i As Integer, sum As Integer, n As Integer
Dim aver As Single
sum = 0
For i = 1 To 20
score(i) = Val(InputBox("输入分数:", "数据输入"))
sum = sum + score(i)
Next
aver = sum / 20
Print "平均分:"; aver
For i = 1 To 20
If score(i) >= aver Then
Print score(i)
End If
Next
End Sub
太有才了！才出5分！