Kullanıcının girdiği 3 yazılı notunun hesaplanıp ortalaması alınarak sonucu “GEÇTİ” veya “KALDI” olarak gösteren eğer kaldıysa bütünleme sınavının sonucunu isteyen ve yine “GEÇTİ” veya “KALDI” şeklinde sonuçlandıran programı oluşturuyoruzz..
Yapacağımız programda sonuçları msgboxda göstereceğimiz için 1 button kullanmak yeterli olacaktır. Resmin yukarısında belirtilen şartları yerine getirip programı oluşturmak için buttona şu kodlar yazılmalıdır;
Dim not1, not2, not3 As Integer
Dim ortalama, bütünleme As Single
not1 = Val(InputBox("birinci sınav puanınızı griniz...", "notlar giriliyor"))
not2 = Val(InputBox("ikinci sınav puanınızı griniz...", "notlar giriliyor"))
not3 = Val(InputBox("üçüncü sınav puanınızı griniz...", "notlar giriliyor"))
ortalama = (not1 + not2 + not3) / 3
ortalama = Math.Round(ortalama)
MsgBox("öğrencinin ortalaması=" & ortalama)
If ortalama >= 45 Then
MsgBox("GEÇTİ")
ElseIf ortalama < 45 Then
MsgBox("BÜTÜNLEMEYE KALDI")
bütünleme = InputBox("bütünleme notunu giriniz")
End If
If bütünleme < 45 Then
MsgBox("KALDI")
Else
MsgBox("GEÇTİ")
End If
