国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁(yè) > 學(xué)院 > 開發(fā)設(shè)計(jì) > 正文

將阿拉伯?dāng)?shù)字轉(zhuǎn)成中文字的程式

2019-11-18 17:34:55
字體：大 中 小
供稿：網(wǎng)友
一個(gè)Form
一個(gè)TextBox
一個(gè)Label

這個(gè)修訂後的程式是當(dāng)使用者在TextBox中輸入只包含0~9的數(shù)值後，在Label中就可看見被轉(zhuǎn)換後的中文字，例如：1560890轉(zhuǎn)成"壹佰伍拾陸萬零捌佰玖拾"。程式限制為不可輸入超過16個(gè)數(shù)字。

請(qǐng)建立一個(gè)新專案，并在表單中放入上述物件，再把以下程式碼復(fù)制到表單的程式
碼視窗，最後按下F5來執(zhí)行。

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->

發(fā)表評(píng)論 共有條評(píng)論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
主站蜘蛛池模板： 铜梁县| 灵台县| 山丹县| 岳普湖县| 兰西县| 岳西县| 通河县| 介休市| 上饶市| 惠水县| 涞水县| 湘阴县| 板桥市| 松桃| 柏乡县| 五寨县| 隆化县| 大庆市| 成安县| 玛纳斯县| 永胜县| 象州县| 法库县| 萍乡市| 绵竹市| 保亭| 扬州市| 孝昌县| 蕉岭县| 揭东县| 桂东县| 华坪县| 大洼县| 泸定县| 洮南市| 响水县| 旺苍县| 久治县| 大厂| 池州市| 中山市|