演算子 比較演算子

※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。

※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。

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

 

2000年01月01日|[VBサンプルコード]:[演算子]