Question

vb编程在Text里输入一个字符串，回车后计算字符串中的数字和字母

Answer 1

Private Sub Text1_KeyPress(KeyAscii As Integer)
    Dim n As Integer
    Dim m As Integer
    n = 0
    m = 0
    
    If KeyAscii = 13 And Text1.Text <> "" Then
        For i = 1 To Len(Text1.Text)
            If Asc(UCase(Mid(Text1.Text, i, 1))) >= 65 And Asc(UCase(Mid(Text1.Text, i, 1))) <= 90 Then
                m = m + 1
            End If
            If Asc(UCase(Mid(Text1.Text, i, 1))) >= 48 And Asc(UCase(Mid(Text1.Text, i, 1))) <= 57 Then
                n = n + 1
            End If
            
        Next i
        If m = n Then
            MsgBox "有数字" & n & "个，字母" & m & "个,数字和字母个数相等"
        End If
         If m > n Then
            MsgBox "有数字" & n & "个，字母" & m & "个,字母比较多，字母比数字多" & m - n & "个"
        End If
        If m > n Then
            MsgBox "有数字" & n & "个，字母" & m & "个,数字比较多，数字比字母多" & n - m & "个"
        End If
    End If
End Sub

Answer 2