İnputbox’dan Girilen Sayıları Sırala ve Topla Vb.Net

İnputbox’dan Girilen Sayıları Sırala ve Topla Vb.Net

Soru: Klavyeden girilen 10 sayıyı toplayıp büyükten küçüğe sıralayan programın kodlarını yazınız.toplam değer label4’e ,sayıların sıralı hali listbox2’ye yazılacak.

1. Yol

[code language=”vbnet”]

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

On Error Resume Next

Dim i, toplam As Integer

toplam = 0

Dim sayilar(9) As Integer

ListBox1.Items.Clear() ‘listbox1 temizleniyor

ListBox2.Items.Clear()

For i = 0 To 9

sayilar(i) = InputBox(i + 1 & ".Sayıyı Giriniz") ‘girilen sayı diziye aktarılıyor

toplam = toplam + sayilar(i) ‘girilen sayı toplam değişkenine ekleniyor

ListBox1.Items.Add(sayilar(i)) ‘girilen sayı listbox1’e ekleniyor

Next

Array.Sort(sayilar) ‘sayilar dizisi sıralanıyor(küçükten büyüğe)

Array.Reverse(sayilar) ‘sıralamayı ters çeviriyoruz

For i = 0 To 9

ListBox2.Items.Add(sayilar(i)) ‘sayilar dizisi döngü ile listbox2’ye ekleniyor

Next

Label4.Text = toplam ‘toplam değişkenin değeri label4’de gösteriliyor

End Sub

End Class

[/code]

2. Yol

[code lang=”vbnet”]

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

On Error Resume Next

Dim i, j, toplam, gecici As Integer

toplam = 0

Dim sayilar(9) As Integer

ListBox1.Items.Clear() ‘listbox1 temizleniyor

ListBox2.Items.Clear()

For i = 0 To 9

sayilar(i) = InputBox(i + 1 & ".Sayıyı Giriniz") ‘girilen sayı diziye aktarılıyor

toplam = toplam + sayilar(i) ‘girilen sayı toplam değişkenine ekleniyor

ListBox1.Items.Add(sayilar(i)) ‘girilen sayı listbox1’e ekleniyor

Next

For i = 0 To 9

For j = i + 1 To 9

If sayilar(j) > sayilar(i) Then ‘j.dizi elemanı i.’den büyükse

gecici = sayilar(i) ‘i.dizi elemanını gecici değişkenine aktar

sayilar(i) = sayilar(j) ‘j. dizi elemanını i. diziye aktar

sayilar(j) = gecici ‘gecici değşkenini j. diziye aktar

End If

Next

Next

For i = 0 To 9

ListBox2.Items.Add(sayilar(i)) ‘sayilar dizisi döngü ile listbox2’ye ekleniyor

Next

Label4.Text = toplam ‘toplam değişkenin değeri label4’de gösteriliyor

End Sub

End Class

[/code]