4. Bir öğrenciye ait vize ve final notlarının ortalamasını hesaplayan ve ortalamaya göre ekrana “Geçti” – “Kaldı” yazan algoritmayı hazırlayınız (Not: Ortalama hesaplanırken vizenin %40, finalin %60’ı alınacak, geçme notu 45’dir.) .

2

Cevaplar

2012-11-15T14:38:11+02:00

algoritmayı istediğin yerden hazırlaya bilirsin onun için böyle yazıp kopyala yapıştır yap

0
2012-11-15T16:57:06+02:00

        Dim vize, final As Byte

        Dim ort As Single

        vize = TextBox1.Text

        final = TextBox2.Text

        vize = (vize * 60) / 100

        final = (final * 40) / 100

        TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text) / 2

        If Val(TextBox3.Text) < 45 Then MsgBox("kaldı")

        If Val(TextBox3.Text) >= 45 Then MsgBox("geçti")

        If (TextBox3.Text >= 0 And TextBox3.Text <= 24) Then TextBox4.Text = ("0")

        If (TextBox3.Text >= 25 And TextBox3.Text <= 44) Then TextBox4.Text = ("1")

        If (TextBox3.Text >= 45 And TextBox3.Text <= 54) Then TextBox4.Text = ("2")

        If (TextBox3.Text >= 55 And TextBox3.Text <= 69) Then TextBox4.Text = ("3")

        If (TextBox3.Text >= 70 And TextBox3.Text <= 84) Then TextBox4.Text = ("4")

        If (TextBox3.Text >= 85 And TextBox3.Text <= 100) Then TextBox4.Text = ("5")

 

        End

 

 

1 5 1