VB题,超简单的-_-
这是老师给我们的课堂题目,小弟我学得不好
希望各位大哥鼎立相助!
题目:求一个三位数得各位数之和.
希望能把程序写出来 感谢!
参考答案:方法一
s = InputBox("输入三位数", "输入")
Sum = Val(Mid(s, 1, 1)) + Val(Mid(s, 2, 1)) + Val(Mid(s, 3, 1))
Print Sum
方法二
s = Val(InputBox("输入三位数", "输入"))
s1 = s \ 100
s2 = (s - s1 * 100) \ 10
s3 = s - s1 * 100 - s2 * 10
Sum = s1 + s2 + s3
print sum
把以上两段加入到一个事件 中就可以