Question

用vb编写程序,在文本框(text1)中输入一段文本,单机“统计”按钮,分别统计英文字数和汉字个数

用vb编写程序,在文本框(text1)中输入一段文本,单机“统计”按钮,分别统计英文字数和汉字个数编写程序,在文本框(text1)中输入一段文本,结果显示在(text2和text3)中

Answer 1

Private Sub Command1_Click()
    For i = 1 To Len(Text1.Text)
        Select Case Asc(Mid(Text1.Text, i, 1))
            Case 65 To 90, 97 To 122: a = a + 1
            Case Is < 0: b = b + 1
        End Select
    Next
    Text2.Text = a
    Text3.Text = b
End Sub