Mencari Nilai Tertinggi
April 1, 2008
‘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 max
max=A(0)
for i=0 to num -1
if max < A(i) then
max=A(i)
end if
next
end sub
