演算子 比較演算子

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

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][演算子 比較演算子]
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





Production Japan Import Application. Since 1998