VB题,超简单的-_-

来源：百度知道 编辑：UC知道 时间：2024/05/24 20:53:07
这是老师给我们的课堂题目,小弟我学得不好
希望各位大哥鼎立相助!
题目:求一个三位数得各位数之和.
希望能把程序写出来 感谢!

方法一
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

把以上两段加入到一个事件 中就可以

a = InputBox("输入一个三位数")
b = Val(Mid(a, 1, 1)) + Val(Mid(a, 2, 1)) + Val(Mid(a, 3, 1))
Print "这个三位数各位数之和为" & b

VB入门教程
http://www.hlib.cn/search.asp?keyword=vb+%C8%EB%C3%C5

get(a)
s=0
for i=1 to 3
s=s+a nod 10
a=a div 10
endfor
@10,10 say "s=",s