UC知道vb代码编写
来源：百度知道 编辑：UC知道 时间：2024/06/03 16:56:33
在文本框Text1中输入一个字符串，然后单击“统计”按钮Command1，则统计字符串中包含的汉字个数，并在下面的标签Label2中显示统计的结果
Private Sub Command1_Click()
Dim Str As String
c = 0
Str = Text1.Text & " "
For k = 1 To Len(Str) - 1
tmpStr = Mid$(Str, k, 1)
If Asc(tmpStr) > 127 Or Asc(tmpStr) < 0 Then '注释: 中文字符
c = c + 1
End If
Next k
Label1 = "汉字有" & c & "个"
End Sub
Private Sub Command1_Click()
Label2 = Len(Text1)
End Sub