selectcasestatementb.vb

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

'Author:
'   Satya Sudha K ([e-mail])
'
' (C) 2005 Novell, Inc.

' Testing whether all kinds of primitive types work well as 'Select' expression
' Testing the case clauses like 'x To Y'
Option Strict Off

Imports System

Module SelectCaseStatementB

    Function Main() As Integer
        Dim errMsg As String = ""
        Dim numMatches As Integer = 0

        Dim a As Byte = 12
        Select Case a
            Case 1 To 11
                errMsg = errMsg & "#A1 Case statement not working with Select Expression of type byte " & vbCrLf
            Case 12 To 23
                numMatches += 1
                Console.WriteLine("Byte")
            Case 5 To 16
                errMsg = errMsg & "#A1 Case statement not working with Select Expression of type byte" & vbCrLf
        End Select

        Dim b As Short = 234
        Select Case b
            Case 150 To 23
                errMsg = errMsg & "#A2 Case statement not working with Select Expression of type Short" & vbCrLf
            Case 150 To 200
                errMsg = errMsg & "#A2 Case statement not working with Select Expression of type Short" & vbCrLf
            Case 200 To 234
                numMatches += 1
                Console.WriteLine("Short")
        End Select

        Dim c As Integer = 45
        Select Case c
            Case 1 To 23
                errMsg = errMsg & "#A3 Case statement not working with Select Expression of type Integer" & vbCrLf
            Case 23 To 44
                errMsg = errMsg & "#A3 Case statement not working with Select Expression of type Integer" & vbCrLf
        End Select

        Dim d As Long = 465
        Select Case d
            Case 1 To 460
                errMsg = errMsg & "#A4 Case statement not working with Select Expression of type Long" & vbCrLf
            Case Else
                numMatches += 1
                Console.WriteLine("Long")
        End Select

        Dim e As Decimal = 234232
        Select Case e
            Case 12 To 34
                errMsg = errMsg & "#A5 Case statement not working with Select Expression of type Decimal" & vbCrLf
            Case Else
                numMatches += 1
                Console.WriteLine("Decimal")
        End Select

        Dim f As Single = 23.5
        Select Case f
            Case 23 To 24
                numMatches += 1
                Console.WriteLine("Single")
            Case 23 To 5
                errMsg = errMsg & "#A6 Case statement not working with Select Expression of type Single" & vbCrLf
            Case 12.34
                errMsg = errMsg & "#A6 Case statement not working with Select Expression of type Single" & vbCrLf
        End Select

        Dim g As Double = 1.9
        Select Case g
            Case 34 To 327
                errMsg = errMsg & "#A7 Case statement not working with Select Expression of type double" & vbCrLf
            Case 1 To 20
                numMatches += 1
                Console.WriteLine("Double")
        End Select

        Dim h As String = "Sudha"
        Select Case h
            Case "K" To "Satya"
                errMsg = errMsg & "#A8 Case statement not working with Select Expression of type String" & vbCrLf
            Case "SAAA" To "Szzzz"
                numMatches += 1
                Console.WriteLine("String")
            Case "None"
                errMsg = errMsg & "#A8 Case statement not working with Select Expression of type String" & vbCrLf
        End Select

        Dim i As Char = "4"
        Select Case i
            Case "g"
                errMsg = errMsg & "#A9 Case statement not working with Select Expression of type Char" & vbCrLf
            Case Else
                Console.WriteLine("Char")
                numMatches += 1
        End Select

        Dim j As Object = 45.6
        Select Case j
            Case 23 To 90
                numMatches += 1
                Console.WriteLine("Object")
            Case 45, 23, 234
                errMsg = errMsg & "#A10 Case statement not working with Select Expression of type Object" & vbCrLf
        End Select

        Dim k As Date = #4/23/2005#
        Select Case k
            Case #1/1/1998#
                errMsg = errMsg & "#A11 Case statement not working with Select Expression of type DateTime" & vbCrLf
            Case #1/1/2002# To #2/11/2006#
                numMatches += 1
                Console.WriteLine("DateTime")
            Case Else
                errMsg = errMsg & "#A11 Case statement not working with Select Expression of type DateTime" & vbCrLf
        End Select

        If (errMsg <> "") Then
            Throw New Exception(errMsg)
        End If
        If numMatches <> 10 Then
            Throw New Exception("select-case statements not working properly")
        End If
    End Function

End Module