Source Code VB

‘Finding Max Value ‘

Deklarasi Option Explicit Dim A(20)

 num, i, j, max As Integer

Private Sub Command1_Click()

Print “Jumlah Array:”

For i = 0 To num - 1 Print A(i)

Next i Print “Value Tertinggi= “; max End Sub Private Sub Form_Load()

num = InputBox(”Inisialisasi Array [1-20]:”)

For i = 0 To num - 1 A(i) = InputBox(”Masukkan Jumlah array:”) Next i ‘find maximum max

= A(0) For i = 0 To num - 1 If max < A(i) Then max = A(i)

 End If

 Next

 End Sub