将阿拉伯数字转成中文字的程式

2019-11-18 17:34:55

字体：大中小

来源：转载

供稿：网友

一个Form
一个TextBox
一个Label

这个修订後的程式是当使用者在TextBox中输入只包含0~9的数值後，在Label中就可看见被转换後的中文字，例如：1560890转成"壹佰伍拾陆万零捌佰玖拾"。程式限制为不可输入超过16个数字。

请建立一个新专案，并在表单中放入上述物件，再把以下程式码复制到表单的程式
码视窗，最後按下F5来执行。

PRivateSubForm_Load()
Text1.MaxLength=16
Text1.Text=""
Label1.Caption=""
Label1.AutoSize=True
Label1.BorderStyle=1
EndSub

PrivateSubText1_Change()
Label1.Caption=CChinese(Text1.Text)
EndSub

PrivateFunctionCChinese(StrEngAsString)AsString
IfNotIsNumeric(StrEng)OrStrEngLike"*.*"OrStrEngLike"*-*"Then
IfTrim(StrEng)<>""ThenMsgBox"无效的数字"
CChinese="":ExitFunction
EndIf
DimintLenAsInteger,intCounterAsInteger
DimstrChAsString,strTempChAsString
DimstrSeqCh1AsString,strSeqCh2AsString
DimstrEng2ChAsString
strEng2Ch="零壹贰叁肆伍陆柒捌玖"
strSeqCh1="拾佰仟拾佰仟拾佰仟拾佰仟"
strSeqCh2="万亿兆"
StrEng=CStr(CDec(StrEng))
intLen=Len(StrEng)
ForintCounter=1TointLen
strTempCh=Mid(strEng2Ch,Val(Mid(StrEng,intCounter,1)) 1,1)
IfstrTempCh="零"AndintLen<>1Then
IfMid(StrEng,intCounter 1,1)="0"Or(intLen-intCounter 1)Mod4=1Then
strTempCh=""
EndIf
Else
strTempCh=strTempCh&Trim(Mid(strSeqCh1,intLen-intCounter 1,1))
EndIf
If(intLen-intCounter 1)Mod4=1Then
strTempCh=strTempCh&Mid(strSeqCh2,(intLen-intCounter 1)/4 1,1)
IfintCounter>3Then
IfMid(StrEng,intCounter-3,4)="0000"ThenstrTempCh=Left(strTempCh,Len(strTempCh)-1)
EndIf
EndIf
strCh=strCh&Trim(strTempCh)
Next
CChinese=strCh
EndFunction->

下一篇：用FreeFile防止文件打开冲突

学习交流

索泰发布一款GTX 1070 Mini迷你版本:小机

索泰发布一款GTX 1070 Mini迷你版本:小机箱大爱...

热门图片

猜你喜欢的新闻

猜你喜欢的关注