Question

vfp运行表单后 点击命令按钮 文本框 text1和text2显示结果为

a=1
s=0
n=0
k=.T.
do while k
a=a+1
do case
case mod(a,2)<>0
s=s+a
case a>10
k=.F.
case a<=10
n=n+1
end case
enddo
thisform.text1.value=str(s)
thisfrom.text2.value=str(n)
就是那个最后 s和n的值是多少

Answer 1

CLEAR x=ALLTRIM(thisform.text1.Value) y=0 FOR i=1 TO LEN(x) IF NOT ISDIGIT(SUBSTR(x,i,1)) y=y+1 ENDIF ENDFOR thisform.text2.Value =ALLTRIM(STR(y))

追问

你这是啥玩意