N
NeStLe
Ziyaretçi
Ziyaretçi
Açıklama: For - Next ilişkisinin kullanımına ilişkin basit bir örnektir. TextBox'lara girilen 2 adet sayı arasındaki sayıların toplamını bulan bir program.
Public Class Form1
Private Sub BtnToplam_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnToplam.Click
Dim sayac, toplam As Integer
toplam = 0
For sayac = TxtBaslangic.Text To TxtBitis.Text
toplam = toplam + sayac
Next
MsgBox(toplam)
End Sub
End Class
Public Class Form1
Private Sub BtnToplam_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnToplam.Click
Dim sayac, toplam As Integer
toplam = 0
For sayac = TxtBaslangic.Text To TxtBitis.Text
toplam = toplam + sayac
Next
MsgBox(toplam)
End Sub
End Class
Hata gördüğünüzde bildirirseniz sevinirim. Bu durumda kodlara dönüp tekrar bakabilirim.