求救：急问下面几个语句是什么意思？？

merries

是一个金额大小写转化的程序。里面定义了一个numeric（20）变量，这个变量是什么类型的？  

下面的s[k-1,k]、 let str = str2[j,j+1] ,str1[m-1,m] clipped,str clipped
是什么意思？

我是新手，请各位高手多帮忙！！

define  arb_num numeric(20),
define  str1    char(40),
define  str2    char(20),
define  s       char(20),
define  str     char(80)

  let s=arb_num
  let str1 = "分角元拾佰仟万拾佰仟亿拾佰仟兆拾佰仟亿拾"
  let str2 = "零壹贰叁肆伍陆柒捌玖"

  let k = length(s)
  let str = "整"
  let b = 4
  let i = s[k-1,k]

if j != 1 then
      let str = str2[j,j+1] ,str1[m-1,m] clipped,str clipped
      ontinue for
    end if

carrierye

define arb_num numeric(20),     数字型长度20define str1 char(40),
define str2 char(20),
define s char(20),
define str char(80)

let s=arb_num   接收数据
let str1 = "分角元拾佰仟万拾佰仟亿拾佰仟兆拾佰仟亿拾"
let str2 = "零壹贰叁肆伍陆柒捌玖"

let k = length(s)    取它的长度
let str = "整"
let b = 4
let i = s[k-1,k] 将数字的第k-1，k位赋于i

if j != 1 then
let str = str2[j,j+1] ,str1[m-1,m] clipped,str clipped
将str2变量从第j位到j+1位，str1的第m-1位到m位，str连在一起。
clipped表示若字符串后有空格去掉。
ontinue for
end if

大梦

取子串！
看下结果就知道了！

merries

感谢楼上两位相助