yen956

¦^´_ 3# C9212038
¸Õ¸Õ¬Ý:

1. Select Case Dollars
   
2.     Case ""
   
3. '        Dollars = "No Dollars"
   
4.         Dollars = ""
   
5.     Case "One"
   
6. '        Dollars = "One Dollar"
   
7.         Dollars = "One"
   
8.     Case Else
   
9. '        Dollars = Dollars & " Dollars"
   
10.         Dollars = Dollars & ""
    
11. End Select
    
12. 
    
13. Select Case Cents
    
14.     Case ""
    
15. '        Cents = " and No Cents"
    
16.         Cents = ""
    
17.     Case "One"
    
18.         'Five Hundred Thirteen And Cents Fifty One
    
19.         '¦pªG§Æ±æ¦p¤W Cents ©ñ«e­±,
    
20.         '¨º´N¤U¦æ§ï¦¨ Cents = " and Cent One"
    
21.         Cents = " and One Cent"
    
22.     Case Else
    
23.         '¦pªG§Æ±æ Cents ©ñ«e­±,
    
24.         '¨º´N¤U¦æ§ï¦¨ Cents = " and Cents " & Cents
    
25.         Cents = " and " & Cents & " Cents"
    
26. End Select

½Æ»s¥N½X

»¡©ú¡G«e­±¥[ ' ¨º¤@¦C¬Oµù¸Ñ, ¤£·|³QVBA°õ¦æ