上行列车编为双数列车，下行列车编为单数列车。

在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
X=0
Do While X＜＞-1
X=Val(InputBox("请输入数据X:"))
Y=Val(InputBox("请输入数据Y:"))
If X*Y＜X+Y Then Print X，Y
Loop
End Sub
程序运行后，依次输入7，2，-3，8，-5，-10，18，-1，-1，则输出结果是 【13】 。