Question

VB统计次数

额，label中会出现3种文字，想在下面用另外3个标签显示3中文字出现的次数
可以多次点击，就是3个中文字可以出现上百次

Answer 1

Private Sub Command1_Click()
For i = 1 To Len(Label1.Caption)
a = Mid(Label1.Caption, i, 1)
If Asc(a) < 0 Then zw = zw + 1
If IsNumeric(a) = True Then sz = sz + 1
If Asc(a) >= 65 And Asc(a) <= 90 Then yw = yw + 1
If Asc(a) >= 97 And Asc(a) <= 122 Then yw = yw + 1
Next
Label2.Caption = "中文" & zw & "个"
Label3.Caption = "数字" & sz & "个"
Label4.Caption = "英文" & yw & "个"
End Sub

追问

给点适当的解释行不，看得懂的可以给分

追答

Private Sub Command1_Click()
For i = 1 To Len(Label1.Caption)
a = Mid(Label1.Caption, i, 1) 截取label1里每一个字符
If Asc(a) = 65 And Asc(a) =65 ，则是大写英文
If Asc(a) >= 97 And Asc(a) =97 ，则是小写写英文
Next
Label2.Caption = "中文" & zw & "个" 输出结果
Label3.Caption = "数字" & sz & "个"
Label4.Caption = "英文" & yw & "个"
End Sub

追问

额，现在我label中会出现的3种字是，赢，输，跟平手，我必须统计出他们出现的次数，分别用3个标签显示，貌似你的那个对我没用处。。。

追答

哦，Private Sub Command1_Click()
Dim jg(1 To 3)
Dim qk(1 To 3)
qk(1) = "赢"
qk(2) = "输"
qk(3) = "平"
For j = 1 To 3
For i = 1 To Len(Label1.Caption)
a = InStr(i, Label1.Caption, qk(j))
If a = 0 Then
Exit For
Else
jg(j) = jg(j) + 1
i = a
End If
Next
Next
Label2.Caption = qk(1) & jg(1) & "个"
Label3.Caption = qk(2) & jg(2) & "个"
Label4.Caption = qk(3) & jg(3) & "个"
End Sub

Answer 2

喔，这个有什么的呢，你就用三个整数来统计就好了哈

追问

要是那么简单就好了，写出代码哦

追答

当然的哈，那个是简单的呢