Question

一道简单的Vb 输入一个四位数数,输出该数的千位和十位上的数字之和

Answer 1

Private Function Func(ByVal S As String) As Byte

If Len(S)4 Then Exit Function

Func=Val(Left$(S, 1)) + Val(Mid$(S, 3, 1))

End Function