expressionswithorelsea.vb

大名鼎鼎的mono是.NET平台的跨平台（支持linux

'Author: Ritvik Mayank <[e-mail]>
'Copyright (C) 2005 Novell, Inc (http://www.novell.com)
'this is when first term is False

Imports System
Imports Microsoft.VisualBasic
Module Test

    Function f1(ByVal i As Integer, ByVal j As Integer, ByVal k As Integer) As Boolean
        Dim E As Boolean = (k - i) > (j - i)
        Return E
    End Function

    Function f2(ByVal l As Integer, ByVal m As Integer) As Boolean
        Dim F As Boolean = l < m
        Return F
    End Function

    Function Main() As Integer
        Dim MyCheck As Boolean
        MyCheck = f1(10, 40, 30) OrElse f2(10, 20)
        If Mycheck = False Then
            Throw New Exception(" Unexpected Result for the Expression  ")
        End If
    End Function
End Module