Question

用VB编写程序，在文本框1中输入一段文本，单击“统计”按钮，分别统计英文字母和数字符的个数并显示出来

求大神尽快给代码，谢谢

Answer 1

Private Sub Command1_Click()
   Dim sz As Integer, zm As Integer
   For I = 1 To Len(Text1.Text)
      Select Case Mid(Text1.Text, I, 1)
         Case "A" To "Z", "a" To "z"
            zm = zm + 1
         Case "0" To "9"
            sz = sz + 1
      End Select
    Next I
    Text2.Text = "字母的个数为：" & zm
    Text3.Text = "数字的个数为：" & sz
         
End Sub