vb輸入正整數,若該數不是素數,則找出大於它的最小素數

2022-03-16 08:55:52 字數 1150 閱讀 5726

1樓:匿名使用者

建立一個名為text1的文字框輸入正整數,一個command1的按鈕用以開始計算,結果顯示在label1裡

程式如下

private sub command1_click()dim numin as long, num as longnumin = val(text1)

if not isprime(numin) thennum = numin + numin mod 2 + 1while not isprime(num)num = num + 2

wend

end if

label1 = num

end sub

function isprime(n as long) as boolean

dim i%

for i = 2 to sqr(n)

if n mod i = 0 then

isprime = false

exit function

end if

next

isprime = true

end function

2樓:匿名使用者

private sub command1_click()dim n as long

dim nss as boolean

n=val(trim(text1.text))if ss(n)=true then

text2.text="n=" & n & " 是素數"

else

do while nss=true

n=n+1

nss=ss(n)

loop

text1.text=n

text2.text="n=" & n & " 是素數"

endif

end sub

或者把這段**放到text1 的change事件裡function ss(tmp as long) as boolean '素數判斷

ss = true

for i = 2 to tmp / 2

if tmp mod i = 0 thenss = false

exit function

end if

next

end function

C語言從鍵盤上輸入正整數,計算並輸出該數的各位數字之和

輸出該數的各位數字之和的源 如下 include int fun int n else return sum void main 擴充套件資料1 輸入的數字要是整數,並且要在規定範圍內。2 對輸入的數要進行拆分,注意1和本身不能在求和之中。3 可以使用迴圈對輸入的數 n 遍歷,如果n i餘為0,則表...

使用函式判斷完全平方數 輸入正整數n,判斷其是否為完全平方數,如果是,則輸出 YES ,如果不

c可以這麼 寫 include int issquare int n int main int argc,char argv printf issquare x yes n no n return 0 include include int issquare int n int main int i...

輸入整數,判斷該數是否為降序,輸入一個整數,判斷該數是否為降序

迴圈對比,兩個數減一下,如果其中一個小於0,則不為降序 integer a new integer 5 a 0 9 a 1 8 a 2 6 a 3 7 a 4 5 for int i 0 i0 需要判斷這個數是不是純數字麼?用氣泡排序法對輸入的20個數進行降序並存入陣列中,輸入一個數,檢視是否存在 ...