Bir windows uygulaması oluşturun. Forma 3adet label, 3adet textbox ve 1adet button ekleyin.

Label1 > 1. Notunuzu Giriniz:
Label2 > 2. Notunuzu Giriniz:
Label3 > Ortalamanız:
Button1 > Hesapla

olacak şekilde text özelliklerini değiştirin.



button 1 click olayına girin ve şu kodları yazın


Dim yazili1, yazili2, ort As Single ' 1. ve 2. yazılı notunu ve ortalamayı single olarak tanımladık yani ondalık sayı olabilir
        yazili1 = Val(TextBox1.Text) '1. yazılı notunun textbox1.text den okutulmasını söyledik
        yazili2 = Val(TextBox2.Text) '2. yazılı notunun textbox2.text den okutulmasını söyledik
        ort = (yazili1 + yazili2) / 2 'ortalamanın 1. ve 2. yazılı notlarının toplamının 2ye bölümü olduğunu söyledik
        TextBox3.Text = ort 'en sonda ortalamanın textbox3'e yazmasını söyledik