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

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

2025-04-03 23:29:21

推荐回答（1个）

回答1：

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 Sub

最新问答

我是九八年入伍零六年退伍的二级士官，农村兵，现在上班是合同工，单位给缴纳五险

无焰食品加热器（内装有镁粉、铁粉和氯化钠等化学品）常用于野外加热食品．使用时，往化学品中加水，水与

电瓶车的发展简史

不知道怎么了，分手两年了，为什么每次还会梦见他，心里对他有很多愧疚，直到现在都还没有忘了他，心里还