麻豆小视频在线观看_中文黄色一级片_久久久成人精品_成片免费观看视频大全_午夜精品久久久久久久99热浪潮_成人一区二区三区四区

首頁 > 學院 > 開發設計 > 正文

將阿拉伯數字轉成中文字的程式

2019-11-18 17:34:55
字體：大 中 小
來源：轉載
供稿：網友
一個Form
一個TextBox
一個Label

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

請建立一個新專案，并在表單中放入上述物件，再把以下程式碼復制到表單的程式
碼視窗，最後按下F5來執行。

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

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 91成人免费看 | 狠狠操人人干 | 欧美一级特黄aaaaaaa什 | 久久久精品精品 | 午夜视频中文字幕 | 免费a级黄色片 | 国产精品一区视频 | 成人免费看毛片 | 免费看真人a一级毛片 | 国产一区二区三区网站 | 欧美人禽 | 成人毛片av在线 | 国产精品成人久久 | 国产精品99久久久久久大便 | 亚洲国产女同久久 | 精品中文视频 | 竹内纱里奈和大战黑人 | 亚洲情av | 久久国产精品免费视频 | 欧美性受xxxx人人本视频 | 欧美va亚洲 | xxxxxx免费 | 69性欧美高清影院 | 99视频在线观看视频 | 成人在线观看一区 | 国产精品区一区二区三区 | 中文字幕在线成人 | 日韩视频区 | 九九热精 | 免费毛片儿| 毛片在线免费观看网址 | 国产精品9191 | a级高清免费毛片av在线 | xxxx69hd一hd| 免费观看一级黄色片 | av电影免费在线看 | 5a级毛片| 日韩精品中文字幕在线观看 | 国产精品中文在线 | julieann艳星激情办公室 | 成人视屏网站 |