在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
x=0
Do Until x= -1
a=InputBox("请输人第一个数字a的值")
a=Val(a)
b=InputBox("请输入第二个数字b的值")
b=Val(b)
x=InputBox("请输入第三个数字x的值")
x=Val(x)
a=a + b + x
Loop
Print a
End Sub
在程序运行后，单击命令按钮，在对话框中分别输入5、4,8、5、8、-1，输出结果为 [9] 。

粉尘法