VB求教问题

来源：百度知道 编辑：UC知道 时间：2024/06/14 15:30:28
从键盘输入任意字母或者数字到文本一中，单击“统计”按钮对其进行分类统计（分别按大写字母、小谢字母、奇数、偶数进行统计）统计数据分别显示在四个标签中。
需要代码。谢谢！

先画好Command1按钮和lb_da，lb_ji，lb_ou，lb_ji四个label,和1个Text1文本框。
Private Sub Command1_Click()
Dim n As Integer
Dim t As String
Dim n_da, n_xiao, n_ji, n_ou As Integer

t = Trim(Text1.Text)
For k = 1 To Len(t)
n = Asc(Mid(t, k, 1))
If (n >= 48 And n <= 57) Then
If CInt(Chr(n)) Mod 2 = 0 Then
n_ou = n_ou + 1
Else
n_ji = n_ji + 1
End If
Else
If (n >= 65 And n <= 90) Then
n_da = n_da + 1
Else
If (n >= 97 And n <= 122) Then
n_xiao = n_xiao + 1
End If
End If
End If
Next k

lb_da.Caption = CStr(n_da)
lb_xiao.Caption = CStr(n_xiao)
lb_ou.Caption = CStr(n_ou)
lb_ji.Caption = CStr(n_ji)

End Sub