1樓：做乙個快樂的茶農
1、首先開啟，新建乙個專案。
2、然後新增標頭檔案。
3、接著新增main函式。
4、然後定義i，j，k，n，sum。
5、接著定義乙個陣列。
6、然後使用第一層for迴圈。
7、接著使用第二層for迴圈，用來求出每位的數字。
8、使用if條件判斷語句。
9、最後執行程式看看結果。
2樓：丿佔戈灬龍哥
完全數（perfect number），又稱完美數或完備數。它所有的真因子（即除了自身以外的約數）的和（即因子函式），恰好等於它本身。如果乙個數恰好等於它的因子之和，則稱該數為「完全數」。
#include ""
int main()
return 0;}
請問在vb裡面如何設計程式找出1000以內的完數？
3樓：很多很多
1、啟動，新建乙個標準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) s; "n '這裡 picture1是**框的名字。
end if
next n
end sub
5、然後按f5執行測試，這樣就完成了。
4樓：匿名使用者
一，首先要理解什麼是完數：
如果乙個數恰好等於它的因子之和，則稱該數為「完全數」。各個小於它的約數的和等於它本身的自然數叫做完全數（perfect number），又稱完美數或完備數或者叫完數。
例如：第乙個完全數是6，它有約數，除去它本身6外，其餘3個數相加，1+2+3=6。第二個完全數是28，它有約數，除去它本身28外，其餘5個數相加，1+2+4+7+14=28。
二，所以，在判斷乙個數是否完數前，先要求出該數的所有小於它的約數；
比如：對於n=6,分解出其所有約數，並求它們的和：
dim i as integer
dim n as integer
dim s as integer
n = 6s = 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
用VB編寫程式，輸入正整數n，求所有大於1且小於n，同時與n互質的數，存入陣列並每行的格式輸出
同時與n互質的數 這個不太明白？能說一下嗎？下面1000以內質數演算法。private sub command1 click text1.text for i 1 to 1000 k 1 for j 2 to i 2 if i mod j 0 then k 0next j if k 1 then p...
用VB編寫程序，用VB編寫程式
首先，用vb畫出介面圖，那些按鈕控制項，每個按鈕空間都要實現什麼功能，這個你自己心裡要有數，然後給按鈕編 你要具體點，別人才好回答你！我也是用這個,很好用的,目前沒發現病毒 vb程式編寫 用vb編寫程式 怎樣用vb編寫程式從鍵盤上輸入10個數求平均值 怎麼用vb編寫乙個exe檔案？1 執行vb6.0...
使用者用vb編寫程式 輸入年份和月份，程式能夠判斷其是否是閏年，那個季節，這個月多少天
將以下內容復到記事本中 然後 儲存為 form1.frm version 5.00 begin vb.form form1 caption form1 clientheight 4830 clientleft 60 clienttop 450 clientwidth 8325 linktopic f...