1樓：匿名使用者
所謂素數，是指除了1和該數本身之外，不能被其他任何整數整除的數。例如，13是素數，因為它不能被2，3，4，…，12整除。
判斷乙個數n(n≥3)是否素數的方法是很簡單的：將n作為被除數，將2到(n-1)各個整數輪流作為除數，如果都不能被整除，則n為素數。
private sub command1_click()dim n as long, flags as booleann = val(text1.text)
flags = true
for i = 2 to sqr(n)
if n mod i = 0 then
flags = false
exit for
end if
next
msgbox n & iif(flags, "", "不") & "是乙個素數"
end sub
2樓：匿名使用者
private sub form_click()dim n as integer
do while n < 3
n = inputbox("請輸入乙個整數：")loop
print prime(n)
end sub
function prime(a) as stringfor i = 2 to sqr(a)
if a mod i = 0 then
prime = "不是素數"
exit function
end if
next i
prime = "是素數"
end function
如何編寫判斷乙個正整數(>=3)是否為素數的程式？(用vb）
3樓：手機使用者
所謂素數，是指除了1和該數本身之外，不能被其他任何整數整除的數。例如，13是素數，因為它不能被2，3，4，…，12整除。
判斷乙個數n(n≥3)是否素數的方法是很簡單的：將n作為被除數，將2到(n-1)各個整數輪流作為除數，如果都不能被整除，則n為素數。
private sub command1_click()dim n as long, flags as booleann = val(text1.text)
flags = true
for i = 2 to sqr(n)
if n mod i = 0 then
flags = false
exit for
end if
next
msgbox n & iif(flags, "", "不") & "是乙個素數"
end sub
vb程式設計，判斷乙個正整數（>=3）是否為素數
4樓：遠風的夢想家
private sub form_click()n = inputbox("請輸入
乙個正整數（
內>=3)")
k = int(sqr(n))
i = 2
swit = 0
do while i <= k and swit = 0if n mod i = 0 then
swit = 1
else
i = i + 1
end if
loop
if swit = 0 then
print n; "是
容"else
print n; "不是"
end if
end sub
5樓：同翠柏位紫
dimflag
asbyte
:flag=0
fori=2
toint(n/2)ifn
modi=0
then
flag=1
exit
forend
ifnext
i執行完
bai後，flag為0的話，
du說明是素數zhi；為1的話，是合dao數。可根據相內應要求編寫後續**容
在vb中編寫乙個判斷乙個整數是否為素數的程式.....能不能簡單點....用if 5
6樓：匿名使用者
function sushu(a as integer) as boolean
dim i as integer
for i = 2 to int(sqr(a))if a mod i = 0 then exit fornext
if i > int(sqr(a)) thensushu = true
else
sushu = false
end if
end function
private sub form_click()dim a as integer
a = inputbox("輸入
du乙個整
數zhi
dao", "提示")
if sushu(a) = true thenmsgbox cstr(a) + " 是素數回"else
msgbox cstr(a) + " 不是答素數"
end if
end sub
判斷乙個數是否為素數的vb程式**是什麼？
7樓：問明
#include
int sushu()
int i,leap=1;int m;
scanf("%d",&m);
for(i=2;iif(m%i==0)/*判斷條件為真時，即表示m存在1和自身以外的其他因數。
判斷條件是為假時，即不會執行此if下的語句，leap值不變，仍為1，程式繼續向下執行*/
leap=0;break;
if(leap==1){
return leap;
int main()
switch(sushu())
case 1:
printf("prime!\n");
break;
case 0:
printf("not prime!\n");
break;
return 0;
在主函式中輸入乙個大於1的正整數，通過呼叫這個函式，輸出該數是否為素數的資訊。
如果該數為素數，輸出資訊為：
prime！
若該數不為素數，則輸出資訊為：
not prime!
輸入輸出在主函式中進行
輸入描述
輸入乙個大於1的正整數。
輸出描述
對輸入的正整數進行素數的判定：
如果該數為素數，輸出資訊為：
prime！
若該數不為素數，則輸出資訊為：
not prime!
輸出資訊單獨佔一行。
輸入樣例
輸出樣例
not prime!
8樓：匿名使用者
option explicit
dim a as boolean, i as longdim n as long
dim st as string
private sub form_load()form1.autoredraw = truest = inputbox("乙個任意數（若<2將退出）", "輸入", "100")
if st = "" then exit subn = int(val(st))
if n < 2 then exit subfor i = 2 to n - 1
if n mod i = 0 then
a = false
exit for
else
a = true
end if
next
if a then
print n; "是素數"
else
print n; "不是素數"
end if
end sub
我已經 辛苦 執行過。
9樓：匿名使用者
private sub form_load()a = val(inputbox("輸入乙個正整數："))if a = 1 then msgbox "1不是素數": exit sub '排除例外的1for i = 2 to sqr(a)
if a mod i = 0 then msgbox a & "不是素數": exit sub '如果能被1和自己之外的數整除則不是素數
next i
msgbox a & "是索數"
end sub
用vb編寫程式 輸入乙個正整數n,輸出1~n中所有的素數
10樓：匿名使用者
在窗體上放乙個按鈕，然後**如下：
private sub command1_click()dim i, j, k as integerdim p as boolean
dim a as integer
k = 1
a = inputbox("請輸入n值：")for i = 2 to a
p = false
for j = 2 to a
if j >= i then exit forif i mod j = 0 then p = truenext j
if p = false then
print i;
if k mod 5 = 0 then printk = k + 1
end if
next i
end sub
編寫程式輸入兩個正整數m和，編寫程式，輸入兩個正整數m 和n 1 m，n 1000 ，輸出m n 之間的所有滿足各位數字的立
碧血玉葉花 include int is int number if s b return 1 else return 0 int main void include include int is int number int main void int m,n,y,result printf m,...
編寫程式輸入正整數n統計n中不同數字出現
大野瘦子 程式為 include int main while num 0 num 10 for i 0 i 10 i 注意事項 public class test01 system.out.println 共出現了 count 次 砍侃看 include int main while num 0 ...
用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...