c_c_lai

¦^´_ 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. 
   
5.         Console.WriteLine("½Ð¿é¤J¦r¤¸¡G")
   
6.         var = Console.ReadLine()
   
7.         Console.ReadKey()
   
8.         
   
9.         Select Case var
   
10.             Case "A" To "Z"
    
11.                 str = "¤j¼g¦r¥À"
    
12.             Case "a" To "z"
    
13.                 str = "¤p¼g¦r¥À"
    
14.             Case "0" To "9"
    
15.                 str = "ªü©Ô§B¼Æ¦r"
    
16.             Case Else
    
17.                 str = "«D¤å¼Æ¦r¸ê®Æ"
    
18.         End Select
    
19. 
    
20.         Console.WriteLine("§A¿é¤Jªº¦r¤¸¬OÄÝ©ó¡G{0}", str)
    
21.     End Sub
    
22. 
    
23. End Module

½Æ»s¥N½X