从键盘上输入若干个学生的考试分数,当输入负数时结束输入,然后输出其中的最高分数和最低分数。 Private Sub Form_Click() Dim i As Integer, iMax As Integer, iMin As Integer i = InputBox(" 输入一个成绩:") iMax = i iMin = i Do While (1) If i > iMax Then iMax = i ElseIf (2) Then iMin = i End If i = InputBox(" 输入一个成绩:") Loop Print " 最高成绩:"; iMax, "最低成绩:"; iMin End Sub