Question

VB输入N位学生的单门课程成绩并显示,其中人数N，由读入得到：（用控件数组实现,如多个按钮，多个文本框）

①对数组按值从大到小排序后并显示成绩②给出新成绩，添加到成绩数组中并显示

Answer 1

Private Sub Command1_Click(Index As Integer)
Dim i, n, stu(100) As Integer
Select Case Index
stu(Index + 1) = Val(InputBox("请输入成绩", "输入"))
End Select

End Sub
Private Sub sort(s() As Integer, n As Integer)
Dim i, max, temp As Integer
max = s(1)
For i = 1 To n
If max > s(i) Then
temp = s(i)
s(i) = max
max = temp
End If
Next
End Sub