在vb.net中仅使用SELECT大小写将数字转换为单词

Dim number As Integer = 5
Dim word As String

Select Case number
    Case 0
        word = "Zero"
    Case 1
        word = "One"
    Case 2
        word = "Two"
    Case 3
        word = "Three"
    Case 4
        word = "Four"
    Case 5
        word = "Five"
    ' 添加更多的数字转换
    Case Else
        word = "Invalid Number"
End Select

Console.WriteLine("The word representation of {0} is {1}.", number, word)