帖子: 7
主題: 4
精華: 0
積分: 11
點名: 0
作業系統: winxp
軟體版本: visual studio 2008
閱讀權限: 10
性別: 男
註冊時間: 2015-6-26
最後登錄: 2015-11-11

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2015-6-26 14:07 | 只看該作者

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

下列是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

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

2^#

發表於 2015-6-27 10:43 | 只看該作者

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

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

edchen70

小學生 Rank: 1

帖子: 7
主題: 4
精華: 0
積分: 11
點名: 0
作業系統: winxp
軟體版本: visual studio 2008
閱讀權限: 10
性別: 男
註冊時間: 2015-6-26
最後登錄: 2015-11-11

3^#

發表於 2015-6-28 15:10 | 只看該作者

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

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

TOP

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

4^#

發表於 2015-6-28 23:32 | 只看該作者

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

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

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

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

edchen70

小學生 Rank: 1

帖子: 7
主題: 4
精華: 0
積分: 11
點名: 0
作業系統: winxp
軟體版本: visual studio 2008
閱讀權限: 10
性別: 男
註冊時間: 2015-6-26
最後登錄: 2015-11-11

5^#

發表於 2015-6-29 20:20 | 只看該作者

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

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

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

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

6^#

發表於 2015-6-30 07:43 | 只看該作者

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

Module Module1
Sub Main()
Dim var As Char, str As String
Console.WriteLine("請輸入字元：")
var = Console.ReadLine()
Console.ReadKey()
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)
End Sub
End Module

複製代碼

TOP

edchen70

小學生 Rank: 1

帖子: 7
主題: 4
精華: 0
積分: 11
點名: 0
作業系統: winxp
軟體版本: visual studio 2008
閱讀權限: 10
性別: 男
註冊時間: 2015-6-26
最後登錄: 2015-11-11

7^#

發表於 2015-7-1 20:23 | 只看該作者

本帖最後由 edchen70 於 2015-7-1 20:26 編輯

回復 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

未命名-1.jpg (34.22 KB)

結果

TOP