vb Do Loop条件循环：通过InputBox录

编辑： admin           2017-26-02         

Private Sub Command1_Click()

Max = 0

Min = 100

Do While aaa <> -1

aaa = Val(InputBox("请输入分数", "分数输入"))

If aaa <= 100 And aaa >= 0 Then

score = score + aaa

If aaa >= 60 Then q1 = q1 + 1

If aaa > Max Then Max = aaa

If aaa < Min Then Min = aaa

n = n + 1

End If

Loop

Print "人 数 " & n

Print "及格率 " & Int((q1 / n) * 100) & "%"

Print "平均分 " & score / n

Print "最高分 " & Max

Print "最低分 " & Min

End Sub

•   4
  

相关文章

专利代理人资格考试

初级经济师考试

执业医师考试

教师资格证考试

同等学力申硕考试

AP考试

CCIE考试

营养师考试

bec考试

gre