ifelseifelse2.vb

来自「大名鼎鼎的mono是.NET平台的跨平台（支持linux」· VB 代码 · 共 26 行

Imports System
Imports System.Collections
Imports System.Reflection

Namespace IfElseIfElse2
    Class Test
        Private Shared Value As Integer
        Shared Sub Test(ByVal p As Integer)
            value = p
        End Sub

        Shared Function Main() As Integer
            Dim i As Integer
            i = 30
            main = 245
            If i = 10 OrElse i < 10 Then
                test(1)
            ElseIf i = 20 OrElse i < 20 Then
                test(2)
            Else
                test(3)
            End If
            Return value - 3
        End Function
    End Class
End Namespace