En Yakın Ve En Uzak

Girilen 10 sayıdan istenilen bir sayıya en yakın ve en uzak sayıyı bulan programı yazınız.

GaMzE

Girilen 10 sayıdan istenilen bir sayıya en yakın ve en uzak sayıyı bulan programı nasıl yapabilirim?.

Ben basicde yeniyim. üstteki program hakkında yardımcı olabilirmisiniz yalnız pek fazla kod öğrenmedik  bu yüzden basit halde anlatabilirseniz çok sevinirim..(yukardaki soru döngüler ile yapılcak galiba..)

[ İlk önce bir text ekle buraya kişi 10 adet sayıyı gircek
sonra altına bir buton ekle kişi sayıyı girince buraya bassın başka bir text ekle burada tahmini sayı olcek altınada bir buton ekle sonucu bulmak istediğinde buraya yazcak ve 2 tanede label ekle bazı kodları yanlış yazmış olabilirim uzun zamandır VB kullanmıyorum ama mantık olarak işine yarar]

'Bunu general kısmına
dim i(10),k,f,buyuk,kucuk,enbuyuk,enkucuk,l

'Bunu 1.button click kısmına
l=l+1
if l=11 then l=1
button1.text=l & ". sayı"
i(k)=val(text1)

'Bu kodlarıda 2.buton click kısmına
for k=1 to 10
e(k)=val(text2)-i(k)
next

for k=1 to 10
for f=1 to 10
if not e(k)=e(f) then
  if e(k)>e(f) then buyuk=buyuk+1
  if e(k)<e(f) then kucuk=kucuk+1
end if
next
if buyuk=9 then enbuyuk=e(k) else buyuk=0
if kucuk=9 then enkucuk=e(k) else kucuk=0
next

label1.text=enbuyuk
label2.text=enkucuk

Eğer herhangi bi nesne (textbox,buton vs.) eklemeden tek parça kodla yapmak istersen (Baya bi karmaşık ama çalışıo ;)):

Dim sayi(1 To 10)
Dim uzaklik(1 To 10)
Dim istenilen, enyakinsira, enyakin, enuzaksira, enuzak, enbuyuk, enkucuk
istenilen = InputBox("Uzaklığın hesaplanacağı asıl sayıyı giriniz:", "Sayı Girişi")

For i = 1 To 10
    sayi(i) = InputBox(i & ". sayıyı giriniz:", "Sayı Girişi")
    If i = 1 Then
        enbuyuk = sayi(1)
        enkucuk = sayi(1)
    Else
        If sayi(i) > Val(enbuyuk) Then enbuyuk = sayi(i)
        If sayi(i) < Val(enkucuk) Then enkucuk = sayi(i)
    End If
Next i

enuzak = 0
For i = 1 To 10
    uzaklik(i) = Abs(Val(istenilen) - Val(sayi(i)))
    If Val(uzaklik(i)) > Val(enuzak) Then
        enuzak = uzaklik(i)
        enuzaksira = i
    End If
Next i
enyakin = Val(enuzak) + 1
For i = 1 To 10
    uzaklik(i) = Abs(Val(istenilen) - Val(sayi(i)))
    If Val(uzaklik(i)) < Val(enyakin) Then
        enyakin = uzaklik(i)
        enyakinsira = i
    End If
Next i
MsgBox ("En uzak: " & sayi(enuzaksira))
MsgBox ("En yakin: " & sayi(enyakinsira))
MsgBox ("En büyük: " & enbuyuk)
MsgBox ("En küçük: " & enkucuk)
End