有人愿意帮我吗？

Question

我是vb的初学者，我有一道题，不会做，希望大家能帮帮我！！！拜托
题目有4个要求：
1，输入5人的基本信息（号码，成绩）
2，编制一段咨询代码，可从键盘输入相应号码，然后输出其相关信息
3，最多允许再从键盘添加5人的信息
4，对最终确定人数的成绩进行从大到小的排序

Answer 1

参考一下吧，自己写一下，不难的。
Type typInfo
    Name As String
    Score As Double
 End TypeDim arrayInfo(1 To 10) As typInfoPrivate Sub Command1_Click()
    arrayInfo(1).Name = Text1.Text
    arrayInfo(1).Score = Text2.Text
End Sub

Answer 2

Option Base 1
Private Type Person
   Number As Long  '学号
   Progress As Single '成绩
End Type
Private Sub Command1_Click()
  Dim i As Integer
  Dim j As Integer
  Dim a(5) As Person
  Dim b As Person
  For i = 1 To 5
   a(i).Number = Val(InputBox("输入第" & i & "个人的学号"))
   a(i).Progress = Val(InputBox("输入第" & i & "个人的成绩"))
  Next i
  For i = 1 To 5
   For j = i To 5
    If a(i).Progress <= a(j).Progress Then
       b.Progress = a(j).Progress
       b.Number = a(j).Number
       a(j).Progress = a(i).Progress
       a(j).Number = a(i).Number
       a(i).Progress = b.Progress
       a(i).Number = b.Number
    End If
   Next j
  Next i
  For i = 1 To 5
   Print a(i).Number, a(i).Progress
  Next i
End Sub
贴一个@_@