Visual Basic For Döngüsü Örnek I-II
ÖRNEK 1:
Göster düğmesine tıklandığında 1’ den 10’a kadar olan sayıların toplamını gösterir.
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
Dim toplam As Integer
toplam = 0
For i = 1 To 10 Step 2toplam = toplam + i
Next
Label1.Text = toplam
End Sub
End Class
ÖRNEK 2:
Göster düğmesine tıklandığında 45 ile 125 arasındaki sayıların toplamını gösterir.
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
Dim toplam As Integer
toplam = 0
For i = 46 To 124 Step 2toplam = toplam + i
Next
Label1.Text = toplam
End Sub
End Class
