用vb程序编写从键盘输入十个人的成绩,统计成绩大于九十的人数,并输出

Question

如题所述

Answer 1

Private Sub Command1_Click()
    Dim cj() As Double, x As Long
    For i = 0 To 9
        ReDim Preserve cj(i)
        cj(i) = Val(InputBox("请输入第" & i + 1 & "个学生成绩："))
        If cj(i) > 90 Then
            x = x + 1
            If x = 1 Then Print "成绩大于90的为："
            Print cj(i)
        End If
    Next
    Print "共有" & x & "人成绩大于90"
End Sub