1、首先启动vb，新建一个工程，选择标准exe文件后进入窗体界面。
2、调整窗体的大小，双击工具栏中的按钮，创建command控件。
3、修改按钮的caption属性值为计算，接着双击进入代码区域，对象为command1，过程设置为click。
4、在代码区域输入代码，代码如下：
Dim a, s, b As Long
a = Val(InputBox("请输入a的值"))
s = 0
Do While a > 0
b = a Mod 10
s = s + b
a = a \ 10
Loop
Print s
5、点击运行按钮，接着点击计算按钮，并输入数值进行验证功能，这里是123进行验证，结果应该是6.
6、执行文件-保存工程命令，接着执行文件-生成工程exe命令，将文件生成可执行文件。
