Private Sub Form_Load()
Show
Ad = InputBox("Öğrencinin adı ve sayadı")
Not1 = Val(InputBox("1. yazılı notu"))
Not2 = Val(InputBox("2. yazılı notu"))
Not3 = Val(InputBox("3. yazılı notu"))
Ort = (Not1 + Not2 + Not3) \ 3
Select Case Ort
Case 0 To 44: Durum = "Zayıf"
Case 45 To 54: Durum = "Geçer"
Case 55 To 69: Durum = "Orta"
Case 70 To 84: Durum = "İyi"
Case 85 To 100: Durum = "Pekiyi"
Case Else: Durum = "Notlarda hata var"
End Select
Print "Öğrencinin Adı:"; Ad
Print "Yazılı Notları:"; Not1; Not2; Not3
Print "Ortalaması:"; Ort
Print "Durum:"; Durum
End Sub