Kullanıcı belirlerdiği sayı aralıklarındaki sayıların toplamını, tektoplamını ve çift toplamını veren program.. gorsel programlama dersi 1.dönem 1.yazılı uygulama 1.soru.
Üstteki form tasarımını yapınız. Program topla düğmesine tıklayınca çalışacaktır. text1 ile text2 ‘ye girilen sayılar arasındaki sayılardan tek, çift ve tüm sayıların toplamını bulup label6, label7 ve label8 ‘in içinde gösteren kodları yazınız.
Program 8 label,1 button ,2 textbox’tan uluşacak.
Yapılışı:
Button1(Topla) yazılacaklar;
[code lang=”vbnet”]Dim toplam, tektoplam, çifttoplam As Single
Dim a, altsınır, üstsınır As Integer
altsınır = Val(TextBox1.Text)
üstsınır = Val(TextBox2.Text)
For a = altsınır To üstsınır
If a Mod 2 = 1 Then tektoplam = tektoplam + a
If a Mod 2 = 0 Then çifttoplam = çifttoplam + a
toplam = toplam + a
Next
Label6.Text = tektoplam
Label7.Text = çifttoplam
Label8.Text = toplam[/code]