[填空题] 下面程序的功能是:求出所有的三位数,其各位数字的立方和等于该数。如: 153=13+53+33。 Option Explicit Private Sub Form_Click() D
7 查阅
[填空题] 下面程序的功能是:求出所有的三位数,其各位数字的立方和等于该数。如: 153=13+53+33。
Option Explicit
Private Sub Form_Click()
Dim x1 As Integer,x2 As Integer,x3 As Integer
【9】
For i=100 To 999
x=i
x1= 【10】 个位数字
x2=x10 Mod 10
x3=x100
If 【11】 Then
Print i
End If
Next i
End Sub
参考答案: