如何利用vb编程求一个整数各个数位上数字之和

1、首先启动vb，新建一个工程，选择标准exe文件后进入窗体界面。

2、调整窗体的大小，双击工具栏中的按钮，创建command控件。

3、修改按钮的caption属性值为计算，接着双击进入代码区域，对象为command1，过程设置为click。

4、在代码区域输入代码，代码如下：Dim a, s, b As Longa = Val猾诮沓靥(InputBox("请输入a的值"))s = 0Do While a > 0b = a Mod 10s = s + ba = a \ 10LoopPrint s

5、点击运行按钮，接着点击计算按钮，并输入数值进行验证功能，这里是123进行验证，结果应该是6.

6、执行文件-保存工程命令，接着执行文件-生成工程exe命令，将文件生成可执行文件。