[發問] vb.net主控台應用的select case

edchen70

下列是vb.net主控台應用的程式碼
Module  Module1
    Sub Main()
        Dim var As Char, str As String
        var = "z"c
        Select Case var
            Case "A" To "Z"
                str = "大寫字母"
            Case "a" To "z"
                str = "小寫字母"
            Case "0" To "9"
                str = "阿拉伯數字"
            Case Else
                str = "非文數字資料"
        End Select

        Console.WriteLine("請輸入字元：")
        var = Console.ReadLine()
        Console.WriteLine("你輸入的字元是屬於：{0}", str)
        Console.ReadKey()

    End Sub

End Module
不知為什麼我執行時我隨便輸入(大寫或小寫字母或數字)都顯示"小寫字母"，請問哪裡錯了呢？

mark15jill

可以用Unicode方式 抓出大小寫的代號  
印象中  如果依照樓主這樣直接寫的話 很容易通通判定成小寫英文

edchen70

可以用Unicode方式 抓出大小寫的代號  
印象中  如果依照樓主這樣直接寫的話 很容易通通判定成小寫英文
mark15jill 發表於 2015-6-27 10:43

    能否給點提示{:3_57:} {:3_57:} 如果把輸入當作字元，要字元轉換(convert)成字串，google搜尋好像不用這樣做呢？

mark15jill

能否給點提示  如果把輸入當作字元，要字元轉換(convert)成字串，google搜尋好像不用 ...
edchen70 發表於 2015-6-28 15:10

    你是說 GOOGLE搜尋的功能??
那是正常阿  他們用的又不是VB.Net的搜尋方式...

就好比  你拿機車的輪胎 要去裝汽車一樣  根本不同

edchen70

你是說 GOOGLE搜尋的功能??
那是正常阿  他們用的又不是VB.Net的搜尋方式...

就好比  你拿機 ...
mark15jill 發表於 2015-6-28 23:32

    不是，你會錯意了，我指的是goole搜尋的結果沒有轉換成字串的，要變成字串不需要轉換

c_c_lai

回復 1# edchen70
我沒使用過 VB.NET，如果改成如下，其結果為何？

1. Module  Module1
   
2.     Sub Main()
   
3.         Dim var As Char, str As String
   
4. 
   
5.         Console.WriteLine("請輸入字元：")
   
6.         var = Console.ReadLine()
   
7.         Console.ReadKey()
   
8.         
   
9.         Select Case var
   
10.             Case "A" To "Z"
    
11.                 str = "大寫字母"
    
12.             Case "a" To "z"
    
13.                 str = "小寫字母"
    
14.             Case "0" To "9"
    
15.                 str = "阿拉伯數字"
    
16.             Case Else
    
17.                 str = "非文數字資料"
    
18.         End Select
    
19. 
    
20.         Console.WriteLine("你輸入的字元是屬於：{0}", str)
    
21.     End Sub
    
22. 
    
23. End Module

複製代碼

edchen70

回復  edchen70
我沒使用過 VB.NET，如果改成如下，其結果為何？
c_c_lai 發表於 2015-6-30 07:43

您太謙虛了，感謝您的幫忙，如果完全照你改的程式碼，變得更糟，無法顯示，經過你修改部份再加上我修改的就ok囉


    Module Module1
    Sub Main()
        Do
            Dim var As Char, str As String

            Console.WriteLine("請輸入字元：")
            var = Console.ReadLine()


            Select Case var
                Case "A" To "Z"
                    str = "大寫字母"
                Case "a" To "z"
                    str = "小寫字母"
                Case "0" To "9"
                    str = "阿拉伯數字"
                Case Else
                    str = "非文數字資料"
            End Select

            Console.WriteLine("你輸入的字元是屬於：{0}", str)
        Loop
        Console.ReadKey()

    End Sub

End Module