真正的公农历转换类for VB(17) tempStr = "零" Else tempStr = tempStr + "百" End If Case 4 If tempStr = "零" Then tempStr = "零" Else tempStr = tempStr + "千" End If Case 5 If tempStr = "零" Then tempStr = "万" Else tempStr = tempStr + "万" End If Case 6 If tempStr = "零" Then tempStr = "零"