如果一個三位正整數等于它的每個數字的立方和則此數稱為“水仙花”數（如：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