"VBA" Programlama dilinde "Rastgele Yaratılan Sayılardan En Büyük ve En Küçüğü Bulma Örneği" ile ilgili örnek kod aşağıda belirtilmiştir.

Sub Main()
    Dim min As Integer: min = 1
    Dim max As Integer: max = 100
    Dim largest As Integer: largest = 0
    Dim smallest As Integer: smallest = 100
    Dim i As Integer: i = 1
    Dim randomNumber As Integer

    While i <= 10
        Randomize
        randomNumber = Int((max - min + 1) * Rnd + min)
        Debug.Print "Yaratilan Rastgele Sayi: " & randomNumber

        If randomNumber > largest Then
            largest = randomNumber
        End If
        If randomNumber < smallest Then
            smallest = randomNumber
        End If
        i = i + 1
    Wend

    Debug.Print
    Debug.Print "En Küçük Sayi: " & smallest
    Debug.Print "En Büyük Sayi: " & largest
End Sub