vb程序设四位数的各位数字平方和等于100

vb程序设四位数的各位数字平方和等于100
求vb程序代码,
来财 1年前 已收到1个回答 举报

早六点 幼苗

共回答了23个问题采纳率:91.3% 举报

Private Sub Command1_Click()
Dim I As Integer
For I = 1000 To 9999
If (I Mod 10) ^ 2 + (I 10 Mod 10) ^ 2 + (I 100 Mod 10) ^ 2 + (I 1000) ^ 2 = 100 Then Print I
Next
End Su

1年前

8
可能相似的问题
Copyright © 2024 YULUCN.COM - 雨露学习互助 - 17 q. 0.049 s. - webmaster@yulucn.com