📄 17358.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:stupids@ms5.url.com.tw">小瓜瓜</a> on August 16, 1999 at 17:11:54:<p>In Reply to: <a href="17357.html">Re: 请问有没有将阿拉伯数字转成英文字的程式？</a> posted by Michael Owen on August 16, 1999 at 16:42:52:<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>因为很覆杂，我只想用提示的方式回答<p>一个数分两个部份，也就是整数与小数，把数值先用Str转成字串，用 Instr 找出＂.″的位置，用Left截取整数的部份，用Right截取小数的部份。<br>为了求程式简短，因此再自己写一个可以传回字串的Function，把整数部份的字串丢给Function，在Function先再开起一占存字串变数，假设叫MyVal，求得整数部份字串的长度后，然后用For..Next及MID，倒着算，由最后一个字到第一个字，将字一个个的剥出来，利用If 及Select，若是字串的最后一个字，<p>Function Translate(XXX As String) As String<p>Select Case Mid(XXX,倒数第一个字) <br> Case "0"<br> MyStr = MyStr + "Zero"<br> .<br> .<br> .<br>End Select<p>Select Case Mid(XXX，倒数第二个字) <br> Case "0"<br> MyStr = "" & MyStr <br> Case "1"<br> Select Case Mid(XXX,最后一个字)<br> Case "0"<br> MyStr = "Ten"<br> Case "1"<br> MyStr = "Eleven"<br> .<br> .<br> .<br> End Select<br> Case "2"<br> MyStr = "Twenty " & MyStr<br> .<br> .<br> . <br>End Select<p>Select Case Mid(XXX，倒数第三个字) <br> Case "0"<br> MyStr = "" & MyStr <br> Case "1"<br> MyStr = "One Hundred " & MyStr<br> Case "2"<br> MyStr = "Two Handred " & MyStr<br> .<br> .<br> . <br>End Select<p>以下，自行推演<p>Translate = MyStr<p>End Function<p>以此类推，小数部份也可以使用这个函数传回<p>如果有小数.. 整数字串 & "And" & 小数字串<br><ul><li><a href="http://www.hello.com.tw/~stupids">小瓜瓜VB调理包</a></ul><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><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--><br><hr size=7 width=75%><p></body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -