新人弱弱的問下vb的程式語言表示質數的是與否怎麼寫?
1樓:網友
兩個do迴圈,只要判斷它除了自己和一以外如果沒有其他因數就好,怎麼寫自己想下。很簡單的。
新人弱弱的問下vb的程式語言表示質數的是與否怎麼寫?
2樓:
假若x代表的是這個數,那麼**:
a=0for i = 1 to x-1
if x mod i=0 then
a=1end if
next i
if a=1 then msgbox"是質數"
if a=0 then msgbox"不是質數"
如此而已``
新人弱弱的問下剛入門的vb的程式語言表示質數的是與否怎麼寫?
3樓:
你上網查查吧,或者去專業論壇,關於vb中表示質數的語句不是很多,也不太常用。
試用vb程式語言寫出主要程式段:判斷乙個給定的數x是否是素數
4樓:網友
判斷n是否為素數,可用n除以2到根號n之間所有的整數,除不盡則n為素數。
for a = 2 to int(sqr(n))if n mod a <>0 then '餘數不為0,則n為素數isprime = true 'n為素數。
elseisprime = false 'n不為素數exit for '退出for迴圈。
end if
next a
求乙個vb語言編寫的程式:判斷x是否為質數。
5樓:網友
private sub command1_click()x =
for i = 2 to x - 1
if x mod i = 0 then
f = 1exit for
end if
next i
if f = 1 then
你輸入的數是" & x & ",該數不是素數。"
else "你輸入的數是" & x & ",該數是素數。"
end if
end sub
vb程式設計:判斷乙個數是否為質數(素數)。
6樓:網友
子command1_click()
點心t為龍,tt一樣長,ttt,只要,s作為字串s =輸入框(「請輸入乙個判斷素數」,「t = val(s)tt = 2
ttt = int(sqr(t))
如果pss(t,tt,ttt),然後。
msgbox「輸入號碼「cstr(t)」是乙個素數「,」
其他msgbox「輸入號碼」和cstr(t)&「不是素數」,「結束如果。
end sub
專用功能pss(為byref乙個一樣長,為byref b為長,作為長期的byref)作為布林。
如果b <= c,然後。
a mod b = 0,然後。
pss = false
其他pss pss(a,b +,c)
結束如果。其他pss =真端的功能如果。
弱弱的問下手機為什麼耳機模式,弱弱的問下手機主機板燒了是什麼原因
若手機未插入抄耳機但是襲顯示耳機模式,建議您 bai1.將手機關du機重啟嘗試。zhi2.若無效,備份資料dao,將手機恢復出廠設定。3.若問題依舊,請您攜帶購機發票 包修卡和機器送到三星服務中心,由專業的售後工程師幫助檢測。弱弱的問下手機主機板燒了是什麼原因 若手機主機板損壞,為了給您提供更有針對...
弱弱的問下浪琴手錶好還是天梭好,弱弱的問下可插卡智慧手錶哪款好
首先要說明的是浪琴和天梭針對的消費人群不一樣,價位檔也不一樣,天梭目前的起價是兩千,浪琴是七千,兩個品牌同屬瑞士斯沃琪集體旗下,用的都是eat,也有部分斯沃琪自產機芯,質量上來說都差不多,但做工肯定是一分錢一分貨,浪琴進購機芯後會進行二次打磨,而天梭則是稍作處理直接使用,這也就是價位差的一個原因,天...
IDSI怎麼遠端聯機?弱弱的問下,IDSI用WIFI聯機,或者上網要錢嗎?
只能用wifi 但要硬體支援 我覺得你應該沒有用吧 所以不具體講。系統只支援公尺啊。望你滿意 idsi能和nds聯機嗎?能,ds系列都可以聯機。你試試啊 試試不就知道了嗎。神遊idsi口袋妖怪怎麼聯機 可以紅外線的嗎 我是用燒錄卡的 求詳細 你好,所有口袋聯機方法都一樣,不管燒錄卡的事。最基本的需要兩...