樓上的,你寫的好像是C代碼的思路,如果用VB的話應(yīng)該注意取整.
下面是VB的代碼
Private Sub Command1_Click()
Dim a As Integer,b(1) As Long,c As String
For a = 1000 To 9999 Step 1
b(0) = Int(a / 100)
b(1) = Int(a Mod 100)
If (b(0) + b(1)) * (b(0) + b(1)) = a Then
c = c & CStr(a) & " "
End If
Next a
If c = "" Then
MsgBox "沒有滿足要求的數(shù).",vbOKOnly
Else
MsgBox "滿足要求的數(shù)為：" & c & " .",vbOKOnly
End If
End Sub