运行表单，在文本框text1中输入一串字符串，单击“统计”命令按钮后，在文本框Text2中显示该字符串中大写
运行表单，在文本框text1中输入一串字符串，单击“统计”命令按钮后，在文本框Text2中显示该字符串中大写字母的个数。其中text2的初值为0，编写“统计”命令按钮的C...
运行表单，在文本框text1中输入一串字符串，单击“统计”命令按钮后，在文本框Text2中显示该字符串中大写字母的个数。其中text2的初值为0，编写“统计” 命令按钮的Click事件的程序代码。
展开
展开全部
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))
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))
来自：求助得到的回答
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
