Dim a As Integer = 10, b As Integer = 3
Dim result As String
result = "a=" & a & "<br>" & _
"b=" & b & "<br>" & _
"a+b=" & a + b & "<br>" & _
"a-b=" & a - b & "<br>" & _
"a*b=" & a * b & "<br>" & _
"a/b=" & a / b & "<br>" & _
"a\b=" & a \ b & "<br>" & _
"a^b=" & a ^ b & "<br>" & _
"a&b=" & a & b & "<br>" & _
"a Mod b=" & a Mod b & "<br>"
result = result & "<hr>"
result = result & "15 > 12 and 40 > 30 =" & (15 > 12 And 40 > 30) & "<br>" & _
"15 > 12 and 40 < 30 =" & (15 > 12 And 40 < 30) & "<br>" & _
"15 > 12 or 40 > 30 =" & (15 > 12 Or 40 > 30) & "<br>" & _
"15 > 12 xor 40 > 30 =" & (15 > 12 Xor 40 > 30) & "<br>" & _
"not 15 > 12 =" & (Not 15 > 12) & "<br>"
Label1.Text = result