# Re: 请问有没有将阿拉伯数字转成英文字的程式？

Posted by Michael Owen on August 16, 1999 at 16:42:52:

In Reply to: Re: 请问有没有将阿拉伯数字转成英文字的程式？ posted by 小瓜瓜 on August 16, 1999 at 16:33:59:

不是这样的，而是输入 189.98 会转换成 one hundred and eighty nine and ninety eight ...

: : 请问有没有将阿拉伯数字转成英文字的程式？thanks

: Private Sub Text1_KeyDown(KeyAscii As Integer, Shift As Integer)
: Select Case Chr(KeyAscii)
: Case "0"
: KeyAscii = 0
: Text1.SelText = "Zero"
: Case "1"
: KeyAscii = 0
: Text1.SelText = "One"
: Case "2"
: KeyAscii = 0
: Text1.SelText = "Two"
: Case "3"
: KeyAscii = 0
: Text1.SelText = "Three"
: Case "4"
: KeyAscii = 0
: Text1.SelText = "Four"
: Case "5"
: KeyAscii = 0
: Text1.SelText = "Five"
: Case "6"
: KeyAscii = 0
: Text1.SelText = "Six"
: Case "7"
: KeyAscii = 0
: Text1.SelText = "Seven"
: Case "8"
: KeyAscii = 0
: Text1.SelText = "Eight"
: Case "9"
: KeyAscii = 0
: Text1.SelText = "Nine"
: End Select
: End Sub

Follow Ups:

- Re: 请问有没有将阿拉伯数字转成英文字的程式？ 小瓜瓜 17:11:54 8/16/99 (1)
  - 有一个元件可以满足您的需求... 帅帅阿柳 23:52:01 8/16/99 (0)