Question

编写程序，从键盘输入若干个字符分别统计出字母，数字，空格，其他字符的个数，当输入回车键时结束。

Answer 1

Private Sub Command1_Click()

Dim s$, i#, zm#, sz#, kg#, zf#

s = InputBox("请输入一个字符串：")

For i = 1 To Len(s)

  If Mid(s, i, 1) >= "A" And Mid(s, i, 1) <= "Z" Or Mid(s, i, 1) >= "a" And Mid(s, i, 1) <= "z" Then

    zm = zm + 1

  Else

    If Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9" Then

      sz = sz + 1

    Else

      If Mid(s, i, 1) = " " Then kg = kg + 1 Else zf = zf + 1

    End If

  End If

Next i

Print "输入的字符串是:'" & s & "'"

Print "字母:"; zm

Print "数字:"; sz

Print "空格:"; kg

Print "其它字符:"; zf

End Sub

追问

设计一个函数，对传递它的字符进行判断，若是英文则返回该字母对应的ASCII值。

求解

追答

Function isEng(c As String) As Integer
c1 = Mid(c, 1, 1)
If c1 >= "A" And c1 = "a" And c1 <= "z" Then isEng= Asc(c1) Else isEng = -1
End Function
函数，对传递它的字符进行判断，若是英文则返回该字母对应的ASCII值，否则返回-1。