ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] vb.net¥D±±¥xÀ³¥Îªºselect case

[µo°Ý] vb.net¥D±±¥xÀ³¥Îªºselect case

¤U¦C¬Ovb.net¥D±±¥xÀ³¥Îªºµ{¦¡½X
Module  Module1
    Sub Main()
        Dim var As Char, str As String
        var = "z"c
        Select Case var
            Case "A" To "Z"
                str = "¤j¼g¦r¥À"
            Case "a" To "z"
                str = "¤p¼g¦r¥À"
            Case "0" To "9"
                str = "ªü©Ô§B¼Æ¦r"
            Case Else
                str = "«D¤å¼Æ¦r¸ê®Æ"
        End Select

        Console.WriteLine("½Ð¿é¤J¦r¤¸¡G")
        var = Console.ReadLine()
        Console.WriteLine("§A¿é¤Jªº¦r¤¸¬OÄÝ©ó¡G{0}", str)
        Console.ReadKey()

    End Sub

End Module
¤£ª¾¬°¤°»ò§Ú°õ¦æ®É§ÚÀH«K¿é¤J(¤j¼g©Î¤p¼g¦r¥À©Î¼Æ¦r)³£Åã¥Ü"¤p¼g¦r¥À"¡A½Ð°Ý­þ¸Ì¿ù¤F©O¡H

¥i¥H¥ÎUnicode¤è¦¡ §ì¥X¤j¤p¼gªº¥N¸¹  
¦L¶H¤¤  ¦pªG¨Ì·Ó¼Ó¥D³o¼Ëª½±µ¼gªº¸Ü «Ü®e©ö³q³q§P©w¦¨¤p¼g­^¤å

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

¥i¥H¥ÎUnicode¤è¦¡ §ì¥X¤j¤p¼gªº¥N¸¹  
¦L¶H¤¤  ¦pªG¨Ì·Ó¼Ó¥D³o¼Ëª½±µ¼gªº¸Ü «Ü®e©ö³q³q§P©w¦¨¤p¼g­^¤å
mark15jill µoªí©ó 2015-6-27 10:43

    ¯à§_µ¹ÂI´£¥Ü{:3_57:} {:3_57:} ¦pªG§â¿é¤J·í§@¦r¤¸¡A­n¦r¤¸Âà´«(convert)¦¨¦r¦ê¡Agoogle·j´M¦n¹³¤£¥Î³o¼Ë°µ©O¡H

TOP

¯à§_µ¹ÂI´£¥Ü  ¦pªG§â¿é¤J·í§@¦r¤¸¡A­n¦r¤¸Âà´«(convert)¦¨¦r¦ê¡Agoogle·j´M¦n¹³¤£¥Î ...
edchen70 µoªí©ó 2015-6-28 15:10



    §A¬O»¡ GOOGLE·j´Mªº¥\¯à??
¨º¬O¥¿±`ªü  ¥L­Ì¥Îªº¤S¤£¬OVB.Netªº·j´M¤è¦¡...

´N¦n¤ñ  §A®³¾÷¨®ªº½ü­L ­n¥h¸Ë¨T¨®¤@¼Ë  ®Ú¥»¤£¦P

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

§A¬O»¡ GOOGLE·j´Mªº¥\¯à??
¨º¬O¥¿±`ªü  ¥L­Ì¥Îªº¤S¤£¬OVB.Netªº·j´M¤è¦¡...

´N¦n¤ñ  §A®³¾÷ ...
mark15jill µoªí©ó 2015-6-28 23:32



    ¤£¬O¡A§A·|¿ù·N¤F¡A§Ú«üªº¬Ogoole·j´Mªºµ²ªG¨S¦³Âà´«¦¨¦r¦êªº¡A­nÅܦ¨¦r¦ê¤£»Ý­nÂà´«

TOP

¦^´_ 1# edchen70
§Ú¨S¨Ï¥Î¹L VB.NET¡A¦pªG§ï¦¨¦p¤U¡A¨äµ²ªG¬°¦ó¡H
  1. Module  Module1
  2.     Sub Main()
  3.         Dim var As Char, str As String

  4.         Console.WriteLine("½Ð¿é¤J¦r¤¸¡G")
  5.         var = Console.ReadLine()
  6.         Console.ReadKey()
  7.         
  8.         Select Case var
  9.             Case "A" To "Z"
  10.                 str = "¤j¼g¦r¥À"
  11.             Case "a" To "z"
  12.                 str = "¤p¼g¦r¥À"
  13.             Case "0" To "9"
  14.                 str = "ªü©Ô§B¼Æ¦r"
  15.             Case Else
  16.                 str = "«D¤å¼Æ¦r¸ê®Æ"
  17.         End Select

  18.         Console.WriteLine("§A¿é¤Jªº¦r¤¸¬OÄÝ©ó¡G{0}", str)
  19.     End Sub

  20. End Module
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ edchen70 ©ó 2015-7-1 20:26 ½s¿è
¦^´_  edchen70
§Ú¨S¨Ï¥Î¹L VB.NET¡A¦pªG§ï¦¨¦p¤U¡A¨äµ²ªG¬°¦ó¡H
c_c_lai µoªí©ó 2015-6-30 07:43

±z¤ÓÁ¾µê¤F¡A·PÁ±zªºÀ°¦£¡A¦pªG§¹¥þ·Ó§A§ïªºµ{¦¡½X¡AÅܱo§óÁV¡AµLªkÅã¥Ü¡A¸g¹L§A­×§ï³¡¥÷¦A¥[¤W§Ú­×§ïªº´NokÅo


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

            Console.WriteLine("½Ð¿é¤J¦r¤¸¡G")
            var = Console.ReadLine()


            Select Case var
                Case "A" To "Z"
                    str = "¤j¼g¦r¥À"
                Case "a" To "z"
                    str = "¤p¼g¦r¥À"
                Case "0" To "9"
                    str = "ªü©Ô§B¼Æ¦r"
                Case Else
                    str = "«D¤å¼Æ¦r¸ê®Æ"
            End Select

            Console.WriteLine("§A¿é¤Jªº¦r¤¸¬OÄÝ©ó¡G{0}", str)
        Loop
        Console.ReadKey()

    End Sub

End Module

¥¼©R¦W-1.jpg (34.22 KB)

µ²ªG

¥¼©R¦W-1.jpg

TOP

        ÀR«ä¦Û¦b : °ß¨ä´L­«¦Û¤vªº¤H¡A¤~§ó«i©óÁY¤p¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD