问题在下面了

设原长方体的长，宽x,y.截去后表面积减少224平方厘米，可知(3+4)*x*y=224则有x*y=32.由於成为正方体，则又有x=y=32的平方跟(我打不出来)高=x+3+4 就算出来啦 !
不好意思 忘了考虑4个面，我说怎麼会有根号呢..

Private Sub Command1_Click()
Dim a
For a = 1 To 20
If a * 7 * 4 = 224 Then Print a * a * (a + 7)
Next a
End Sub

运行结果是960
这样的题目用vb来做真有点莫名其妙

Private Sub Form_Load()
Dim c As Single, sun As Single
'根据题意列出方程：
'a -3 = b - 4
'c = b - 4
'2 * a * b + 2 * a * c + 2 * b * c = 2 * (a - 3) * (b - 4) + 2 * (a - 3) * c + 2 * (b - 4) * c + 224
'得出b = c + 4
'a = c + 3
'2 * (c + 4) * (c + 3) + 2 * (c + 4) * c + 2 * (c + 3) * c = 2 * (c + 1) * (c - 1) + 2 * (c + 1) * c + 2 * (c - 1) * c + 224
'解之得
c = 200 / 20
sun = (c + 4) * (c + 3) * c

Label1.Caption = "体积=" & sun & "立方厘米"
End Sub