Vba ile Rastgele Sayılar Sorusu

[G.Bale]

Merhabalar,
Bu gece çözmek zorundayım bu soruyu...
Soru:

"Algoritma ya da akış diyagramı şeklinde yapmakla uğraşmayız" diye düşünenler olursa kodları bile yazsa bizim için çok işe yarayacak.
İlgilenenlere şimdiden teşekkürler...

 

[ÖmerBey]

Merhaba,
Aşağıdaki kodu deneyiniz.

Sub KOD()
Randomize
Dim sayı(1 To 50)
Dim toplam(1 To 25)

'BU BÖLÜMDE RASTGELE SAYI ÜRETİLİR
For a = 1 To 50
    sayı(a) = Int(Rnd * 5500) + 1
Next

'BU BÖLÜMDE ÜRETİLEN SAYILAR KÜÇÜKTEN BÜYÜĞE SIRALANIR
For a = 1 To 49
    For b = a + 1 To 50
        If sayı(a) > sayı(b) Then
            x = sayı(a)
            sayı(a) = sayı(b)
            sayı(b) = x
        End If
    Next
Next

'EN KÜÇÜK DEĞER İLE EN BÜYÜK DEĞER TOPLANIR
For i = 1 To 25
    toplam(i) = sayı(i) + sayı(51 - i)
Next

'TOPLAMIN YER ALDIĞI DEĞERLER SIRALANIR
For i = 1 To 24
    For j = i + 1 To 25
        If toplam(i) > toplam(j) Then
            y = toplam(i)
            toplam(i) = toplam(j)
            toplam(j) = y
        End If
    Next
Next

'MESAJ KUTUSU İLE DEĞERLER GÖSTERİLİR
MsgBox Join(toplam, vbLf)
End Sub