金额数字小写转大写

代码说明：

应用背景     企业财务、出纳、资产评估师、土地评估师、房产评估师等在日常工作中经常需要金额大写的情况，这个工具将小写的数据转换为大写的数据。方便工作人员填写报表等。关键技术    采用VB编程，代码可以用到任何地方。Private Function changnum(num As Integer) As String    Select Case num    Case 0        changnum = "零"    Case 1        changnum = "壹"    Case 2        changnum = "贰"    Case 3        changnum = "叁"    Case 4        changnum = "肆"    Case 5        changnum = "伍"    Case 6        changnum = "陆"    Case 7        changnum = "柒"    Case 8&nb