IF 敘述句

當我們要寫一些有判斷的成份的程式時，IF敘述句就大派用場了！例如人人都知道1+1=2，因此我們可以選擇當1+1=2的時候要做的事：

Private Sub Command1_Click() '當Command1被點擊過之後
    If 1 + 1 = 2 Then                     '如果一加一等於二
        Print "一加一等於二"       '那麼才印出"一加一等於二"
    End If                                       '離開敘述
End Sub

如果一加一不等於二的時候，要做其他事怎麼寫？

Private Sub Command1_Click() '當Command1被點擊過之後
    If 1 + 1 = 2 Then                     '如果一加一等於二
        Print "一加一等於二"       '那麼才印出 "一加一等於二"
    Else                                          '否則
        Print "一加一不等於二"  '印出 "一加一不等於二"
    End If                                       '離開敘述
End Sub

如果一加一等於十一、或者等於十二的時候，要做其他事怎麼寫？

Private Sub Command1_Click() '當Command1被點擊過之後
    If 1 + 1 = 2 Then                     '如果一加一等於二
        Print "一加一等於二"      '那麼才印出 "一加一等於二"
    ElseIf 1 + 1 = 11 Then            '如果以上不是的話，假如一加一等於十一
        Print "一加一等於十一"  '印出 "一加一等於十一"
    ElseIf 1 + 1 = 12 Then            '如果以上不是的話，假如一加一等於十二
        Print "一加一等於十二"  '印出 "一加一等於十二"
    Else                                          '否則
        Print "一加一不等於二"  '印出 "一加一不等於二"
    End If                                      '離開敘述
End Sub

我們也可以利用它得知物件的狀態，例如表單上有三個OptionButton分別是Option1、Option2和Option3和一個Command1：

Private Sub Command1_Click()       '當Command1被點擊過之後
    If Option1.Value = True Then       '如果Option1被點選過的話
        Print "Option1被點擊"             '印出"Option1被點擊"
    ElseIf Option2.Value = True Then '不然的話，如果Option2被點選過的話
        Print "Option2被點擊"             '印出"Option2被點擊"
    Else                                                 '否則
        Print "Option3被點擊"              '印出"Option3被點擊"
    End If                                              '離開敘述
End Sub

上一頁