求教，碰到小朋友的一道数学题，想用VB去求解，帮忙看看程序

Dim A As Integer, B As Integer, C As Integer, D As Integer
For A = 1 To 99
For B = 1 To 99
For C = 1 To 99
For D = 1 To 99
If A - B = 9 And A + C = 12 And B + D = 2 And C - D = 14 Then
Exit For
End If
Next
Next
Next
Next
Picture1.Print A, B, C, D

一运行就崩溃，感觉穷举计算量太大

首先这道题没答案

循环 里面加doevents

还有你这不是个方程组吗。。。

四元一次方程组的求解矩阵：
１　－１　　０　　０　　９　　　　　１　　０　－１　　０　　９
１　　０　　１　　０　　12　　→　　０　　１　　１　　０　　３
０　　１　　０　　１　　２　　　　　０　　０　　１　－１　　１
０　　０　　１　－１　　14　　　　　０　　０　　１　－１　　14
其系数行列式的值为零，因此方程无解。

不懂帮顶