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

方法/步骤

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

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

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

在代码区域输入代码，代码如下：

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

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

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

编辑于2018-04-18，内容仅供参考并受版权保护

经验备注

本文网址：https://www.5058.cn/article/48b558e3fd3e647f38c09a0c.html