Question

vfp表单题目

1。在文本框text1中输入任意一串字符，按下命令按钮，就会统计处字符串中大写字母，小写字母，数字字符的个数。并将结果分别在text2,text3,text4中，编写命令按钮代码
2。在文本框1中输入一组不为0的数字，当输入0时结束，找出这组数中的最大数和最小数，并分别输出在文本框2，3 中，编写命令按钮的代码

Answer 1

1
s=allt(thisform.text1.value)
n=0
l=0
p=0

i=len(s)
for j=1 to i
ss=subs(s,j,1)
do case
case ss>="0" and ss<="9"
n=n+1
case ss>="A" and ss<="Z"
p=p+1
case ss>="a" and ss<="z"
l=l+1
endcase
endfor

? n,l,p

2
s=allt(thisform.text1.value)
i=at('0',s)
if i>0 then
s=left(s,i-1)
endif
max=""
min=""
i=len(s)
for j=1 to i
ss=subs(s,j,1)
if max<ss then
max=ss
endif
if min>ss then
min=ss
endif

endfor

?max,min

Answer 2

第一题：
s=alltrim(thisform.text1.value)
b=len(s)
daxie=0
xiaoxie=0
shuzhi=0
dimension A(b)
for i=1 to b
A(i)=asc(substr(s,i,1))
if A(i)>=48 and A(i)<=57
shuzhi=shuzhi+1
endif
if A(i)>=65 and A(i)<=90
daxie=daxie+1
endif
if A(i)>=97 and A(i)<=122
xiaoxie=xiaoxie+1
endif
endfor
thisform.text2.value=alltrim(str(daxie))
thisform.text3.value=alltrim(str(xiaoxie))
thisform.text4.value=alltrim(str(shuzhi))