電腦學習園地

條件判斷敘述

依據運算式的值，有條件的執行一組陳述式。

IF使用方法一、

If Then條件敘述是一種是否執行的條件，決定是否執行區塊內的程式碼。如果If條件為True，就執行Then/End If間的程式碼，其語法如下所示：

  1: If 條件 Then
  2:    程式區塊
  3: End If

例如：學生成績超過60分是及格分數，如下所示：

  1: If txtScore.Text >= 60 Then
  2:    lblOutput.Text &= "成績在範圍中．．" & vbNewLine
  3:    lblOutput.Text &= "學生成績及格: " & txtScore.Text & vbNewLine
  4: End If

範例練習

  1: Sub Main()
  2: 
  3: Dim score As Integer=100
  4: Dim result As String
  5: 
  6: Console.Write("分數:"&score)
  7: 
  8: '判斷score有沒有大於
  9: If score>=60 Then
 10:    result="及格!"
 11: Else
 12:    result="不及格!"
 13:    EndIf
 14:    Console.WriteLine(result)
 15:    Console.ReadKey()
 16: 
 17: End Sub

IF使用方法二、

我們可以加上Else關鍵字，如果If條件為True，就執行Then/Else間的程式碼；False就執行Else/End If間的程式碼，其語法如下所示：

  1: If 條件 Then
  2:    程式區塊1
  3: Else
  4:    程式區塊2
  5: End If

例如：使用If Then/Else條件敘述，以身高來決定購買半票或全票，如下所示：

  1: length = CInt(txtLength.Text)
  2: If length > 120 Then
  3:    lblOutput.ForeColor = Color.Blue
  4:    lblOutput.Text = "購買全票!"
  5: Else
  6:    lblOutput.ForeColor = Color.Red
  7:    lblOutput.Text = "購買半票!"
  8: End If

IF使用方法三、

If Then/ElseIf條件敘述是If Then/Else條件敘述的延伸，使用ElseIf來重複建立多選一條件敘述。

例如：四則運算的If Then/ElseIf條件敘述，如下所示：

  1: If rdbAdd.Checked = True Then
  2:     result = opd1 + opd2 ' 加 
  3: ElseIf rdbSubtract.Checked = True Then
  4:     result = opd1 - opd2 ' 減
  5: ElseIf rdbMultiply.Checked = True Then
  6:     result = opd1 * opd2 ' 乘
  7: ElseIf rdbDivide.Checked = True Then
  8:     result = opd1 / opd2 ' 除
  9: Else
 10:     MsgBox("錯誤: 沒有選擇運算子!")
 11: End If