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