VB輔導(dǎo):用VB把數(shù)字轉(zhuǎn)成中文字符串

根據(jù)數(shù)字的讀法，考試大提示寫(xiě)了一個(gè)把數(shù)字轉(zhuǎn)成中文字符串的程序
    參數(shù)一為數(shù)字
    參數(shù)二為是不是反回人民幣大寫(xiě)
    參數(shù)三為是不是直接讀數(shù)字，否則帶有十百等單位
    參數(shù)四為設(shè)置小數(shù)點(diǎn)后面的位數(shù)，默認(rèn)為4
    使用方法是
    t=GetChinaNum(20005.000436, , , 7)’返回 “二千零五點(diǎn)零零零四三六”
    t=GetChinaNum(2005.436, True, , 7)’返回“貳仟零伍元肆角肆分”
    t=GetChinaNum(2005.436, , True, 7)’返加“二零零五點(diǎn)四三六”
    下面是程序代碼
    Function GetChinaNum(otherNum As Double, Optional isRMB As Boolean, Optional numOption As Boolean, Optional dotNum As Integer) As String
    On Error Resume Next
    num = Trim(Str(Int(otherNum)))
    If isRMB Then
    numwei = "拾佰仟萬(wàn)拾佰仟億拾佰仟"
    numshu = "零壹貳叁肆伍陸柒捌玖拾"
    Else
    numwei = "十百千萬(wàn)十百千億十百千"
    numshu = "零一二三四五六七八九十"
    End If
    If otherNum < 20 And otherNum >= 10 Then
    num = Right(num, 1)
    GetChinaNum = Left(numwei, 1)
    End If
    For i = 1 To Len(num)
    bstr = Mid(num, i, 1)
    If numOption Then
    GetChinaNum = GetChinaNum + Mid(numshu, Val(bstr) + 1, 1)
    Else
    GetChinaNum = GetChinaNum + Mid(numshu, Val(bstr) + 1, 1)
    If bstr = "0" Then
    If Mid(numwei, Len(num) - i, 1) = "萬(wàn)" Or Mid(numwei, Len(num) - i, 1) = "億" Then
    Do While Right(GetChinaNum, 1) = "零"
    GetChinaNum = Left(GetChinaNum, Len(GetChinaNum) - 1)
    Loop
    GetChinaNum = GetChinaNum + Mid(numwei, Len(num) - i, 1)
    End If
    Else
    GetChinaNum = GetChinaNum + Mid(numwei, Len(num) - i, 1)
    End If
    GetChinaNum = Replace(GetChinaNum, "零零", "零")
    End If
    Next i
    If numOption = False Then
    Do While Right(GetChinaNum, 1) = "零"
    GetChinaNum = Left(GetChinaNum, Len(GetChinaNum) - 1)
    Loop
    End If
    If isRMB Then
    numrmb = "元角分"
    GetChinaNum = GetChinaNum + Mid(numrmb, 1, 1)
    If Val(num) <> otherNum Then
    num = Trim(Str(Round(otherNum - Val(num), 2)))
    For i = 2 To Len(num)
    bstr = Mid(num, i, 1)
    GetChinaNum = GetChinaNum + Mid(numshu, Val(bstr) + 1, 1) + Mid(numrmb, i, 1)
    Next i
    Else
    GetChinaNum = GetChinaNum + "整"
    End If
    Else
    If Val(num) <> otherNum Then
    If dotNum = 0 Then dotNum = 4
    num = Trim(CStr(Round(otherNum - Val(num), dotNum)))
    If GetChinaNum = "" Then GetChinaNum = "零"
    GetChinaNum = GetChinaNum + "點(diǎn)"
    For i = 2 To Len(num)
    bstr = Mid(num, i, 1)
    GetChinaNum = GetChinaNum + Mid(numshu, Val(bstr) + 1, 1)
    Next i
    End If
    End If
    End Function