ullanı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.
Button1(Topla) yazılacaklar;
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
