1樓：匿名使用者
private sub form_click()dim n as integer, i as integern = inputbox("請輸入要判斷的數")call zh(n, i)
end sub
private sub zh(n, i as integer) ← 這裡是sub
if n = 2 or n = 3 thenprint n & "是素數"
else
for i = 2 to sqr(n)
if n mod i = 0 then exit fornext i
if i > sqr(n) then
print n & "是素數"
else
print n & "不是素數"
end if
end if
end sub
希望能幫助你 感謝採納
2樓：
function sushu(num as integer) as boolean
dim b as integer, t as integert = 0
for b = 1 to num
if num mod b = 0 then t = t + 1next
if num = 2 then
sushu = true
else
sushu = false
end if
end function
求VB大神幫忙寫隨機選數和猜數的VB程式謝謝
這個太簡單了自己做吧！我的理解是這樣 當使用者按 new game button 的按鈕時，程式隨機產生乙個1 100 之間的數字，然後使用者可以在 guesses textbox 裡輸入自己猜的數字，然後當 單擊 enter button 時，如果猜對了，在標籤label1裡顯示 correct ...
高一對數 急求過程答案
1 因為 log12 7 m 1 m log 7 12 log 7 3 2 log 7 2 n m log 7 3 又有 2 log 7 2 1 m n m 所以 log28 63 log 7 7 2 log 7 3 log 7 7 2log 7 2 1 2 log 7 3 1 2 log 7 2 ...
vb程式設計,用迭代法編一函式過程f a ，求x a的
xa 3 doxb val 2 3 xa 27 3 xa 2 xa xb loop until abs val xb xa 0.00001 print 27的立方根為 xa 這不是我寫的,求參考和改進,謝謝啦 我也求這道題的答案 嗚嗚嗚 vb用迭代法求立方根 10 option explicit p...