治腰椎骨质增生的价格:从1000到9999之间,能完全开方,且第一位与第三位和为12,第二位与第四位积为24的所有数的和`

Dim a As Integer
Dim a1 As Integer
Dim a2 As Integer
Dim a3 As Integer
Dim a4 As Integer
Dim sum As Integer = 0
For a = 1000 To 9999
a1 = a \ 1000
a2 = a \ 100 - a1 * 10
a3 = a \ 10 - (a1 * 100 + a2 * 10)
a4 = a - (a1 * 1000 + a2 * 100 + a3 * 10)
If a1 + a3 = 12 And a2 * a4 = 24 Then
sum = sum + 1
End If
Next
Me.TextBox1.Text = sum
答案：5476 用vb.net做的，

clear all
sum=0;
for i=1000:9999
x=sqrt(i);
if x-floor(x)==0
a=floor(i/1000);%千位
b=floor( (i-1000*a)/100);%百位
c=floor( (i-1000*a-b*100)/10);%十位
d=i-1000*a-b*100-c*10;%个位
if d+b==12&a*c==24
sum=sum+i;
end
end
end
我用matlab编的，结果是0。
用计算器也算了一遍，没有问题。不存在这个数