知识大全 用VB把数字转成中文字符串
Posted 数字
篇首语：只有受过教育的人才是自由的。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 用VB把数字转成中文字符串相关的知识，希望对你有一定的参考价值。
用VB把数字转成中文字符串 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！
根据数字的读法源码天空 写了一个把数字转成中文字符串的程序
参数一为数字
参数二为是不是反回人民币大写
参数三为是不是直接读数字 否则带有十百等单位
参数四为设置小数点后面的位数 默认为
使用方法是
t=GetChinaNum（ ） 返回 二千零五点零零零四三六
t=GetChinaNum（ True ） 返回 贰仟零伍元肆角肆分
t=GetChinaNum（ True ） 返加 二零零五点四三六
下面是程序代码
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 = 拾佰仟万拾佰仟亿拾佰仟
numshu = 零壹贰三肆伍陆柒捌玖拾
Else
numwei = 十百千万十百千亿十百千
numshu = 零一二三四五六七八九十
End If
If otherNum < And otherNum >= Then
num = Right（num ）
GetChinaNum = Left（numwei ）
End If
For i = To Len（num）
bstr = Mid（num i ）
If numOption Then
GetChinaNum = GetChinaNum + Mid（numshu Val（bstr） + ）
Else
GetChinaNum = GetChinaNum + Mid（numshu Val（bstr） + ）
If bstr = Then
If Mid（numwei Len（num） i ） = 万 Or Mid（numwei Len（num） i ） = 亿 Then
Do While Right（GetChinaNum ） = 零
GetChinaNum = Left（GetChinaNum Len（GetChinaNum） ）
Loop
GetChinaNum = GetChinaNum + Mid（numwei Len（num） i ）
End If
Else
GetChinaNum = GetChinaNum + Mid（numwei Len（num） i ）
End If
GetChinaNum = Replace（GetChinaNum 零零 零 ）
End If
Next i
If numOption = False Then
Do While Right（GetChinaNum ） = 零
GetChinaNum = Left（GetChinaNum Len（GetChinaNum） ）
Loop
End If
If isRMB Then
numrmb = 元角分
GetChinaNum = GetChinaNum + Mid（numrmb ）
If Val（num） <> otherNum Then
num = Trim（Str（Round（otherNum Val（num） ）））
For i = To Len（num）
bstr = Mid（num i ）
GetChinaNum = GetChinaNum + Mid（numshu Val（bstr） + ） + Mid（numrmb i ）
Next i
Else
GetChinaNum = GetChinaNum + 整
End If
Else
If Val（num） <> otherNum Then
If dotNum = Then dotNum =
num = Trim（CStr（Round（otherNum Val（num） dotNum）））
If GetChinaNum = Then GetChinaNum = 零
GetChinaNum = GetChinaNum + 点
For i = To Len（num）
bstr = Mid（num i ）
GetChinaNum = GetChinaNum + Mid（numshu Val（bstr） + ）
Next i
End If
End If
cha138/Article/program/net/201311/12736相关参考
用VB.NET将字节数组转换为字符串 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！ 最近我说明了
知识大全 用JavaScript判断日期、数字、整数和特殊字符
用JavaScript判断日期、数字、整数和特殊字符 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！
字符串的操作应用 [vb] ModuleModule SubMain() 定义个字符串变量 DimstrstrstrAsString 给strstr付初值 str=Hello:str
VB.NET中如何扩充字符串进行固定宽度显示 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！ 在V
VB.NET字符数据类型和其他数据类型 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！ 字符数据类
只能输入中文<inputid=inputtype=textonkeyup=value=valuereplace(/[^\\uE\\uFA]/g)>只能输入全角字符:<inputid=
VB.NET中让Textbox只能输入数字 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！ P
C＋＋把一个字符串用指针赋值给另一个字符串 以下文字资料是由(本站网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！C＋＋把一个
iPad上把怎么把作文转成电子稿？Appstore里有什么类似电脑上word文档能写作文的 以下文字资料是由(本站网www.cha138.com)小编为大家搜集整理后发
知识大全 vb编程，输入十个数字，找出最大值，并找出最大值的位置。
vb编程，输入十个数字，找出最大值，并找出最大值的位置。,vb编写程序,从键盘中输入10个整数,找出其中的最大值以及最大值所在的位置PrivateTypenumxuhaoAsIntegeriAsInt