关于vb编程，我没有接触过，但是一个月后考试要用，所以来求助

关于vb编程，我没有接触过，但是一个月后考试要用，所以来求助

你现在工程里面插入2个按钮，
然后把这段代码写进去就可以了。
你说根本不懂，所以就写了最简单的，但是是按照你要求的数组模式写的。
Dim SNameArr()
Dim SScroArr()
Private Sub Command1_Click()
Dim T, M, SName, SScro
T = 1
Print "学号" & Chr(9) & "成绩"
M = 1
Do While T = 1
SName = InputBox("请输入第 " & M & " 个学生的学号" & vbCrLf & "取消即可退出", "输入学号", M)
SScro = InputBox("请输入第 " & M & " 个学生的成绩", "输入考试成绩", "")
If SName <> "" And SScro <> "" Then
ReDim Preserve SNameArr(M), SScroArr(M)
SNameArr(M) = SName
SScroArr(M) = SScro
T = 1
M = M + 1
Print SName & Chr(9) & SScro
Else
T = 0
End If
Loop
End Sub
Private Sub Command2_Click()
Dim Scall '分数集合
Dim ANum '输入用户数
Dim MaxS, MinS '最高分，最低分
Dim MaxD, MinD '最高分对应的编号，最低分对应的编号
ANum = UBound(SNameArr)
MaxS = CCur(SScroArr(1))
MinS = MaxS
MinD = 1
MaxD = MinD
For T = 1 To ANum
If MaxS < CCur(SScroArr(T)) Then MaxS = CCur(SScroArr(T)): MaxD = T
If MinS > CCur(SScroArr(T)) Then MinS = CCur(SScroArr(T)): MinD = T
Scall = Scall + CCur(SScroArr(T))
Next
Print "平均分为：" & Scall / (UBound(SNameArr))
Print "最高分：" & MaxS & " 分（考生编号：" & SNameArr(MaxD) & "）"
Print "最低分：" & MinS & " 分（考生编号：" & SNameArr(MinD) & "）"
End Sub

2010-01-27

建议还是努力学习更重要，你这些问题并不难，相信只要努力学一个月的时间足够了。答问题的人多以助人为乐，分数并不重要。
算平均分很简单，不说了。找最高分和最低分并不需要排序的，你单独做两个比较函数也可以的。2010-01-27