ªð¦^¦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­^¤å
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

§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

¥»©«³Ì«á¥Ñ 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 : ¥ÌÄ@°µ¡BÅw³ß¨ü¡C
ªð¦^¦Cªí ¤W¤@¥DÃD