国产探花免费观看_亚洲丰满少妇自慰呻吟_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>