一、用vb编程实现:输入人名币小写金额,显示对应的人名币大写金额

一直在用的函数，网上摘来的。通过搜索也可以找到不少。

Public Function CurrencyToStr(ByVal Number As Currency) As String

Number= Val(Trim(Number))

If Number= 0 Then CurrencyToStr="": Exit Function

Dim str1Ary As Variant, str2Ary As Variant

str1Ary= Split("零壹贰叁肆伍陆柒捌玖")

str2Ary= Split("分角元拾佰仟万拾佰仟亿拾佰仟万拾佰")

Dim a As Long, b As Long'循环基数

Dim tmp1 As String'临时转换

Dim tmp2 As String'临时转换结果

Dim Point As Long'小数点位置

If Number<=-922337203685477# Or Number>= 922337203685477# Then

Exit Function

End If

tmp1= Round(Number, 2)

tmp1= Replace(tmp1,"-","")'先去掉“-”号

Point= InStr(tmp1,".")'取得小数点位置

If Point= 0 Then'如果有小数点，最大佰万亿

b= Len(tmp1)+ 2'加2位小数

Else

b= Len(Left(tmp1, Point+ 1))'包括点加2位小数

End If

''先将所有数字替换为中文

For a= 9 To 0 Step-1

tmp1= Replace(Replace(tmp1, a, str1Ary(a)),".","")

Next

For a= 1 To b

b= b- 1

If Mid(tmp1, a, 1)<>"" Then

If b> UBound(str2Ary) Then Exit For

tmp2= tmp2& Mid(tmp1, a, 1)& str2Ary(b)

End If

Next

If tmp2="" Then CurrencyToStr="": Exit Function

''〓下面为非正式财务算法，可以去掉〓

For a= 1 To Len(tmp2)

tmp2= Replace(tmp2,"零亿","亿零")

tmp2= Replace(tmp2,"零万","万零")

tmp2= Replace(tmp2,"零仟","零")

tmp2= Replace(tmp2,"零佰","零")

tmp2= Replace(tmp2,"零拾","零")

tmp2= Replace(tmp2,"零元","元")

tmp2= Replace(tmp2,"零零","零")

tmp2= Replace(tmp2,"亿万","亿")

Next

''〓上面为非正式财务算法，可以去掉〓

If Point= 1 Then tmp2="零元"+ tmp2

If Number< 0 Then tmp2="负"+ tmp2

If Point= 0 Then tmp2= tmp2+"整"

CurrencyToStr= tmp2

End Function

二、2007年澳门一元硬币值多少人民币

1澳门元，按照2007年的汇率：1澳门元=1.035人民币。但是按政策，境外的硬币在国内的银行都是不可兑换的，所以这枚硬币是换不了钱的。但是有收藏价值，全新一枚在邮币交易市场上价值3元人民币左右。

拓展资料：

澳门元：中华人民共和国澳门特别行政区的法定货币。澳门的货币政策由澳门金融管理局管理。1澳门币可被分成100仙。

首批澳门圆于1905年发行，总额为九千圆。

澳门币在澳门和香港的民间，常被俗称为“葡币”，很多人认为“葡币”是澳门币的不恰当称呼，认为该称呼带有殖民色彩，以为“葡币”一词是“葡萄牙币”的简称，这是错误的认识。实际上“葡币”是民间对澳门元的英文单词“pataca”的音译简称。这与葡萄牙本国使用的货币无任何关联（葡国加入欧元区之前使用的是Escudo），与澳门回归前后更无关联。Pataca是澳门元特有的货币单位，不像Dollar一样用的地区特别广泛。

1966年以前澳门的货币单位叫磅，后来改为元（英文：pataca）为单位。

澳门币（Pataca）作为澳门的法定货币，已经有一个多世纪的历史。早在1905年，澳门政府将发行澳门币钞票的专有权赋予大西洋银行。1910年1月27日，首批澳门币钞票即告面世。

1澳门元等于100分。澳门流通的货币是1999年发行的，纸币面值种类有1000元、500元、100元、50元、20元、10元，铸币面值种类有10元、5元、2元、1元、5毫、2毫、1毫。

现时，澳元纸币由澳门金融管理局授权大西洋银行与中国银行澳门分行发行，硬币则由澳门金融管理局负责发行。

1980年，澳门政府成立了“澳门发行机构”，并赋予其发行澳门币钞票的专有权。从此，大西洋银行尽管继续发行钞票，但只是作为澳门发行机构的代理。1989年7月1日，澳门货币暨汇兑监理署成立，政府收回了澳门币的发钞权，但大西洋银行仍为澳门的发钞银行。1995年10月16日，澳门政府在给大西洋银行续约的同时，又委任中国银行﹙澳门分行﹚作为第二家发钞行。自此之后，澳门的发钞银行由一家变成两家，但发钞权一直为政府所有。澳门特别行政区政府成立后情况亦然。

参考资料：澳门币-百度百科

三、vbzk收入人民币,什么意思

这样的情况是不是相关的付款收入，已经被以现金的形式提走，并且办理的是个人业务。

如境外企业确无人民币收入偿还境内银行境外人民币贷款，境内代理行或境外人民币清算行与参加行可为境外企业偿还境内银行境外人民币贷款所产生的跨境人民币结算需求办理人民币购售业务。境内银行可为境外企业偿还本。

四、1966年意大利100的硬币值多少钱

这是意大利的流通硬币，面额100意大利里拉，发行时间：1975年。硬币背面是罗马神话中的谷物丰收女神。“REPVBBLICA ITALIANA”是意大利语“意大利共和国”的意思。意大利在2002年开始使用欧元，意大利里拉正式退出流通。（按当时汇率，100意大利里拉仅折合4角人民币）。不过有收藏价值，目前在钱币收藏市场，全新品相的意大利100里拉硬币价值6——7元/枚。