为自己加油

从键盘上输入若干个学生的考试分数， 统计井输出最高分数和最低分数， 当输入负数-1时结束输入，并输出结果。

Private Sub Form_Click()

Dim x !, max!, min!

x = InputBox("Enter a score")

max = x

min = x

Do While (1)

If x >max Then

max = x

End If

If x

（2）

End If

x = (3)

Loop

Print " max = ";max, "min =";minEnd Sub

从键盘上输入若干个学生的考试分数， 统计井输出最高分数和最低分数， 当输入负数-1时结束输入，并输出结果。

（1）x<>-1； (2)min = x； (3)InputBox (“Enter a score”)