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

首頁(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)...

熱門(mén)圖片

猜你喜歡的新聞

猜你喜歡的關(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)注

主站蜘蛛池模板：欧美成人一区免费视频 | 依依成人综合 | 竹内纱里奈和大战黑人 | 国产一区二区免费看 | 久久精品国产久精国产 | 99最新地址 | 国产成人自拍视频在线 | 日本羞羞影院 | 欧美视频一区二区三区在线观看 | 成人午夜视频免费 | 视频一区中文字幕 | 一级黄色免费大片 | 曰韩黄色片 | 一区二区三高清 | 法国性经典xxxhd | 91 成人 | 亚洲免费看片网站 | 国产精品久久久久久久久久大牛 | 国产精品福利一区 | 99seav | 久久千人斩 | 亚洲一区二区在线 | 精品久久中文网址 | 欧美日本一 | 欧美人人干 | 在线成人免费观看www | 精品国产一区二区三 | 久久精品9| 久久久www成人免费毛片 | 毛片大全免费看 | 精品国产乱码久久久久久久 | 国产一区二区欧美 | 一日本道久久久精品国产 | 久久精品视频在线免费观看 | www日韩大片 | 九九热久久免费视频 | 国产一级一区 | 久久精品视频日本 | 国产papa| 一级做受毛片免费大片 | 男人天堂新地址 |