Anasayfa > Kodlar > Visual Basic 6 ile Sayıları büyükten küçüğe çevirme

Visual Basic 6 ile Sayıları büyükten küçüğe çevirme





Listleri kullanarak sayıları büyükten küçüğe çevirme
Bir tane list ekleyin bir tanede command1 ekleyin.

Private Sub Command1_Click()
Dim sayi(10) As Long 'sayi(10) indisli değişkendir'
For i = 1 To 10
sayi(i) = InputBox(i & ".Sayıyı Giriniz...") 'sayıları alıyoruz'
Next
For i = 1 To 10
For j = 1 To 10

If sayi(i) > sayi(j) Then
yedek = sayi(j)
sayi(j) = sayi(i)
sayi(i) = yedek
End If

Next j
Next i
For k = 1 To 10
List1.AddItem sayi(k)
Next
End Sub

 

TD Software


  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s