Menghitung Nilai Jumlah dan Nilai Rata-rata Bilangan pada Array

Array adalah sekumpulan data bertipe sama dan berurutan tertentu yang mempunyai nama sama. Nilai-nilai data tersebut pada suatu baris dibedakan dengan menggunakan suatu index. Index tersebut didalam bahasa pemrograman khususnya Visual Basic 6.0 (VB6) bisa perulangan For...Next, Do While......Wend dan lain-lain. Penulisan artikel kali ini admin akan membuat sebuah syntak bagaimana menghitung nilai jumlah keseluruhan dan nilai rata-rata pada sebuah bilangan menggunakan Array. Buka Ms. Visual Basic 6.0 (VB) kemudian buatlah sebuah project dan tambahkan form. Untuk Caption Form bisa ditambahkan tulisan sesuai selera atau dibiarkan secara default juga tidak menjadi masalah. Pada area form tambahkan juga 1 (satu) buah komponen CommandButton.

Setelah itu double klik pada CommandButton dan copas syntak dibawah ini

Dim i As Integer, Total As Long

Const JlhBil As Integer = 10

Dim arrData(JlhBil) As Integer

  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

  Total = 0

  Form1.Cls

  For i = 0 To 9

    Print arrData(i)

    Total = Total + arrData(i)

  Next i

  Print "--------------------------------------------------"

  Print "Grand Total bilangan = " & Total

  Print "--------------------------------------------------"

  Print "Rata-rata = " & Total / 10 & "" & vbCrLf & _

         "dari perhitungan: " & Total & " / " & JlhBil

Sekarang kita coba RUN/F5 kemudian klik CommandButton maka hasilnya seperti dibawah ini

Form diatas merupakan hasil dari syntak perhitungan nilai keseluruhan dan nilai rata-rata dengan menggunakan array diatas, semoga artikel pendek kali ini dapat bermanfaat bagi pembaca sekalian.