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

虚心求教123 1年前 已收到1个回答 举报

斯万 幼苗

共回答了15个问题采纳率:93.3% 举报

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

1年前

3
可能相似的问题
Copyright © 2024 YULUCN.COM - 雨露学习互助 - 16 q. 0.027 s. - webmaster@yulucn.com