Dim v As Double = 12345678.69
Dim i As Integer = Math.Floor(v)
Dim T As String = Math.Round(v-i,2).ToString().SubString(2)
For n As Byte = 0 To 9
T = T.Replace(n,"零壹贰叁肆伍陆柒捌玖".SubString(n,1))
Next
Output.Show(CUNumber(i) & "点" & T)
[此贴子已经被作者于2008-10-11 18:22:41编辑过]