arkadaşlar yarın sınavım var sınavda cıkacak bir soru bu.denedim ama beceremedim.inputboxla sayı istenicek kac sayı girileceği sorulacak.sonra o girilen sayı kadar sayı girilecek.daha sonra bu sayılar altalta formun ustune yazdırılacak.daha sonra bu sayıların ortalaması alınacak.ekrana yazılan sayıların icinde ortalamadan buyuk olan varsa onları da ekrana yazdıracak.baya bi yol katettim ama kucuk bi sorun kaldı.ben gelebildiğim yeri yazıyorum yardımcı olursanız sevinirim.

Private Sub Command1_Click()
Dim a(3000), b(3000) As Integer
t = 0
f = 0
x = InputBox("Kac tane sayı girilecek??")
For i = 1 To x
a(i) = InputBox(Str(x) + ".nci sayıyı giriniz.")
t = t + a(i)
Next
ort = t / x
Print "ortalama"; ort

For l = 1 To x
If a(l) > ort Then
f = f + 1
b(f) = a(l)
End If
Next

For i = 1 To f
Print a(i), b(i)
Next
End Sub

herşeyi yapıor ama ortalamanın ustundeki sayıları değil butun sayıları yazıyor sağdaki bolume.bunu nasıl duzeltebilirim??
__________________