1樓：匿名使用者
private sub command1_click()dim i as integer
for i = 100 to 999
if ws(i) > 0 then print inext
end sub
private function ws(a as integer) as integer
dim i as integer, s as integerfor i = 1 to a / 2
if (a mod i) = 0 thens = s + i
end if
next
if a = s then
ws = s
else
ws = 0
end if
end function
2樓：匿名使用者
以下**為輸出1000以內的完全數
'**執行前首先需要在窗體上放置一個文字框，並將其multiline(多行屬性)設定為true
private sub form_load()text1.text = ""
dim i as long
dim j as long
dim k as long
dim ostr as string
for i = 1 to 1000
k = 0
ostr = cstr(i) & "="
for j = 1 to i - 1
if i mod j = 0 then
'說明是因子
ostr = ostr & cstr(j) & "+"
k = k + j
end if
next
if k = i then
'說明是完全數
text1.text = text1.text & mid(ostr, 1, len(ostr) - 1) & vbcrlf '最後一個+號不要
end if
next
end sub
幫忙解釋一下這個c 程式。是求完全數的
完全數就是所有的因子和等於自身。程式對每一個數j都找到它的所有因子 如果能整除就是因子 每找到一個因子就從s裡減去。因為s一開始設的和j相同，所以如果最後s 0就說明這個數的所有因子之和就是自身，也就是完全數。詳細流程 1.讀入m 2.依次檢查1到m的所有數，設當前數為j 3.檢查從1到j的所有數，...
為什麼氣體完全燃燒放出的熱量等於體積熱值
單恕問丙 一 在燃料化學中，表示燃料質量的一種重要指標。單位重量 或體積 的燃料完全燃燒時所放出的熱量。通常用熱量計 卡計 測定，或由燃料分析結果算出。有高熱值 higher calorific value 和低熱值 lower calorific value 兩種。前者是燃料的燃燒熱和水蒸氣的冷凝...
計算1 2 2 3 3 419 20等於多少它的所有因數和是多少
徐少 2660 解析 n n 1 n n 1 2 3 n n n 1 2 1 2 3 n n n 1 2n 1 6 1 2 2 3 3 4 19 20 1 2 3 19 1 2 3 19 1 19 19 2 19 19 1 2 19 1 6 190 19 10 13 190 14 2660 2660...