Visual Basic Rastgele Sayılardan En Büyük ve En Küçüğü Bulma Örneği

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

Imports System

Module MainModule
    Sub Main()
        Dim min As Integer = 1, max As Integer = 100
        Dim largest As Integer = 0
        Dim smallest As Integer = 100
        Dim i As Integer = 1

        While i <= 10
            Dim r As New Random()
            Dim randomNumber As Integer = r.Next(min, max + 1)
            Console.WriteLine("Yaratilan Rastgele Sayi: " & randomNumber)

            If randomNumber > largest Then
                largest = randomNumber
            End If

            If randomNumber < smallest Then
                smallest = randomNumber
            End If

            i += 1
        End While

        Console.WriteLine()
        Console.WriteLine("En Küçük Sayi: " & smallest)
        Console.WriteLine("En Büyük Sayi: " & largest)
    End Sub
End Module



İlginizi Çekebilir

Visual Basic Bir Dizi Kullanarak N Sayının Toplamını Bulma Örneği

Visual Basic Bir Listede Birden Çok Olan Elemanları Göstermek

Visual Basic Diziden Eleman Çıkarma

Visual Basic String Trim Kullanımı

Visual Basic Byte Dizisini Stringe Çevirmek