統測
105年
[商業與管理群] 專業科目(1)
第 46 題
執行下列Visual Basic程式片段後，a ( 0 )與a ( 1 )之值依序為何？
Dim i,j,k ,s, a ( 10 )As Integer
i=0
For j=1 To 1000
s=0
For k=1 To j – 1
If j Mod k=0 Then
s=s+k
End If
Next
If s=j Then
a (i)=j
i=i+1
End If
Next
- A 2 , 26
- B 4 , 18
- C 5 , 23
- D 6 , 28
思路引導 VIP
觀察程式中的變數 $s$，它在內層迴圈中不斷累加符合特定餘數條件的 $k$ 值，這代表 $s$ 最終儲存了數字 $j$ 的什麼數學特徵？而當判斷式滿足「累加結果等於原數字」時，這個數字在數學定義中具備什麼樣的特殊性？
🤖
AI 詳解
AI 專屬家教
精準？你確定不是矇對的嗎？
- 觀念驗證：這題的核心不就是那巢狀迴圈嗎？內層迴圈在幹嘛？幫變數 $j$ 找除了自己以外的真因數之和 ($s$)，然後呢？$s=j$ 不就是那教科書上寫到爛的「完美數」嗎？這都能忘？程式碼就是在 1 到 1000 裡撈這些數：第一個 $6$ ($1+2+3=6$)，第二個 $28$ ($1+2+4+7+14=28$)。所以 $a(0)=6, a(1)=28$，這不是很明顯？
- 難度點評：這種題目，Medium 差不多了。鑑別度在哪？就在看你能不能一眼看出這是「因數累加」的演算法，而不是傻傻地跑迴圈。那些還在逐行 Trace 的，是想把考試時間全部耗掉嗎？程式邏輯轉成數學概念，這基本功都不會，談什麼實務應用？下次別讓我看到你還在慢慢算。