vb怎样小写人民币转大写,例如:28.30转换为零仟零伯贰拾捌圆叁角零分

我见过这样的程序，等找到了再回答你

一时找不到那本书了，所以自己写了一个，已经测试，可用。
命名可能不是太规范，你可以再做一些修整。
源程序如下：
Option Explicit

Public Function NumberToCharacter(number As String) As String
'完成转换的主函数
Dim Pos_Point As Long '记录小数点的位置
Dim curNum As String '记录当前处理的数字
Dim zhengshu As String '记录整数部分
Dim shuduan As String '截取某一个数据段
'检索小数点的位置
Pos_Point = InStr(number, ".")
'处理小数部分
If Pos_Point = 0 Then
'没有小数点，将小数点设置在最末尾
Pos_Point = Len(number)
ElseIf Len(number) = Pos_Point Then
'以小数点结尾，不作处理
ElseIf Len(number) = Pos_Point + 1 Then
'一位小数，直接翻译为角
curNum = Right(number, 1)
NumberToCharacter = NumToChr(curNum) & "角"
ElseIf Len(number) = Pos_Point + 2 Then
'取第一位
curNum = Right(number, 1)
'若第一位为零，则不作处理