Öğrenci Ders Notu Hesaplama

Bu örnek te basit bir şekilde öğrencinin dersten aldığı notu hesaplayacağız.

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim sayi(3) As Integer
        sayi(0) = InputBox("1. not girişi", "Not Girişi")
        sayi(1) = InputBox("2. not girişi", "Not Girişi")
        sayi(2) = (sayi(0) + sayi(1)) / 2

        Select Case sayi(2)
            Case Is < 50
                MessageBox.Show("Üzgünüz Kaldınız. Sınav Ortalamanız: " & sayi(2))
            Case Is > 50
                MessageBox.Show("Tebrikler dersi geçtiniz. Sınav Ortalamanız: " & sayi(2))
        End Select

    End Sub
End Class

Bir sonraki makalede görüşmek üzere. Bahadır