帮我编写个程序 VB的～

Question

题目是这样的， 编写程序 从键盘输入若干个学生分数，统计并输出最高分与最底分，输出结果 ． 大家帮帮忙 谢谢了

Answer 1

OK，我做好啦，我已经试过啦，

首先你在窗体上建立一个命令按钮，代码如下：

Dim b(1 To 20), max!, min!

Private Sub Command1_Click()

For i = -1 To x

a = Val(InputBox(""))

If a = -1 Then Exit For

c = c + 1

b(c) = a

i = i - 1

Next

max = b(1): min = b(1)

For i = 2 To c

If b(i) > max Then max = b(i)

If b(i) < min Then min = b(i)

Next i

Print "你输入的数中最大为："; max, "最小为："; min

End Sub

你输入学生分数后，最后按-1才会退出，记住一定要按-1

好啦，不信你可以在VB中做下，就会看到效果啦，不懂发消息问我！

Answer 2

假设有20个学生
dim a(1 to 20) as single '定义数组用来存成绩
dim max as single,min as single
dim i as integer
for i=1 to 20 '利用循环语句输入20个分数
a(i)=val(inputbox("请输入分数","输入"))
next
max=a(1) '假设最高分和最低分都是第一个学生的分数
min=a(1)
for i=2 to 20 '将最高分和最低分和后面的学生分数比较，找出最终的结果
if a(i)>max then max=a(i)
if a(i)<min then min=a(i)
next
print max,min

Answer 3

可以任意输入你的个数。只要单击command1就可以输入成绩。另外还有一个picture1当单击command2时来显示最终的结果。

Dim chj(100) As Integer
Dim t As Integer
Dim max, min As Integer
Private Sub Command1_Click()
chj(t) = Val(InputBox("请输入第" & t + 1 & "同学的成绩", "输入"))
t = t + 1
End Sub
Private Sub Command2_Click()
max = -1: min = 100
For i = 0 To t - 1
If chj(i) > max Then max = chj(i)
If chj(i) < min Then min = chj(i)
Next
Picture1.Print "最高成绩：" & max, "最低成绩：" & min
End Sub
Private Sub Form_Load()
t = 0
End Sub