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過程這一章關於Sub的問題
1，標準模組最的作用是資源共享，就像你經常都要用到的變數可以在模組那裡定義，而且要用public而不是用dim 2，就要看你需要什麼樣的資料型別了，int,string single,boolean.都行 3，每一個過程或者函式都要這樣的，sub 和end sub 組成一個完整的過程，當然包括你自定...
用VB設計IP判斷的程式，用VB設計乙個IP判斷的程式
設文字框t1,t2,t3 private sub command1 click dim ip1 dim ip2 dim ip3 ip1 toip t1.text ip2 toip t2.text ip3 toip t3.text if ip1 and ip3 ip2 and ip3 then msg...
五道VB程式結果分析，求分析過程以及答案，謝謝
寂靜深闌斜 簡要說說。8.先通過彈出的對話窗，把值賦給x，然後根據iif 語句給y賦值。這段程式中，iif x 0,1 2 x,1 x 語句是先判斷x 0是否為真，如果為真，則將1 2 x的值賦給y，否則賦1 x的值。最後列印出y的值，所以x的值為3的話，列印結果為 5。9.這段程式呢是個do un...