100'lük ve 5'lik Sistemde Ortalama Alma

Bu dersimizde 100'lük ve 5'lik sistemde ortalama alma konusunu işleyeceğiz.

Bu dersimizde 100'lük ve 5'lik sistemde ortalama alma konusunu işleyeceğiz.




Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim a, b, c, d, s As Integer

        a = Val(TextBox1.Text)

        b = Val(TextBox2.Text)

        c = Val(TextBox3.Text)

        d = Val(TextBox4.Text)

        s = (a + b + c + d) / 4

        TextBox5.Text = s

        If s < 25 Then

            TextBox6.Text = "0"

        Elseif s < "45 "then

        TextBox6.Text = "1"

        elseif s <" 55" then 

        ElseIf s < "70" Then

            TextBox6.Text = "3"

        elseif s <" 85" then

        TextBox6.Text = "4"

        elseif s < "100" then

            TextBox6.Text = " 5"

        End If

  • Etiketler;
Gokhan00 Gokhan00
Sanalkurs.net
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

biraz daha geliştirmen laızım bu uygulamayı örneğin benim 4 değilde 3 sınavım olsa program yanlışa düşer. Bir textbox koyup kullanıcıdan sınav adedini alabilir sonrada bu adede göre kaç textboxun aktif olacağını gösterebilirsin.:kirp:

Yukarı Git