1樓：智者總要千慮
求素數的方法百：用2-m-1中所有數去度除m，能除知盡就不是素數，道反之則是素數。版
private sub command1_click()dim i as integer, m as integer, tag as booleanfor m = 2 to 100tag = truefor i = 2 to m - 1if (m mod i) = 0 then tag = falsenext iif tag = true then print "1-100內的權所有素數："; mnext mend sub
vb設計一個程式,求解3~100以內的全部素數，並以每行5個素數的形式輸出3~100以內的全部素數。
2樓：聽不清啊
private sub command1_click()
dim i as integer, j as integer, x as integer
for i = 3 to 100
x = 0 'i是素數的標記
for j = 2 to i - 1 '如在此範圍內都不能整除，i就是素數
if i mod j = 0 then x = 1 '如整除了，就不是素數
next j
if x = 0 then
k = k + 1
print tab(5 * k); i; '如是素數，就輸出i
if k = 5 then print: k = 0
end if
next i
end sub
3樓：匿名使用者
dim i as integer, j as integer, ss as boolean, n as integer
dim sp as string
sp=0: n=1
for i=3 to 100
ss=true
for j=20 to i-1
if i mod j = 0 then
ss=false
exit for
end if
next
if ss then
if n=5 then
n=1ss=ss & vbcrlf
endif
ss=ss & i
end if
next
print ss
msgbox "ok"
vb求m到n之間的所有素數個數
4樓：聽不清啊
private sub command1_click()dim m as integer, n as integerif text1 = "" or text2 = "" then exit sub
m = text1
n = text2
for i = m to n
k = k + isprime(i)
next i
text3 = k
end sub
private sub form_load()text1 = ""
text2 = ""
text3 = ""
end sub
function isprime(n) as integerisprime = iif(n > 1, 1, 0)for i = 2 to sqr(n)
if n mod i = 0 then isprime = 0: exit for
next i
end function
編寫程式，求[m,n]區間內的素數的個數，並輸出這些素數。 m，n由鍵盤輸入。
5樓：匿名使用者
#include
#include
bool prime(int x);
void main()
}bool prime(int x)
for(int i =2;i <= sqrt(x);i++)if ((x % i) == 0)
return false;
return true;}
編寫程式，輸入兩個正整數m和n，輸出m和n之間的素數並統計素數的個數。要求定義並呼叫函式prime(m)
6樓：聽不清啊
#include
#include
int main()
}printf("這兩個正整數之間的素數個數為:%d\n",count);
return 0;
}int prime(int a)
7樓：慶年工坊
把倒數第二行else去掉
vb程式設計中，怎樣編寫輸入兩個數m和n，求大於m的n個素數的**？要求顯示出這n個素數
8樓：匿名使用者
private sub command1_click()dim i, j, str, n as integera = val(text1.text)
b = val(1000)
n = 0
for i = a to b
swit = 1 1為素數
for j = 2 to i - 1
if i mod j = 0 then '其實du不用平方,有
zhi一個被整除就dao為0
swit = 0
end if
next j
if swit = 1 then
str = str i '用表示將輸
回出的字元連
答起來n = n + 1
if n = val(text2.text) thengoto '有n個就結束
end sub:
end if
end if
next i
print str
end sub
9樓：匿名使用者
您好,需要及時上醫院處理的.不然容易引起大出血的.有什麼不明白的,歡迎繼續提問.
vb練習題求答案1建立vb應用程式的主要步
1.建立使用者介面 設定屬性 編寫 2.窗體設計視窗 3.ctrl 4.緹5.工程 窗體 6.f4 7.caption 8.透明 9.210.寬度 11.text 12.label textbox 13.14.續行符 空格 15.click 16.雙擊 17.dblclick picture1 pi...
VB開發應用程式的一般步驟是什麼
設計應用程式介面 新增控制元件 設定物件的屬性 編寫 除錯執行和儲存 新建工程 設計程式介面 編寫程式 執行程式 這是書上寫的。希望莪能幫到你。1 建立程式的使用者介面 2 設定介面上各個物件屬性 3 編寫物件響應事件的程式 4 儲存工程 5 測試應用程式，排除錯誤 6 建立可執行程式 vb開發應用...
應用程式錯誤問題！急！ 高手請進！
1.首先排除病毒原因，使用防毒軟體，比如最新版本的360防毒快速查殺3 5分鐘，根據檢查結果，點選立即處理。2.如果應用程式出錯的提示是缺少某個檔案，那就可能是這個檔案損壞，根據這個元件查詢是哪個系統元件損壞，重新安裝相關元件，恢復程式檔案，一般即可解決。3.若是相關軟體自身的元件缺失，只需要重新安...