Mega Code Archive

 

Categories / VisualBasic Script / Language Basics

 

Logical Expressions

Sub Main()     Dim num1 As Integer     Dim num2 As Single     Dim str1 As String     Dim str2 As String     Dim obj1 As Object     Dim obj2 As Object     Dim result As Boolean     num1 = 10     num2 = 10     str1 = "10"     str2 = "ABC"     Set obj1 = Range("A1")     Set obj2 = Range("A1")          result = (num1 = num2)      'result holds True     result = (num1 < num2)      'result holds False     result = (num1 > num2)      'result holds False     result = (num1 >= num2)     'result holds True     result = (num1 <= num2)     'result holds True     result = (num1 <> num2)     'result holds False          result = (num1 = str1)      'result holds True '    result = (num1 = str2)      'Type mismatch error          result = (str1 = str2)       'result holds False     result = (str1 > str2)       'result holds False     result = (str1 < str2)       'result holds True     result = ("a" < "A")         'result holds False     result = (str1 >= str2)     'result holds False     result = (str1 <= str2)     'result holds True     result = (str1 <> str2)     'result holds True               result = (obj1 Is obj2)      'result holds False              Set obj1 = obj2     result = (obj1 Is obj2)      'result holds True End Sub