如何写一个函数，

来源：百度知道 编辑：UC知道 时间：2024/06/19 14:54:43
次函数的功能是统计读入的字符串的字母空格数字的个数，不要球统计其他字符的个数，然后读入一个字符串并将结果输出

vb6.0写的:
给一个用过程调用的:

Function gesu(st As String, su() As Integer) As Long
Dim i As Integer, j As Integer, k As Integer
Dim n As Long
gesu = Len(st)
For n = 1 To gesu
st1 = Mid(st, n, 1)
If Asc(st1) >= 48 And Asc(st1) <= 57 Then i = i + 1
If (Asc(st1) >= 65 And Asc(st1) <= 90) Or (Asc(st1) >= 97 And Asc(st1) <= 122) Then j = j + 1
If st1 = " " Then k = k + 1
Next
su(0) = i
su(1) = j
su(2) = k
End Function

Private Sub Command1_Click()
Dim a(2) As Integer
Print " 总个数:"; gesu(Text1, a) '调用
Print "数字个数:"; a(0)
Print "字母个数:"; a(1)
Print "空格个数:"; a(2)

End Sub

返回数组调用:
Function gesu1(st As String)
Dim i As Integer, j As Integer, k As Integer
Dim n As Long
Dim su(2) As Integer
For n