Question

求一道vfp上机题。。。。很急啊。。。

设计下图所示表单，文件名myform3.scx：，各控件的大小、颜色、字体、字号等属性由考生自定。其中，

(1)表单的标题：考生自己的考号和姓名；
(2)该表单运行后，可以在文本框TEXT1中输入一串字符，单击“统计个数”命令按钮，则在标签LABEL5，LABEL6，LABEL7中分别显示数字，大写字符，小写字符的个数，如图所示。

Answer 1

*“统计个数”命令按钮 click 代码
s=alltrim(thisform.text1.value)
L=len(s)
Ls5=0
Ls6=0
Ls7=0
for i = 1 to L
a=substr(s,i,1)
do case
case asc(a)>=48 and asc(a)<=57
Ls5=Ls5+1
case asc(a)>=65 and asc(a)<=90
Ls6=Ls6+1
case asc(a)>=97 and asc(a)<=122
Ls7=Ls7+1
endcase
endfor
thisform.label5.caption=alltrim(str(ls5))
thisform.label6.caption=alltrim(str(ls6))
thisform.label7.caption=alltrim(str(ls7))