国产探花免费观看_亚洲丰满少妇自慰呻吟_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ā)表
主站蜘蛛池模板： 宝鸡市| 玉屏| 黑河市| 眉山市| 靖宇县| 密云县| 常山县| 京山县| 驻马店市| 静海县| 遂川县| 巴塘县| 台南县| 包头市| 雷州市| 上饶市| 隆昌县| 婺源县| 页游| 库车县| 五华县| 同心县| 兰溪市| 丘北县| 柳河县| 滨州市| 尼木县| 喀什市| 南投县| 朝阳县| 抚顺市| 白城市| 屏边| 岐山县| 乌兰浩特市| 青龙| 策勒县| 青龙| 三门峡市| 鄯善县| 改则县|