- ©«¤l
- 7
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 11
- ÂI¦W
- 0
- §@·~¨t²Î
- winxp
- ³nÅ骩¥»
- visual studio 2008
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-6-26
- ³Ì«áµn¿ý
- 2015-11-11
|
¥»©«³Ì«á¥Ñ 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
|