在窗体上画一个命令按钮，然后编写如下事件过程： 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】 。