Inputbox’a Sıfır (0) Girilene Kadar Topla Vb.Net

Soru: İnputbox’a girilen sayı sıfır (0) olana kadar sayıları toplayıp sonucu label3’de gösteren programın kodlarını yazınız.

[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 ‘Hata oluşan satırı yoksayar

Dim i, toplam As Integer

Dim durum As Boolean

toplam = 0

durum = True

Dim sayilar(9) As Integer

ListBox1.Items.Clear() ‘listbox1 temizleniyor

While durum = True ‘durum true olduğu sürece end while’e kadar olan kodları uygula

i += 1 ‘i’yi 1 artır bunun yerine i=i+1’de kullanilabilir

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

If (sayilar(i) <> 0) Then ‘sayilar dizisinin i. elemanı sıfırdan farklı ise

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

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

End If

If sayilar(i) = 0 Then ‘sayilar dizisinin i. elemanı(yani girilen sayı) sıfır ise

durum = False ‘durum değişkenini false yap

i = 0 ‘ i değişkenini sıfırla

End If

End While

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

End Sub

End Class

[/code]