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個數進行降序並存入陣列中,輸入一個數,檢視是否存在 ...