1樓：
dim a as integer, b as integer, s as integer, y as integer
s = 0
for a = 10 to 1000
b = 0
for y = 1 to a - 1
if a mod y = 0 then b = b + ynext y
if b = a then s = s + anext a
msgbox "10到1000的所有完數之和為：" & s
2樓：聽不清啊
private sub command1_click()s = 0
for i = 10 to 1000
if yinzihe(i) = i thenif k > 0 then print "+";
print i;
s = s + i
k = k + 1
end if
next i
print "="; s
end sub
function yinzihe(n)
s = 1
for i = 2 to n \ 2
if n mod i = 0 then s = s + inext i
yinzihe = s
end function
vb 求1000以內的所有完數
3樓：吾桐語
主要是d的初值為0，c=1，則c>d，所以永遠不會執行do--loop，而且許多語句位置也不對，根據你的**，稍微調整了一下：
private sub form_click()dim a%, b%, c%, d%
for a = 2 to 1000
b = a - 1
c = 1
d = 0
do while c <= b
if a mod c = 0 then
d = d + c
end if
c = c + 1
loop
if a = d then
print a
end if
next a
end sub
用vb語言求1000內所有的完數
4樓：匿名使用者
private sub command1_click()'完數定義：乙個數如果正好等於它的因子之和，這個數就稱為完數。例如，6的因子為1、2、3，而6=1+2+3，因此6是"完數"。
outputwannumber 1000
end sub
sub outputwannumber(byval n as integer)
dim i as integer
dim j as integer
dim s as integer
for i = 1 to n
s = 0
for j = 1 to i＼ 2
if i mod j = 0 then s = s + jnext j
if s = i then print i & "是完數"
next i
end sub
5樓：聽不清啊
private sub command1_click()for i = 2 to 1000
sum = 0
for j = 1 to i \ 2
if i mod j = 0 then
sum = sum + j
end if
next j
if sum = i then print inext i
end sub
vb實驗找到10到1000之間的完全數
6樓：聽不清啊
private sub command1_click()dim i as integer
for i = 10 to 1000
if sum(i) = i then print inext i
end sub
function sum(n as integer) as integer
s = 1
for i = 2 to n \ 2
if n mod i = 0 then s = s + inext i
sum = s
end function
編寫程式,輸出10~1000之間所有的完全數。
7樓：背井蛙
你好：#include
int main()
}不理解可以問我^_^o~ 努力！
請問在vb裡面如何設計程式找出1000以內的完數？
8樓：很多很多
1、啟動vb6.0，新建乙個標準exe工程。
2、在窗體上繪製乙個命令按鈕，名稱為command1。
3、雙擊命令按鈕進入**視窗。
4、編寫命令按鈕的單擊事件。
private sub command1_click()for n = 1 to 1000
s = "" '這一句要加上
sum = 0
for i = 1 to n / 2
if n mod i = 0 then
sum = sum + i
s = s + str(i) + "+"
end if
next i
if n = sum then
s = left(s, len(s) - 1)picture1.print s; "="; n '這裡 picture1是**框的名字
end if
next n
end sub
5、然後按f5執行測試，這樣就完成了。
9樓：匿名使用者
一，首先要理解什麼是完數：
如果乙個數恰好等於它的因子之和，則稱該數為「完全數」。各個小於它的約數的和等於它本身的自然數叫做完全數（perfect number），又稱完美數或完備數或者叫完數。
例如：第乙個完全數是6，它有約數1、2、3、6，除去它本身6外，其餘3個數相加，1+2+3=6。第二個完全數是28，它有約數1、2、4、7、14、28，除去它本身28外，其餘5個數相加，1+2+4+7+14=28。
二，所以，在判斷乙個數是否完數前，先要求出該數的所有小於它的約數；
比如：對於n=6,分解出其所有約數，並求它們的和：
dim i as integer
dim n as integer
dim s as integer
n = 6
s = 1
for i = 2 to n - 1
if n mod i = 0 then s = s + inext i
msgbox s
這樣解決了乙個數是否完數的問題，現在要求出1000以內所有的完數，即：1-1000之間所有的完數。那麼應該想到使得n從2(肯定不是完數)開始迴圈到1000，然後一一進行上述判斷。
三，求出1000以內所有的完數：
dim i as integer
dim n as integer
dim s as integer
for n=2 to 1000
s=1for i=2 to n-1
if n mod i = 0 then s = s + inext i
if s=n then print n
next n
求100到200之間所有能被3整除的自然數之和
100到200之前能被3整除的數滿足數列 a1 102 an 102 3n 100到200間最大可被3整除的數字是198an 102 3n 198 解得 n 32該數列為等差數列，數列求和sn a1 an n 2 102 198 32 2 4800 求vb程式 100至200之間，能被5整除，但不能...
求李小霧的所有作品，完本和番外謝謝啦
有問題追問，滿意記得採納哈。求巫哲所有作品集 番外雲，謝謝！巫哲作品集,當然也可能是因為女主 這個 群體 是正如勒龐所說的那種為了乙個明確的目的而去 巫哲校園新文甜炸 溫馨高糖娛樂圈文 巫哲作品集，又重新回到了人們的視線當中，而當年這個曾在一場節目當中怒懟主持人 其實腹黑是低調隱藏的富二代，兩人一 ...
vb求M到N的素數之和，VB求 整數n到m間的所有數之和 n m 救命！！
為 dim i as integer,m as integer,n as integer,sum as integer,p as integer m val text1.text n val text2.text sum 0 for p m to n for i 2 to p 1 if p mod ...