早教吧作业答案频道 -->其他-->
vb阿拉伯数字变汉字a=1996现在要编写一个函数,把变量a变成一千九百九十六也就是阿拉伯数字变小写汉字!
题目详情
vb 阿拉伯数字变汉字
a=1996
现在要编写一个函数,把变量a变成 一千九百九十六
也就是阿拉伯数字变小写汉字!
a=1996
现在要编写一个函数,把变量a变成 一千九百九十六
也就是阿拉伯数字变小写汉字!
▼优质解答
答案和解析
Function xx_to_dx(xx As Double) As String '小写转大写
Dim dx As String '大写输出
Dim dw As String
Dim su As String
Dim t As Integer
dw = "角元拾佰仟万拾佰仟亿拾佰仟"
su = "壹贰叁肆伍陆柒捌玖"
Dim s As String
s = Format(xx * 100, "0")
If Len(s) > 14 Then MsgBox ("数位超过千亿,不能转为大写.")
'初始输出字符串
If Right(s, 1) "0" Then
dx = Mid$(su, Val(Right(s, 1)), 1) + "分"
Else
dx = "正"
End If
s = Left(s, Len(s) - 1)
d = 1
Do While (s "")
t = Val(Right(s, 1)): s = Left(s, Len(s) - 1)
If t = 0 Then
dx = "零" + dx
Do
If d = 2 Or d = 6 Or d = 10 Then dx = Mid$(dw, d, 1) + dx
d = d + 1
t = Val(Right(s, 1)): s = Left(s, Len(s) - 1)
Loop Until (t 0)
End If
dx = Mid$(su, t, 1) + Mid$(dw, d, 1) + dx
d = d + 1
Loop
If Right(dx, 2) = "零正" Then dx = Left(dx, Len(dx) - 2) + "正"
xx_to_dx = dx
End Function
Private Sub Form_Load()
MsgBox xx_to_dx(1999)
End Sub
Dim dx As String '大写输出
Dim dw As String
Dim su As String
Dim t As Integer
dw = "角元拾佰仟万拾佰仟亿拾佰仟"
su = "壹贰叁肆伍陆柒捌玖"
Dim s As String
s = Format(xx * 100, "0")
If Len(s) > 14 Then MsgBox ("数位超过千亿,不能转为大写.")
'初始输出字符串
If Right(s, 1) "0" Then
dx = Mid$(su, Val(Right(s, 1)), 1) + "分"
Else
dx = "正"
End If
s = Left(s, Len(s) - 1)
d = 1
Do While (s "")
t = Val(Right(s, 1)): s = Left(s, Len(s) - 1)
If t = 0 Then
dx = "零" + dx
Do
If d = 2 Or d = 6 Or d = 10 Then dx = Mid$(dw, d, 1) + dx
d = d + 1
t = Val(Right(s, 1)): s = Left(s, Len(s) - 1)
Loop Until (t 0)
End If
dx = Mid$(su, t, 1) + Mid$(dw, d, 1) + dx
d = d + 1
Loop
If Right(dx, 2) = "零正" Then dx = Left(dx, Len(dx) - 2) + "正"
xx_to_dx = dx
End Function
Private Sub Form_Load()
MsgBox xx_to_dx(1999)
End Sub
看了 vb阿拉伯数字变汉字a=19...的网友还看了以下:
有一堆苹果,十个十个数剩九个,九个九个数剩八个,八个八个数剩七个,七个七个数剩六个,六个六个数剩五 2020-04-06 …
用1 2 3 4 5 6 7 8 9 这九个数组成一个四位数乖一位数等于四位数者九个数不能重复用1 2020-05-13 …
在九个方格里,将1~9填入,使每一条直线上3个数字相加都相等,同时又是最大的数目.九个方格组成一个 2020-05-16 …
初一上册题探索与表达规律题:1.从日历中任意框出3*3九个数,这九个数的和有可能是100吗?有可能 2020-07-12 …
求数a=九分之四+十三分之六+十九分之九的整数部分.要解题思路. 2020-07-13 …
(1)9个自然数的乘积为64,这九个数分布在同一个圆周上,对其中每一数A,这个数与下面两个数B,C( 2020-10-31 …
ABCDEFGHI表示九个各不相同的不为0的自然数,这九个数排成一排,如果其中任意五个相邻的数之和都 2020-11-07 …
数字1到36,排成6乘6形式,任意圈出其中的九个数,设九个数的中心为A,用含有A的代数式来表示这九个 2020-11-20 …
已知:绝对值小于a(a大于0)的整数有九个a是什么数求这个整数的绝对值的和 2021-02-01 …
已知:绝对值小于a(a大于0)的整数有九个a是什么数求这个整数的绝对值的和 2021-02-01 …