dimension a(15),b(15),c(15),d(15)
m=thisform.text1.value
n=thisform.text2.value
 b（1）=thisform.text3.value
 a（1）=m+n
 s=0
for i=1 to 15
   d(i)=val(a(i))*0.049
   c(i)=b(i)-d(i)
   a(i+1)=a(i)-c(i)
   s=s+d(i)
endfor
p=s/15
thisform.text4.value=p
我设置了text1、2、3输入数据类型都是数值型，为什么还是提示数据类型不匹配啊？用了val（）函数也不行，请指教。

结果都是字符型，但是我把m,n,b(1)变成数值型还是不行，代码如下，请指教。
dimension a(15),b(15),c(15),d(15)
m=val(thisform.text1.value)
n=val(thisform.text2.value)
b(1)=VAL(thisform.text3.value)
for i=1 to 15
   a(1)=m+n
   s=0
   d(i)=a(i)*0.049
   c(i)=b(i)-val(d(i))
   a(i+1)=a(i)-c(i)
   s=s+d(i)
endfor
p=s/15
thisform.text4.value=p

[此贴子已经被作者于2018-9-19 14:52编辑过]

已经测试过了，就是字符型，然后我用val把他转换成数值型又测试了，还是不行，所以才来继续提问的。

找到问题了，已经解决，非常感谢！
dimension a(15),c(15),d(15)
m=val(thisform.text1.value)
n=val(thisform.text2.value)
b=VAL(thisform.text3.value)
s=0
a(1)=m+n
for i=1to 14
   d(i)=a(i)*0.049
   c(i)=b-d(i)
   a(i+1)=a(i)-c(i)
   s=s+d(i)   
endfor
d(15)=a(15)*0.049
p=(s+d(15))/15
thisform.text4.value=p