3、讀入個數不確定的考試分數，并且判斷有多少個分數是大于或等于平均分，有多少個分數小于平均分。輸入-1表示輸入的結束。輸入資料時需要通程序式控制只能輸入－1及0到100之間的分數。采用動態陣列完成。
uj5u.com熱心網友回復：
自己頂ZIJIDuj5u.com熱心網友回復：
鍵盤輸入還是檔案輸入?uj5u.com熱心網友回復：
你不會，學土木不是理由。當初我讀大學時也學土木，但為啥我班上很多人就會呢。關鍵是你這問題，看了后就知是一很基礎的編程題，在那些國家計算機二級考試的題目里，也算是正常難度的題目。話又說回來，既然樓上愿意幫你出主意，那還是盡快說明具體情況吧。
uj5u.com熱心網友回復：
寫代碼，就是那些PRIvate之類的uj5u.com熱心網友回復：
Private Sub Text1_Change()
Dim s() As String, t() As Single, i As Long, avg As Single, n As Long
s = Split(Trim(Text1))
If UBound(s) < 1 Then Exit Sub
If Right(Text1.Text, 1) = "-" Then Exit Sub
ReDim t(UBound(s))
For i = 0 To UBound(s)
If Not IsNumeric(s(i)) Then MsgBox "Illegal!": Exit Sub
If Val(s(i)) < -1 Then MsgBox "Illegal!": Exit Sub
If Val(s(i)) > 100 Then MsgBox "Illegal!": Exit Sub
t(i) = Val(s(i))
avg = avg + t(i)
Next
If s(UBound(s)) = "-1" Then
avg = (avg + 1) / UBound(t)
For i = 0 To UBound(t) - 1
If t(i) >= avg Then n = n + 1
Next
MsgBox "有" & n & "個分數是大于或等于平均分，有" & UBound(t) - n & "個分數小于平均分"
End If
End Sub
uj5u.com熱心網友回復：
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/118127.html
標籤：VB基礎類