作业帮 > 数学 > 作业

VB试题,编写程序,找出能满足abcd=(ab+cd)^2形式的所有四位数abcd

来源:学生作业帮 编辑:拍题作业网作业帮 分类:数学作业 时间:2024/04/30 04:08:06
VB试题,编写程序,找出能满足abcd=(ab+cd)^2形式的所有四位数abcd
Private Sub Form_Click()
Dim i As Integer
Dim aa,bb As Integer
For i = 1000 To 9999
aa = i Mod 100
bb = Int(i / 100)
If i = (aa + bb) * (aa + bb) Then
Print i
End If
Next
End Su