Question

vfp 如何把文本框中输入的值赋给内存变量同时在把经过计算的内存变量的值在传给另外一个文本框

以下是我计算过程，但是还是出错。我以经定义了public a,b,c,d,e 五个内存变量但是在运行到 e = a / c * 100%,d = b / c * 100%时提示缺少操作函数。我该怎么办。谢谢

replace ALL 重复差值 WITH MAX(ABS(第一次测试输出值 - 第二次测试输出值), ABS(第二次测试输出值 - 第三次测试输出值), ABS(第一次测试输出值 - 第三次测试输出值));

replace all 非线性误差 with abs((第一次测试输出值 + 第二次测试输出值 + 第三次测试输出值)/3 - 被测数据);

GO 1

a=重复差值
b=非线性误差
DO WHILE not(EOF())
skip
IF a <= 重复差值

a = 重复差值

ENDIF
IF b <= 非线性误差

b = 非线性误差

ENDIF
ENDdo
c = VAL(alltrim(thisform.text1.value,10) )

e = a / c * 100%
d = b / c * 100%
thisform.text2.value = alltrim(str(d,10))
thisform.text3.Value= ALLTRIM(STR(e,10))

THISFORM.Refresh

Answer 1

%是取余数函数，比如3%2=1，你上面的式子在%后面应该要有个除数，没有除数当然提示缺少操作参数咯。

Answer 2

aa=thisform.text1.value
aa=aa+-*/....... 此为计算过程
thisform.text2.value=aa