演算子 論理演算子
※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。
※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。
| 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 |