- ©«¤l
- 552
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 578
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-2-8
- ³Ì«áµn¿ý
- 2024-2-26
|
¦^´_ 1# VBALearner
´«Ó¨¤«×«ä¦Ò¡A¥@¬É·|§ó¼s¡I- Dim a As Integer
- Sub Main()
- a = InputBox("n°õ¦æþÓµ{§Ç")
- µ{§Ç
- End Sub
- Sub µ{§Ç()
- Select Case a
- Case 1
- '©ñ¤Jµ{§Ç1ªºµ{¦¡½X.............
- MsgBox ("¥Ø«e¨Ï¥Îªº¬Oµ{§ÇA")
- Case 2
- '©ñ¤Jµ{§Ç2ªºµ{¦¡½X.............
- MsgBox ("¥Ø«e¨Ï¥Îªº¬Oµ{§ÇB")
- Case 3
- '©ñ¤Jµ{§Ç3ªºµ{¦¡½X.............
- MsgBox ("¥Ø«e¨Ï¥Îªº¬Oµ{§ÇC")
- End Select
- End Sub
½Æ»s¥N½X |
|