試使用InputBox()函式分別輸入你的操行和學期成績，再透過If巢狀迴圈判斷只要操行成績80分以上(含)為第一條件；第二條件學科成績至少80分以上(含)，若學科成績大於等於80分，獎學金1,000元；學科成績大於等於90分，則獎學金2,000 元。再透過MsgBox()函式顯示操行和學科成績和所得獎學金的金額。

 

 

 

 

 

    操行84，學科70

 

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim conduct, score As Integer
        conduct = InputBox("請輸入操行成績:", "操行成績")
        score = InputBox("請輸入學期成績", "學期成績")
        If conduct >= 80 Then
            If score >= 80 Then
                If score >= 90 Then
                    MsgBox("操行" & conduct & "分,學科" & score & "分,獎學金 2,000元")
                Else
                    MsgBox("操行" & conduct & "分,學科" & score & "分,獎學金 1,000元")
                End If
            Else
                MsgBox("學科" & score & "分,未達申請條件")
            End If
            MsgBox("操行" & conduct & "分,未達申請條件")
        End If
        End
    End Sub
End Class