演算子 論理演算子

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][演算子 論理演算子]
Private Sub 論理演算子()

'****************************************************
'論理演算子サンプル
'****************************************************
Dim a As Long, b As Byte, c(3, 3) As String, d As Byte, e As Byte

a = 10: b = 10: e = 5

For d = 1 To UBound(c, 1)
    c(d, 3) = False
Next d

c(1, 1) = "And":    c(1, 2) = "全て一致":   If a = b And a = e Then c(1, 3) = True
c(2, 1) = "Or":     c(2, 2) = "何れか一致": If a = b Or a = e Then c(2, 3) = True
c(3, 1) = "Not":    c(3, 2) = "違えばOK":   If Not a = b Then c(3, 3) = True

For d = 1 To UBound(c, 1)
    MsgBox c(d, 1) & " = " & c(d, 3) & " です。", 0, "【" & c(d, 2) & "】"
Next d

End Sub





Production Japan Import Application. Since 1998