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

<span id="pymng"></span>

<span id="pymng"><th id="pymng"></th></span>

<td id="pymng"></td>

<noscript id="pymng"></noscript>

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

人民幣小寫(xiě)轉(zhuǎn)大寫(xiě)

2019-11-18 17:50:43

字體：大中小

來(lái)源：轉(zhuǎn)載

供稿：網(wǎng)友

->PublicFunctionZDX(XAsCurrency)AsString
DimlnPAsInteger
DimCase2
Prc=Replace(Prc,".","")
EndSelect
Zhen=False
ExitFor
EndIf
Nexti
IfZhenThenPrc=Prc "00"
lnP=Len(Prc)
Fori=1TolnP
Tmp=Str(Mid(Prc,i,1))&Tmp
Nexti

ZDX=""
fy=1
Fori=1TolnP
Xx=Mid(Tmp,i,1)
Dx=Mid(China,i,1)

IfXx<>"零"Then
ZDX=Xx&Dx&ZDX
f=1
Else
Ifi=3Then
ZDX=Dx&ZDX
EndIf

Ifi=7Then
ZDX=Dx&ZDX
EndIf
IffThen
ZDX="零"&ZDX
EndIf
f=0
EndIf
Nexti
IfZhenThenZDX=ZDX "正"
ZDX=Replace(ZDX,"零萬(wàn)","萬(wàn)")
ZDX=Replace(ZDX,"零元","元")

EndFunction->

上一篇：用VB實(shí)現(xiàn)鼠標(biāo)的隱藏

下一篇：在VB5中將英文字母及阿拉伯?dāng)?shù)字旋轉(zhuǎn)任意角度

學(xué)習(xí)交流

索泰發(fā)布一款GTX 1070 Mini迷你版本:小機(jī)

索泰發(fā)布一款GTX 1070 Mini迷你版本:小機(jī)箱大愛(ài)...

熱門圖片

猜你喜歡的新聞

猜你喜歡的關(guān)注

新聞熱點(diǎn)

榮耀總裁趙明烏鎮(zhèn)演講：榮耀首款5G手機(jī)V30下月發(fā)布

2019-10-23 09:17:05

搜狐張朝陽(yáng)：回歸媒體是搜狐重新崛起的關(guān)鍵

2019-10-21 09:20:02

華為輪值董事長(zhǎng)郭平：虛擬技術(shù)創(chuàng)造現(xiàn)實(shí)價(jià)值

2019-10-21 09:00:12

滴滴英文服務(wù)上線兩周年用戶已超200萬(wàn)

2019-09-26 08:57:12

華為推出全球至快AI訓(xùn)練集群Atlas900

2019-09-25 08:46:36

馬斯克：特斯拉正組建中國(guó)技術(shù)團(tuán)隊(duì)

2019-09-25 08:15:43

疑難解答

圖片精選

網(wǎng)友關(guān)注

主站蜘蛛池模板：白河县| 遵义市| 防城港市| 深州市| 普陀区| 临安市| 苍南县| 南投市| 浦北县| 和静县| 大田县| 岗巴县| 高邮市| 永靖县| 巫山县| 团风县| 彭山县| 本溪| 南皮县| 石家庄市| 建水县| 洞口县| 淮北市| 运城市| 隆子县| 江山市| 芦山县| 礼泉县| 台东县| 茂名市| 八宿县| 黎城县| 富裕县| 北海市| 花垣县| 新邵县| 西宁市| 定南县| 宣汉县| 周口市| 准格尔旗|

<noscript id="uqz6z"><tbody id="uqz6z"></tbody></noscript>

<style id="uqz6z"></style>