Imports System
public class MainClass
Shared Sub Main()
Dim x As Integer = 7
If IsSmaller(x, 8) OrElse IsBigger(x, 12) Then
Console.WriteLine("x < 8 OrElse x > 12")
Else
Console.WriteLine("Not True that x < 8 OrElse x > 12")
End If
End Sub
Shared Function IsBigger(ByVal firstVal As Integer,ByVal secondVal As Integer) _
As Boolean
If firstVal > secondVal Then
Return True
Else
Return False
End If
End Function
Shared Function IsSmaller(ByVal firstVal As Integer,ByVal secondVal As Integer) _
As Boolean
If firstVal < secondVal Then
Return True
Else
Return False
End If
End Function
End Class
|
