看图写VB基于分解的程序设计
最新回答
晨风拂面
2025-04-30 00:19:52
Sub main()
Dim m%, a%, b%, n%
For m = 100 To 999
a = m \ 100
b = (m \ 10) Mod 10
c = m Mod 10
If m = a ^ 3 + b ^ 3 + c ^ 3 Then Debug.Print m;
Next
End Sub
热门标签
2025-04-30 00:19:52
Sub main()
Dim m%, a%, b%, n%
For m = 100 To 999
a = m \ 100
b = (m \ 10) Mod 10
c = m Mod 10
If m = a ^ 3 + b ^ 3 + c ^ 3 Then Debug.Print m;
Next
End Sub