191问答库 > 编写vb程序,实现查找4位数中前两位数字与其后两位数字之和平方等于该数本身

编写vb程序,实现查找4位数中前两位数字与其后两位数字之和平方等于该数本身

2025-02-27 08:25:09

推荐回答（1个）

回答1：

Private Sub Command1_Click()
Dim i As Integer, m As Integer, n As Integer
For i = 1000 To 9999
n = Val(Left(i, 2))
m = Val(Right(i, 2))
If (m + n) ^ 2 = i Then
Print i
End If
Next
End Sub