下面的这个是个vfp计算器程序?请问您能帮我逐句翻译一下吗?或是将编 ...

发布网友发布时间：2024-09-27 19:42

共1个回答

热心网友时间：2024-10-21 20:49

X=ALLTRIM(thisform.text1.Value) &&获取文体框的值并赋给变量X，ALLTRIM是去除所有空格函数

IF this.Value<16 &&如果此控件（我不知道你这个是什么控件的代码。）的值小于16，则执行下面的语句。
Y=SUBSTR("0123456789.+-*/",this.Value,1) &&将0123456789.+-*/这些返一个数，就是括号最最面那个“1”控制的，从那里开始返回就看这个控件的值了，如：这个值等于5则对应该是6
thisform.text1.Value=X+ Y &&让文本框显示X变量和Y的数
ELSE &&否则
IF TYPE(thisform.text1.Value)="N" &&再如果让文本框的数是全数字的话
Y=thisform.text1.Value &&变量Y等于此数
thisform.text1.Value=ALLTRIM(STR(&Y,10,2)) &&让文本框显示变量Y且取长是10个数保留两位小数。
ELSE
thisform.text1.Value="表达式错误" &&否则（就是文本框输入的不是数字型的话）让文本框显示——表达式错误
ENDIF &&结束数据类型的判断
ENDIF &&结束长度的判断
给点分呐，这么辛苦，，提醒一点就是一定要理解其中的函数是干什么用的，你就明白了，如TYPE数据类型判断的.不明白的你还问......QQ也行316226536