亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb

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

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

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

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb
美女扒开尿口让男人操亚洲视频网站| 亚洲国产欧美一区二区三区久久| 欧美在线免费观看| 亚洲激情国产精品| 精品久久久视频| 永久免费看mv网站入口亚洲| 午夜免费久久久久| 亚洲欧美一区二区三区四区| 欧美成人精品在线视频| 日本欧美黄网站| 亚洲a成v人在线观看| 亚洲国产成人精品女人久久久| 久久久成人av| 欧美国产欧美亚洲国产日韩mv天天看完整| 成人在线一区二区| 97精品欧美一区二区三区| 最好看的2019的中文字幕视频| 亚洲精品欧美一区二区三区| 亚洲天堂免费视频| 91国产高清在线| 日本午夜人人精品| 成人黄色中文字幕| 欧美性猛交xxxxx水多| 久久久久久久久久久亚洲| 视频在线观看99| 欧洲日韩成人av| 亚州精品天堂中文字幕| 亚洲天堂男人天堂| 欧美性20hd另类| 日韩精品久久久久久福利| 久久人人爽人人爽爽久久| 国产精品尤物福利片在线观看| 欧美交受高潮1| 91九色国产在线| 国产精品日韩欧美| 国产一区二区在线免费| 欧美日韩电影在线观看| 久久久久亚洲精品| 欧美激情在线视频二区| 久久久久久国产精品美女| 中文字幕不卡在线视频极品| 久久影院模特热| 日韩欧美在线字幕| 国产噜噜噜噜噜久久久久久久久| 中文字幕欧美日韩精品| 97在线免费观看视频| 不卡av电影在线观看| 亚洲一级免费视频| 久久精品国产2020观看福利| www高清在线视频日韩欧美| 精品女厕一区二区三区| 色综合亚洲精品激情狠狠| 日本a级片电影一区二区| 亚洲人成电影网站色…| 狠狠操狠狠色综合网| 国产精品免费久久久久久| 欧美极品美女视频网站在线观看免费| 91精品国产自产在线老师啪| 91精品国产91久久久久久久久| 精品国产31久久久久久| 成人午夜激情免费视频| 欧美激情亚洲精品| 日韩av第一页| 精品久久在线播放| 日韩中文字幕久久| 国产亚洲欧美aaaa| 亚洲国产精品va在看黑人| 欧美日本在线视频中文字字幕| 日韩成人小视频| 日韩欧美第一页| 亚洲午夜未删减在线观看| 狠狠色香婷婷久久亚洲精品| 成人精品一区二区三区| 成人乱色短篇合集| 亚洲一区二区免费在线| 日韩成人中文电影| 欧美成人免费视频| 日韩av最新在线| 日韩在线观看电影| 午夜精品久久久久久久白皮肤| 性欧美暴力猛交69hd| 一区二区三区四区在线观看视频| 国产精品专区一| 日韩少妇与小伙激情| 日韩一区二区精品视频| 5566成人精品视频免费| 亚洲女人被黑人巨大进入| 欧美在线观看www| 日本精品性网站在线观看| 欧美成人免费在线观看| 国模叶桐国产精品一区| 精品精品国产国产自在线| 亚洲精品丝袜日韩| 欧美成人免费一级人片100| 午夜精品视频在线| 亚洲最大成人免费视频| 午夜精品福利在线观看| 最近2019年好看中文字幕视频| 国产丝袜一区二区三区免费视频| 国产97色在线| 日韩精品视频在线免费观看| 亚洲精品国产精品国自产在线| 欧美日韩爱爱视频| 亚洲精品wwww| 久久精品色欧美aⅴ一区二区| 久久91精品国产91久久跳| 一个人看的www久久| 亚洲第一天堂无码专区| 亚洲香蕉av在线一区二区三区| 国产精品亚洲美女av网站| 国产精品a久久久久久| 成人免费高清完整版在线观看| 尤物99国产成人精品视频| 亚洲欧美中文另类| 欧美日韩国产二区| 自拍偷拍亚洲一区| 91在线网站视频| 亚洲直播在线一区| 国内偷自视频区视频综合| 91伊人影院在线播放| 国产精品爱啪在线线免费观看| 日本精品一区二区三区在线播放视频| 亚洲成人aaa| 欧美视频中文在线看| 国产精品美女免费看| 国产成人在线一区二区| 精品国产鲁一鲁一区二区张丽| 亚洲激情中文字幕| 久久99热这里只有精品国产| 亚洲国产成人在线播放| 精品色蜜蜜精品视频在线观看| 亚洲午夜色婷婷在线| 中文字幕亚洲欧美日韩2019| 好吊成人免视频| 国产亚洲视频在线观看| 色综合久久久久久中文网| 亚洲自拍高清视频网站| 欧美激情第一页xxx| 久久久成人精品| 精品久久久国产| 一区二区欧美日韩视频| 一本色道久久综合狠狠躁篇的优点| 国产精自产拍久久久久久蜜| 狠狠色狠色综合曰曰| 最近2019中文字幕第三页视频| 爽爽爽爽爽爽爽成人免费观看| 国产免费久久av| 久久久久久久激情视频| 欧美影院在线播放| 97视频在线观看亚洲| 中文字幕欧美精品日韩中文字幕| 久久夜色精品国产欧美乱| 亚洲第一色中文字幕| 欧美美最猛性xxxxxx| 日韩av不卡在线| 亚洲精品免费一区二区三区| 久久精品中文字幕一区| 91精品国产综合久久香蕉| 国产91在线高潮白浆在线观看| 亚洲第一福利视频| 亚洲国产成人精品女人久久久| 亚洲高清久久久久久| 国产亚洲欧洲黄色| 久久99久国产精品黄毛片入口|