vb编程题一道

来源：百度知道 编辑：UC知道 时间：2024/06/14 05:35:36
输入39个学生的考试成绩 求最低 最高成绩 平均成绩 显示前六名成绩
12点之前要答案~
我知道啊 但是我根本不会写啊…… 汗

Option Base 1
Private Sub Form_Click()

Dim a(39)
For I = 1 To 39
a(I) = Val(InputBox("请输入第" & I & "个成绩"))
Next I
Min = a(1)
Max = a(1)
For I = 1 To 39
If Max < a(I) Then
Max = a(I) '这里是最高分
End If
If Min > a(I) Then
Min = a(I) '这里是最低分
End If
s = s + a(I) '这里是总分
Next I
Print "总分是" & s,
Print "最低分是" & Min,
Print
Print "最高分是" & Max,
v = s / 39 '这里是平均分
Print "平均分是";round( v,2)
For I = 1 To 38
For j = 1 To 39 - I

If a(j) < a(j + 1) Then '这里是六位高分排序
b = a(j + 1)
a(j + 1) = a(j)
a(j) = b
End If
Next j
next i
for i=1 to 6
? a(i);
next i
end sub

数组加冒泡排序

排序法的两个例子,我发到你邮箱了...
里面有我的详细注解...