演算子 比較演算子
※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。
※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。
| Private Sub 比較演算子() '**************************************************** '比較演算子サンプル '**************************************************** Dim a As Long, b As Byte, c(6, 3) As String, d As Byte a = 10: b = 3 For d = 1 To UBound(c, 1) c(d, 3) = False Next d c(1, 1) = "=": c(1, 2) = "等しい": If a = b Then c(1, 3) = True c(2, 1) = "<>": c(2, 2) = "違う": If a <> b Then c(2, 3) = True c(3, 1) = "<": c(3, 2) = "右より小さい": If a < b Then c(3, 3) = True c(4, 1) = "<=": c(4, 2) = "右より以下": If a <= b Then c(4, 3) = True c(5, 1) = ">": c(5, 2) = "右より大きい": If a > b Then c(5, 3) = True c(6, 1) = ">=": c(6, 2) = "右より以上": If a >= b Then c(6, 3) = True For d = 1 To UBound(c, 1) MsgBox a & c(d, 1) & b & " = " & c(d, 3) & " です。", 0, "【" & c(d, 2) & "】" Next d End Sub |