在窗体上画一个命令按钮，然后编写如下事件过程： PrivateSubCommand1_Click（） x=0 DoUnt

在窗体上画一个命令按钮，然后编写如下事件过程：

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】 。