Tek-Çift Sayıları Toplama

Tek-Çift Sayıları Toplama

Merhaba;
Kullanıcının gireceği iki aralık arasındaki tek, çift veya bütün sayıları toplayacak programı yapalım. Örneğimiz için aşağıdaki formu oluşturalım.

Ve daha sonra Button1_Click(Topla)’e tıklıyoruz ve aşağıdaki kodları yazıyoruz.

Dim İlk, Son, top, i As İnteger 'değişken kullanarak tanımladık
İlk = Val(TextBox1.Text) 'TextBox lara sayı yazacağımız için başında Val'ı kullandık
Son = Val(TextBox2.Text)
If RadioButton1.Checked And RadioButton2.Checked Then
' her ikiside işaretli ise bütün sayıları topla
For i = İlk To Son 'for döngüdür ilk ve son sayıları aralarında toplar
top = top + i
Next
End If

If RadioButton1.Checked And Not RadioButton2.Checked Then
If İlk Mod 2 = 0 Then 'mod bölmede kalanı verir
'Başlangıç Çift ise tek yap
İlk = İlk + 1
End If
For i = İlk To Son Step 2
top = top + i
Next
End If
If Not RadioButton1.Checked And RadioButton2.Checked Then
' RadioButton2 işaretli RadioButton1 değilse çift sayıları
If İlk Mod 2 <> 0 Then
'Başlangıç tekse çift yap
İlk = İlk + 1
End If
For i = İlk To Son Step 2
top = top + i
Next
End If
MsgBox(top) 'sonucu MsgBox'a yazdırdık
End Sub
End Class

Görüldüğü gibi programımız bu şekilde çalışmaktadır.