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