PB9.0以上小写转大写

string SL,JE,M,DXJE  integer N,I,J,WSL = "零壹贰叁肆伍陆柒捌玖"  JE = "分角元拾佰仟万拾佰仟亿"  M=trim(XXJE)  N=posw(M,".")  M=replace(M,N,1,"")                   //去掉小数点  N = lenw(M)                            //字符串长度  J = N; DXJE = ""                      //置初值  For I = 1 To N     W = integer(midw(M, I, 1))          //取出一位数值     If W > 0 Then       DXJE = DXJE + midw(SL, W + 1, 1)  //数值       DXJE = DXJE + midw(JE, J, 1)      //单位     ElseIf W = 0 Then       If midw(JE, J, 1) = "万" Then          DXJE = DXJE + midw(JE, J, 1)   //万位必保       ElseIf midw(JE, J, 1) = "元" Then          If Lenw(M) = 3 Then             DXJE = DXJE + "零"         //元前零          End If          DXJE = DXJE + "元"            //元位必保          If integer(midw(M, I + 1, 1)) > 0 And len(M) > 3 Then             DXJE = DXJE + midw(SL, W + 1, 1)     //元后零          End If       ElseIf integer(midw(M, I + 1, 1)) > 0 Then //有效零          DXJE = DXJE + midw(SL, W + 1, 1)       ElseIf integer(midw(M, I)) = 0 Then        //后继全零          If J >= 7 Then DXJE = DXJE + "万"          If J >= 3 Then DXJE = DXJE + "元"          DXJE = DXJE + "整"          Exit       End If    End If    J = J - 1  Next  return DXJE   //返回值 string SL,JE,M,DXJE  integer N,I,J,WSL = "零壹贰叁肆