VB中 求數組中數據累加和，平均數

直接將下面代碼復制到窗體中測試即可Private Sub Form_Load()

Dim n As Integer

Dim a() As Single

Dim i As Integer

Dim sum As Single

Dim even As Single

n = CInt(Val(InputBox("請輸入數組的存儲的數的個數:")))

ReDim a(n) As Single

sum = 0

For i = 1 To n

a(i) = Val(InputBox("請輸入第" & i & "個數(***" & n & "個)"))

sum = sum + a(i)

Next

even = sum / n

MsgBox "數組中數的和為" & sum & ",平均數為" & even

End Sub

上一篇:多媒體素材制作軟件有那些

下一篇:如臯華建職業技術學校的教學設備