如果一个三位正整数等于它的每个数字的立方和则此数称为“水仙花”数（如：135=1^3+5^3+3^3）．下列程序用于求出100-999之间的所有“水仙花”数，请将画空格的语句补充完整．
Private Sub Command1_Click （ ）（ ）
Dim m As Integer,n As Integer
Dim a As Integer,b As Integer,c As Integer
For m=100To 999
a=m\100m\100
b=（m Mod 100）\10（m Mod 100）\10
c=m Mod 10m Mod 10
n=a^3+b^3+c^3
If m=nm=n Then List1．AddItem Str（m）
Next m
End Sub.
【答案】（ ）；m\100；（m Mod 100）\10；m Mod 10；m=n
【解答】
【点评】
声明：本试题解析著作权属菁优网所有，未经书面同意，不得复制发布。
发布：2024/6/27 10:35:59组卷：30引用：1难度：0.3
相似题
-
1．公因数只有1的两个非零自然数，叫做互质自然数。王老师编写了一个Python程序，程序的功能是随机产生5个1到20之间的整数，找出其中和最大的互质数对。程序运行界面如图所示：
实现该功能的程序代码如下：
请回答下列问题：
（1）寻找互质数对的算法属于（选填：枚举/解析）算法。
（2）如产生的 5 个随机数是[20，16，12，6，14]，则程序输出内容是。
（3）要实现程序的功能，请完善横线处的代码。发布：2024/12/20 18:0:1组卷：3引用：1难度：0.4 -
2．小红用Python编写程序画出了如图形，在第三行下划线处应该填写（ ）
发布：2024/12/18 11:0:1组卷：2引用：1难度：0.6 -
3．【加试题】小丫觉得回文字符串太优美了（回文字符串是指顺读和倒读都一样的字符串，如“123321”），为此编写了VB 程序。程序运行时，单击按钮Command1 后，根据文本框Text1 中输入的内容判断并输出是不是回文串。实现上述功能的VB 代码如下。
Private Sub Command1_Click（ ）
Dim s As String,f As Boolean,L As Integer
s=Text1.Text
j=Len（s）
i=1
Do while ①
i=i+1
j=j-1
Loop
If ②Then Print“是回文串“Else Print“不是回文串“
End Sub
在画线处填入合适代码，使程序能正常运行。
①
②发布：2024/12/19 14:30:2组卷：0引用：1难度：0.4
