Question

用vb编写一个用户自定义函数用于计算字符串s中的所有数字之和。 例如s="a?23bd /"时，和为5。

Answer 1

Private Sub Command1_Click()

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

  Sum = 0

  For i = 1 To Len(s)

    c = Mid(s, i, 1)

    If c >= "0" And c <= "9" Then Sum = Sum + Asc(c) - 48

  Next i

  MsgBox s & " 中所有数字的和＝ " & Sum

End Sub

追问

sum这里为什么要减48啊？

追答

这是为了把数字字符的ASCII码转为对应的数字。即“1”转为1，“2”转为2，……。

Answer 2

Function qiuhe(s) As Integer
Dim i As Integer, j As Integer, sum As Integer

i = Len(s)
sum = 0
For j = 1 To i
Dim c
c = Mid(s, j, 1)
c = Asc(c)
If (c >= 48 And c <= 57) Then
sum = sum + Int(Chr(c))
End If
Next

qiuhe = sum
End Function