问一个VB题

来源：百度知道 编辑：UC知道 时间：2024/06/24 04:57:11
编程找出满足下述关系的四位整数abcd
(ab+cd)*(ab+cd)=abcd

请把VB的程序代码写给我！谢谢！

Private Sub Form_Click()
For i=1000 to 9999
L=Val(Mid(i,1,2))
R=Val(Mid(i,3,2))
If (L+R)^2=I Then Print i
Next
End Sub

for a=0 to 9
for b=0 to 9
for c=0 to 9
for d=0 to 9
if (a*10+b+10*c+d)*(a*10+b+10*c+d)=1000*a+100*b+10*c+d then print "a,b,c,d:",a, b, c ,d
next d
next c
next b
next a

Private Sub Form_Click()
Dim k As Integer
For a = 0 To 9
For B = 0 To 9
For C = 0 To 9
For D = 0 To 9
k = a * B + C * D
If k = Val(a & B & C & D) Then Print a & B & C & D
Next D, C, B, a
End Sub

'看错了,还以为AB是A*B