Public Class Form1
Private Sub Button1_Click(sender
As Object, e
As EventArgs)
Handles Button1.Click
Dim a(
30)
As Char
Dim i, j, k
As Integer
i =
0 : j =
0 : k =
0
a =
InputBox(
"请输入字符串",
"输入")
For b
As Integer =
0 To Len(a) -
1
Select Case a(b)
Case "a" To "z"
i +=
1
Case "A" To "Z"
j +=
1
Case "0" To "9"
k +=
1
End Select
Next
Label1.Text =
"小写字母： " & i &
Chr(
13) &
"大学字母： " & j &
Chr(
13) &
"数字： " &
k
End Sub
End Class
转载于:https://www.cnblogs.com/single-elephant/p/5683890.html
相关资源：vb.net小程序可以执行哦
