📄 17357.html
字号:
<html> <head> <title>Re: 请问有没有将阿拉伯数字转成英文字的程式？</title> </head> <body bgcolor="#FFFFFF" vlink="#808080"> <center> <h1>Re: 请问有没有将阿拉伯数字转成英文字的程式？</h1> </center><hr size=7 width=75%><hr size=7 width=75%><p>Posted by <a href="mailto:nospam@nospam.com">Michael Owen</a> on August 16, 1999 at 16:42:52:<p>In Reply to: <a href="17354.html">Re: 请问有没有将阿拉伯数字转成英文字的程式？</a> posted by 小瓜瓜 on August 16, 1999 at 16:33:59:<p>不是这样的，而是输入 189.98 会转换成 one hundred and eighty nine and ninety eight ...<p>: : 请问有没有将阿拉伯数字转成英文字的程式？thanks<p>: Private Sub Text1_KeyDown(KeyAscii As Integer, Shift As Integer)<br>: Select Case Chr(KeyAscii)<br>: Case "0"<br>: KeyAscii = 0<br>: Text1.SelText = "Zero"<br>: Case "1"<br>: KeyAscii = 0<br>: Text1.SelText = "One"<br>: Case "2"<br>: KeyAscii = 0<br>: Text1.SelText = "Two"<br>: Case "3"<br>: KeyAscii = 0<br>: Text1.SelText = "Three"<br>: Case "4"<br>: KeyAscii = 0<br>: Text1.SelText = "Four"<br>: Case "5"<br>: KeyAscii = 0<br>: Text1.SelText = "Five"<br>: Case "6"<br>: KeyAscii = 0<br>: Text1.SelText = "Six"<br>: Case "7"<br>: KeyAscii = 0<br>: Text1.SelText = "Seven"<br>: Case "8"<br>: KeyAscii = 0<br>: Text1.SelText = "Eight"<br>: Case "9"<br>: KeyAscii = 0<br>: Text1.SelText = "Nine"<br>: End Select<br>: End Sub<p><br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 17357--><!--top: 17358--><li><a href="17358.html">Re: 请问有没有将阿拉伯数字转成英文字的程式？</a> <b>小瓜瓜</b> <i>17:11:54 8/16/99</i>(<!--responses: 17358-->1)<ul><!--insert: 17358--><!--top: 17385--><li><a href="17385.html">有一个元件可以满足您的需求...</a> <b>帅帅阿柳</b> <i>23:52:01 8/16/99</i>(<!--responses: 17385-->0)<ul><!--insert: 17385--></ul><!--end: 17385--></ul><!--end: 17358--></ul><!--end: 17357--><br><hr size=7 width=75%><p></body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -