21 lines
534 B
Text
21 lines
534 B
Text
Sub Main()
|
|
|
|
Dim a = CInt(Console.ReadLine)
|
|
Dim b = CInt(Console.ReadLine)
|
|
|
|
'Using if statements
|
|
If a < b Then Console.WriteLine("a is less than b")
|
|
If a = b Then Console.WriteLine("a equals b")
|
|
If a > b Then Console.WriteLine("a is greater than b")
|
|
|
|
'Using Case
|
|
Select Case a
|
|
Case Is < b
|
|
Console.WriteLine("a is less than b")
|
|
Case b
|
|
Console.WriteLine("a equals b")
|
|
Case Is > b
|
|
Console.WriteLine("a is greater than b")
|
|
End Select
|
|
|
|
End Sub
|