在窗体上画一个命令按钮，然后编写如下事件过程：
　　Private Sub Command1_Click()
　　　　x=0
　　　　Do Until x=-1
　　　　　a=lnputBox("请输入第一个数字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】　。

稳态学说