用VB編程如下
子ss()
將n表示為整數
將I標註為整數
將s標註為整數
s = 0
N = InputBox("請輸入壹個自然數")
n = Int(Val(n))
對於i = 2到n-1 ’,這個循環條件所需的除數不包括1和數字n本身。
如果所需的除數包含1和數字本身，則將循環條件更改為:
對於i = 1到n
如果n Mod i = 0，則
s = s + i
如果…就會結束
接下來我
MsgBox“這個數的所有約數之和是:“&；s
末端接頭