Mencari Nilai Rata-rata dengan array

Suatu cara untuk mencari nilai rata-rata dari sekumpulan data yang direpresentasikan dalam bentuk array statis. 
 

'Deskripsi: Suatu logika untuk mencari nilai rata-rata dari sekumpulan data yang direpresentasikan dalam bentuk array statis. 'Persiapan: 1. Buat 1 Project baru dengan 1 Form dan 1 Commandbutton.

' 2. Copy-kan coding berikut ke dalam editor Form yang bertalian.

'--------------------------------------------------------------------------------

Private Sub Command1_Click()
Dim i As Integer, Total As Long
'Karena kita menggunakan array statis, maka kita harus
'menggunakan constanta tertentu untuk menentukan banyaknya
'elemen array. Jika kita menggunakan: Dim JlhBil As Integer
'(misalnya), maka akan terjadi error saat run-time
'yang menunjuk baris: Dim arrData(JlhBil) As Integer
Const JlhBil As Integer = 10
  Dim arrData(JlhBil) As Integer
  'Isi elemen array arrData
  arrData(0) = 12
  arrData(1) = 500
  arrData(2) = 92
  arrData(3) = 262
  arrData(4) = 112
  arrData(5) = 152
  arrData(6) = 887
  arrData(7) = 10
  arrData(8) = 120
  arrData(9) = 12
  'Inisialisasi variabel Total
  Total = 0
  'Bersihkan form
  Form1.Cls
  'Iterasi bilangan untuk menjumlah
  For i = 0 To 9
    'Cetak data-nya ke layar
    Print arrData(i)
    'Jumlahkan semua bilangan...
    Total = Total + arrData(i)
  Next i
  'Tampilkan jumlah semua bilangan
  MsgBox "Jumlah seluruh bilangan = " & Total, _
         vbInformation, "Total"
  'Tampilkan nilai rata-rata setelah selesai iterasi
  MsgBox "Rata-rata = " & Total / 10 & "" & vbCrLf & _
         "yang diperoleh dari:" & vbCrLf & _
         "perhitungan: " & Total & "/" & JlhBil & "", _
         vbInformation, "Rata-rata"
End Sub

Source:MasinoSinaga