一道vfp题里有一个小问题我的问题很简单,为了方便解答发个原题,我的问题是： Text1、Text2、Text3写不写命令啊?写的话怎么写呢?原题如下：2. 打开表单myform002,表单中已有二个标签（名称为Labe
来源：学生作业帮助网 编辑：六六作业网 时间：2024/12/19 12:34:42
一道vfp题里有一个小问题我的问题很简单,为了方便解答发个原题,我的问题是： Text1、Text2、Text3写不写命令啊?写的话怎么写呢?原题如下：2. 打开表单myform002,表单中已有二个标签（名称为Labe
一道vfp题里有一个小问题
我的问题很简单,为了方便解答发个原题,我的问题是： Text1、Text2、Text3写不写命令啊?写的话怎么写呢?
原题如下：2. 打开表单myform002,表单中已有二个标签（名称为Label1、Label2）,
三个文本框（名称为 Text1、Text2、Text3）,二个命令按钮, （名称分别为
Command1、Command2）,其标题文字分别为“计算”和“关闭”.具有如下功能：
（1）在文本框 Text1、Text2 中分别输入一个三位的自然数,且Text2中的
数大于 Text1中的数据,当单击“计算”按钮时,计算在这两个自然数之间满足
各数字之和为 10 的数的和,并将计算结果显示在文本框Text3中；
一道vfp题里有一个小问题我的问题很简单,为了方便解答发个原题,我的问题是： Text1、Text2、Text3写不写命令啊?写的话怎么写呢?原题如下：2. 打开表单myform002,表单中已有二个标签（名称为Labe
文本框设置value属性值为0,写代码非必需,但建议在Valid事件里写代码,对输入有效性进行检测.
即在text1的Valid事件里写以下代码 ：
IF this.value>this.Parent.text2.Value
this.Parent.text2.Value=this.value+1
ENDIF
在text2的Valid事件里写以下代码 （此段代码的重要性大于TEXT1里的代码）：
IF this.value<this.Parent.text1.Value
RETURN .f.
ENDIF
计算按钮里写 click代码：
h=0
FOR m=this.Parent.text1.Value TO this.Parent.text2.Value
cm=ALLTRIM(STR(m))
gh=0
FOR l=1 TO LEN(cm)
gh=gh+VAL(SUBSTR(cm,l,1))
ENDFOR
IF gh=10
h=h+m
ENDIF
ENDFOR
this.Parent.text3.Value=h
关闭按钮里的代码,楼主自己去完成.