VB程式設計：IF語句判斷成績優良

源代碼：

Private Sub Command1_Click()

   Dim i As Integer

   i = Val(Text1)

   If i = 100 Then

       MsgBox "滿分"

   ElseIf i >= 85 Then

       MsgBox "優秀"

   ElseIf i >= 75 Then

       MsgBox "良好"

   ElseIf i >= 60 Then

       MsgBox "及格"

   Else

       MsgBox "不及格，該努力了"

   End If

End Sub

小技巧：

可将Form窗體StartUpPosition屬性設定為“2-螢幕中心”，窗體運作時就會居中顯示。