Question

vb定义一个函数，输入字符串，将字符串中的数字求和，如“s1g3hj”=4，zd3gh=3。急求啊～

求大神解答～

Answer 1

在页面中加入text1,text2,和一个按钮，代码如下：

Private Sub Command1_Click()
Text2.Text = 0
For i = 1 To Len(Text1.Text)
If IsNumeric(Mid(Text1.Text, i, 1)) Then Text2.Text = Int(Text2.Text) + Int(Mid(Text1.Text, i, 1))
Next
End Sub

Answer 2

Private Sub Command1_Click()
For I = 1 To Len(Text1.Text)
a = a + Val(Mid(Text1.Text, I, 1))
Next I
Text2.Text = a
End Sub

Answer 3

如果是 s123gh 是 1+2+3=6 呢？还是 123？