1樓：polaris北斗
option explicit
private sub form_click()dim i as integer, j as integer, n as integer
dim isp as boolean
n = 0
for i = 3 to 500 step 2isp = true
for j = 2 to i - 1
if i mod j = 0 then
isp = false
exit for
end if
next j
if isp then
print vbtab & i;
n = n + 1
if n mod 10 = 0 then printend if
next i
end sub
2樓：匿名使用者
private sub command1_click()dim i as integer, j as integerj = 0
for i = 2 to 100
if sushu(i) = true thenprint i;
j = j + 1
if j mod 5 = 0 then printend if
next i
end sub
function sushu(m as integer) as boolean
sushu = true
for i = 2 to sqr(m)
if m mod i = 0 then sushu = false: exit for
next i
end function
vb中怎麼輸出1到100之間的所有質數？
3樓：匿名使用者
你的題目有些問題,應該是2到100之間,應為質數應該是從2開始的用for做就行了,只要mod 2 ,3,5,7得到的都是0,就是質數了
4樓：匿名使用者
me.cls
dim x, i, j, k as singlex = 100for i = 2 to xk = 0
for j = 2 to sqrt(i)
if i mod j = 0 then k = k + 1 :exit for
next j
if k = 1 then print inext i
用 vb 程式設計 找出1-100 裡面的素數
5樓：匿名使用者
private sub command1_click()for i = 1 to 100
for j = 2 to i - 1
if i mod j = 0 then exit fornext j
if j > i - 1 and i <> 1 thenprint i;
n = n + 1
if n mod 5 = 0 then printend if
next i
end sub
vb程式設計在螢幕上輸出如下圖形
樓上的什麼啊 private sub mand1 click dim i as integer,n as integern 3 for i 1 to n print space n i string 2 i 1,next for i n 1 to 1 step 1print space n i st...
用c語言程式設計！要求輸入1輸出a輸入26，輸出z。輸入
此題可以做，如下 include stdafx.h if the vc 6.0,with this line.include stdio.h int main void for i 0 n i for j i 1 j 0 j printf c r tmp j printf n return 0 但這...
用vb計算輸出500內所有能被3和7同時整除的整數之和。（答案是5796）
呵呵很簡單,先新建一個text控制元件然後把下面的 複製進vb裡.dim a as long dim i as long dim j as long private sub form load for i 1 to 500 if i mod 7 0 and i mod 3 0 then j i a ...