Question

用access数据库编写一个程序 从键盘输入一行字符,分别统计出其中字母、数字和其他字符的个数

急用。。谢谢了

Answer 1

在某个窗体建一个文本框Text1
在按钮单击代码中粘贴下面代码
Private Sub Command2_Click()
Dim I As Integer
Dim txt As String
Dim atxt As String
Dim ascii As Integer
Dim intLen As Integer
Dim intChar As Integer
Dim intNum As Integer
Dim intOther As Integer
txt = Text1
intLen = Len(txt)

For I = 1 To intLen
atxt = Mid(txt, I, 1)
ascii = Asc(atxt)
Select Case ascii
Case 65 To 90
intChar = intChar + 1
Case 48 To 57
intNum = intNum + 1
Case 97 To 122
intChar = intChar + 1
Case Else
intOther = intOther + 1
End Select
Next I

MsgBox ("字母" & intChar & "个，数字" & intNum & "个，其他" & intOther & "个")

End Sub