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=thisform.text1.value
n=thisform.text2.value
b（1）=thisform.text3.value
* 你这样看看 ，同时，你 b（1）,有问题，是全角的，你要写成这样 b(1)或者 b[1]
?type("m"),type("n"),type("b[1]")

b（1）=thisform.text3.value
 a（1）=m+n

结果都是字符型，但是我把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编辑过]

不用说那么多
给那个表单测试一下就清楚（只保留那几个textbox就可以）

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

那几个数组没定义
先初始化或在声明时定义数据类型

上传相关文件

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)) && 当 i 为 2-15 时，b[2]......b[15] 的值为 .F. ,提示　数据类型　问题
   a(i+1)=a(i)-c(i) &&  当 i = 15 时，i+1 = 16 提示下标超界
   s=s+d(i)
endfor
p=s/15
thisform.text4.value=p
这段代码问题还不少