中日兑换人民币转换器（人民币转换器）
大家好,飞飞今天来为大家解答以下的问题，关于中日兑换人民币转换器，人民币转换器这个很多人还不知道,那么下面让我带着大家一起来看看吧！
Private Sub Command1_Click()Dim lon As LongDim ll As LongDim number As LongDim Bn() As VariantDim An() As VariantDim isO As LongBn() = Array("零", "壹", "贰", "叁", "肆", "伍", "陆", "柒", "捌", "玖")An() = Array("", "拾", "佰", "仟", "万", "拾", "佰", "仟")If Val(Text1.Text) >= 10000000 Then MsgBox "暂时不能换超过仟万位" Exit SubEnd Ifnumber = Val(Text1.Text)lon = 1ll = 1While number >= 10 number = number / 10 lon = lon + 1 ll = ll * 10Wendnumber = Val(Text1.Text)Text2 = ""For i = 1 To lon If (number ll) <> 0 Then Text2 = Text2 & Bn(number ll) Text2 = Text2 & An(lon - i) isO = 1 Else If isO = 1 Then If (lon - i) Mod 4 = 0 Then If Right(Text2, 1) = "零" Then Text2 = Left(Text2, Len(Text2.Text) - 1) & An(lon - i) isO = 1 End If Else Text2 = Text2 & Bn(number ll) isO = 0 End If Else If (lon - i) Mod 4 = 0 Then If Right(Text2, 1) = "零" Then Text2 = Left(Text2, Len(Text2.Text) - 1) & An(lon - i) isO = 1 End If End If End If End If number = number Mod ll ll = ll / 10Next iEnd Sub（不明白Q我）。
本文分享完毕，希望对大家有所帮助哦。
版权声明：本文由用户上传，如有侵权请联系删除！