selectcasestatementa.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 comma-separated-values
Option Strict Off

Imports System

Module SelectCaseStatementA

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

        Dim a As Byte = 12
        Select Case a
            Case 1, 2, 23
                errMsg = errMsg & "#A1 Case statement not working with Select Expression of type byte " & vbCrLf
            Case 12, 34
                numMatches += 1
                Console.WriteLine("Byte")
            Case 45, 23, 12
                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 1, 2, 23
                errMsg = errMsg & "#A2 Case statement not working with Select Expression of type Short" & vbCrLf
            Case 12, 34
                errMsg = errMsg & "#A2 Case statement not working with Select Expression of type Short" & vbCrLf
            Case 45, 23, 234
                numMatches += 1
                Console.WriteLine("Short")
        End Select

        Dim c As Integer = 45
        Select Case c
            Case 1, 2, 23
                errMsg = errMsg & "#A3 Case statement not working with Select Expression of type Integer" & vbCrLf
            Case 23, 234
                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, 2, 23
                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, 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.5
                numMatches += 1
                Console.WriteLine("Single")
            Case 45.23, 234
                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.327
                errMsg = errMsg & "#A7 Case statement not working with Select Expression of type double" & vbCrLf
            Case Else
                numMatches += 1
                Console.WriteLine("Double")
        End Select

        Dim h As String = "Sudha"
        Select Case h
            Case "Satya"
                errMsg = errMsg & "#A8 Case statement not working with Select Expression of type String" & vbCrLf
            Case "Sudha"
                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 = "Object"
        Select Case j
            Case "Object"
                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 #4/23/2005#, #2/11/2004#
                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