设计表单FORM4.SCX，可以在文本框中输入任意正整数后敲回车键再输入，直到输入0时结束，统计输入的这组数的个数，并显示平均值。双击表单空白处，可以关闭表单。


我添加了一个text 一个command 一个label（用来显示结果）
我把代码写在 command里面

y=0
z=0
p=0
x=thisform.text1.value
if x!=0
   y=y+1
   p=p+x
   thisform.text1.value=x+chr(13)
   z=p/y
else
    thisform.label1.caption='个数为'+str(y)+'平均值为'+str(z)
endif
   
知道这个代码有错误，但是在不知道怎么改了

x=val(thisform.text1.value)

还是不对。这样都把x改为字符型了，怎么参加计算

表单 LOAD 事件代码

PUBLIC Y,P
STORE 0 TO Y,P

COMMAND1.CLICK事件代码

IF INT(VAL(THISFORM.TEXT1.VALUE))!=0
   Y=Y+1
   P=P+INT(VAL(THISFORM.TEXT1.VALUE))
   THISFORM.TEXT1.VALUE=[]
   THISFORM.TEXT1.SETFOCUS
ELSE
   THISFORM.LABEL1.CAPTION='个数为'+STR(Y)+' 平均值为'+STR(P/Y)
ENDIF

还是和题目要求有点不符。    可以在文本框中输入任意正整数后敲回车键再输入
这个敲回车键再输入没有做到。
另外每次我按照你的代码写上去，结果我的都运行不出来，但你的都可以运行

你试试这样(我不测试了)：
在文本框的Valid事件中加入以下代码：
IF This.Value=0
   RETURN 1
ELSE
   更新标签显示
   This.Value=0
   RETURN 0
ENDIF

还是不行

我不知道你怎么操作的，我看了下5楼的表单，完全符合你的要求，回车再输入也有的

IF NKEYCODE=13
   THISFORM.LCSTR=THISFORM.LCSTR+ALLTRIM(THIS.VALUE)+IIF(ALLTRIM(THIS.VALUE)!=[0],[+],[])
   THISFORM.CAPTION=THISFORM.LCSTR
ENDIF
IF ALLTRIM(THIS.VALUE)=[0]
   THISFORM.LABEL1.CAPTION=[共输入数据 ]+TRANSFORM(OCCURS([+],THISFORM.LCSTR))+[ 个，平均值为 ]+TRANSFORM(EVALUATE(THISFORM.LCSTR)/OCCURS([+],THISFORM.LCSTR))
   THISFORM.LCSTR=[]
   THIS.VALUE=[]
   THIS.SETFOCUS
ENDIF

这人家的源码 怎么能没呢

代码散布得到处都是，他看不整齐也很正常。