Herhangi bir dizinin ortalamasını ve icindeki minumum ve maximum elemanı bulmak icin aşağıdaki ornek programı kullanabiliriz. Bu programda dizi girilirken aynı zamanda maximum ve minmum degeride bulmaktadır.

Kod:

Dim dizi(100) As Integer ' Yuzluk bir dizi tanımlanıyor
Private Sub Command1_Click()
' Maximum degeri ve minumum degeri integeralabılacegi en buyuk degerler olarak atanıyor.
max = -32768
min = 32767
ort = 0
boyut = 0
Do While boyut 100
boyut = InputBox("Dizinin boyutunu giriniz ")
'Dizinin boyutunun 1 ile 100 arasında bir deger girilmesi bir dongu kuruluyor.
Loop
For i = 1 To boyut
'Kullanıcının dizinin elemanlarını girmesi sağlanıyor.
dizi(i) = InputBox("Degerini giriniz ...", i & " 'inci degeri giriniz")
ort = ort + dizi(i)
If max < dizi(i) Then
'Eger dizinin elemanı maximum degerden buyukse maximum deger olarak dizi elamanı alınıyor.
max = dizi(i)
max_konum = i
End If
If min > dizi(i) Then
'Eger dizinin elemanı minumum degerden kucukse minumum deger olarak dizi elamanı alınıyor.
min = dizi(i)
min_konum = i
End If
Next i
'Dizinin toplamı boyutuna bolunerek ortalamasını hesaplanıyor.
ort = ort / boyut
lblmax.Caption = max
lblmin.Caption = min
lblort.Caption = ort
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Dim boyut As Integer
Dim max_konum As Integer
Dim min_konum As Integer
Dim max As Integer
Dim min As Integer
Dim i As Integer
Dim ort As Integer
End Sub
__________________