1樓：匿名使用者
private sub command1_click()dim a as integer
dim k as integer
dim i as integer
i = 2
a = val(text1.text)
do k=a mod i
i+=1
loop while i if k=0 then text2.text="你輸入的不是個素數" else text2.text="你輸入的是一個素數"text2.text = "這不是一個質數" else text2.text = "這是一個質數" end if end sub vb中判斷質數的程式 vb編寫程式，從鍵盤輸入一個數，判斷輸入的數是否素數。
10 vb中用while判斷素數 vb判斷是不是素數 2樓： 正確程式如下（可以通過比較尋找自己的錯誤）： private sub command1_click()x = text1.text for i = 2 to x - 1 if x mod i = 0 then f = 1 exit for end if next i if f = 1 then label2.caption = "你輸入的數是" & x & "，該數不是素數。" else label2.caption = "你輸入的數是" & x & "，該數是素數。" end if end sub 3樓：匿名使用者 private sub command2_click()dim n as integer, i as integern = text1.text i = 2 for i = 2 to n - 1 if n mod i = 0 then print n & "不是素數" exit for 『如果不是素數就退出，不用再判斷後面了。 else 'i = i + 1 'next i 本身就是 i=i+1，這兒再用就每個迴圈加2了 end if next i if i = n then print n & "是素數" '把最後是素數的輸出放兒，不會每次判斷都給一個結果，這兒給的是最後的結果。 end sub vb程式設計：判斷一個數是否為質數（素數）。 4樓：匿名使用者 子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 =真端的功能如果 奇數，能被2整出的叫奇數，不能的叫偶數 質數，合數 質數就是在所有比1大的整數中，除了1和它本身以外，不再有別的約數，這種整數叫做質數或素數。還可以說成質數只有1和它本身兩個約數 合數又名合成數，是滿足以下任一 等價 條件的正整數 1.是兩個大於 1 的整數之乘積 2.擁有某大於 1 而小於自身的因... t range a1 value if instr 1,t,糖 0 and instr 1,t,連 0 and instr 1,t,指 0 then range a2 range a1 else range a2 end if 子易空間站 excel培訓專家 呵呵，vba做這個還是夠簡單的！sub ... 公用的完全正確的命題是 要判定正整數a是否是質數，需要用小於根號a的所有質數試除，如果都不能整除，則正整數a是質數。不過，這方法似乎過於麻煩，我有一個質數的簡單方法，就是把這個數加一後除以六，或減一後除以六。如果加一後能整除或者減一後能整除，則此數95 是質數。我應用了質數性質的逆命題，此逆命題不絕...請寫出1 30中各數的所有因數,並判斷是質數還是合數 是奇數還是偶數
EXCEL中VB程式設計關於模糊判斷單元文字的問題（程式設計高手進）
怎樣判斷數字是不是質數怎樣判斷一個數字是不是質數