从键盘上输入若干个学生的考试分数， 统计并输出最高分数和最低分数， 当输入负数-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 < min Then
（2）
End If
x = (3)
Loop
Print " max = ";max, "min =";min
End Sub
 

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