第1个回答 推荐于2016-09-06
给你个框架,自己改改
Dim x As String = TextBox1.Text
Dim count As Integer = x.Length
Dim shuzi As Integer = 0
Dim zifu As Integer = 0
Dim qita As Integer = 0
For i As Integer = 1 To count
If IsNumeric(x.Substring(i)) Then
shuzi = +1
Else
qita = +1
End If
Next本回答被提问者采纳