编写VB程序,根据用户在文本框text1中输入的字符串,统计其中数字(0~9...答:Private Sub Command1_Click()Dim i%, l%, S%, N%, T%, S1 l = Len(Text1)For i = 1 To l S1 = Asc(Mid(Text1, i, 1))Select Case S1 Case 48 To 57 N = N + 1 Case 65 To 90, 97 To 122 S = S + 1 Case Else T = T + 1 End Select Next Print N Print...