if val(thisform.text2.value)>val(thisform.text3.value)
    messagebox('编号输入有误，请重新输入！',0+64,'操作提示')
    thisform.text3.value=""
else
    tj1=val(alltri(thisform.text2.value))
    tj2=val(alltri(thisform.text3.value))
    for n=tj1 to tj2
      wjm="sbll"+alltri(n)+".rar"       提示这段代码有问题
      wjm1="sbll"+alltri(n)
      if file("&wjm")
           RUN /N7 WinRAR.exe x -ibck -r -k -o+ -y -hp123  &wjm &wjm1
           ml=&wjm1+"\sbsj\"+alltri(n)+"\jcxx"+alltri(n)+".dbf"
           ml1=&wjm1+"\sbsj\"+alltri(n)+"\xlxx"+alltri(n)+".dbf"
           ml2=&wjm1+"\sbsj\"+alltri(n)+"\gzjl"+alltri(n)+".dbf"
           ml3=&wjm1+"\sbsj\"+alltri(n)+"\jlxx"+alltri(n)+".dbf"  
      endif
endif
运行后总是提示“函数参数的值、类型或数目无效。”

找到原因了。wjm="sbll"+alltri(str(n))+".rar"      
            wjm1="sbll"+alltri(str(n))

自己找到原因最好，说明纠错的能力提高了。

数值没有转换成字符！

既然直接使用TextBox的数值，就不必用字符串转换。