S=Text1.Te×t
For i=1 To Len(s)
c=Mid(s,i,1)
If c>=“0”And c<=“9”Then
m=m+1
Elself c>=“a”And c<=“z”Then
n=n+1
Else
t=t+1
End If
Next i
Label1.Caption:Str(t)
在文本框Text1输入“as674ER29,86Gu”。(不包括双引号),执行程序后,标签Label1显示:( )
微信扫码预览、分享更方便