Mega Code Archive
Compare Integer value and output their relation
<![CDATA[
Imports System
public class MainClass
Shared Sub Main()
Dim valueOne As Integer = 10
Dim valueTwo As Integer = 20
Dim valueThree As Integer = 30
Console.WriteLine("Testing valueOne against valueTwo...")
If valueOne > valueTwo Then
Console.WriteLine( _
"ValueOne: {0} larger than ValueTwo: {1}", _
valueOne, valueTwo)
End If
Console.WriteLine("Testing valueThree against valueTwo...")
If valueThree > valueTwo Then
Console.WriteLine( _
"ValueThree: {0} larger than ValueTwo: {1}", _
valueThree, valueTwo)
End If
Console.WriteLine("Testing is valueTwo > 15 (one line)...")
If valueTwo > 15 Then Console.WriteLine("Yes it is")
End Sub
End Class
]]>