LS的意見正確,但從代碼看改作窗體顯示更為妥切。
Private?Sub?Command1_Click()Dim?n?As?Integer,?a?As?Integer,?b?As?Integer,?c?As?Integer
For?n?=?100?To?999
a?=?n?\?100
b?=?(n?-?100?*?a)?\?10
c?=?n?-?100?*?a?-?10?*?b
If?n?=?a?^?3?+?b?^?3?+?c?^?3?Then
Me.Print?n;
End?If
Next?n
End?Sub