真正的公农历转换类for VB(18) Else tempStr = tempStr + "十" End If Case 7 If tempStr = "零" Then tempStr = "零" Else tempStr = tempStr + "百" End If Case 8 If tempStr = "零" Then tempStr = "零" Else tempStr = tempStr + "千" End If Case 9 If tempStr = "零" Then tempStr = "亿" Else