VB6.0编程
发布网友
发布时间：2022-04-27 03:42
共1个回答
热心网友
时间：2022-06-25 16:09
On Error Resume Next
Dim i As Integer, a As Variant, jg As Integer, bjg As Integer, pj As Single
Dim s As Integer
a = Array(85, 76, 49, 56, 94, 88, 67, 82, 78, 74)
For i = 0 To 9
s = s + a(i)
If a(i) >= 60 Then
jg = jg + 1
Else
bjg = bjg + 1
End If
Next
pj = s / 10
Print "jg:"; jg
Print "bjg:"; bjg
Print "pj:"; pj
End Sub
