2011年7月23日 星期六

Visual Basic 2010 流程控制 IF

條件判斷敘述

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

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
張貼留言

LinkWithin

Related Posts Plugin for WordPress, Blogger...

熱門文章