vb 1000 質數之和 以 DO WHILE 的方式完整寫下，謝謝

private sub command1_click()dim i, j, s as long

i = 1s = 0

do while i < 1000 '質數要求。

i = i + 1

for j = 2 to i - 1

if (i mod j) = 0 then exit fornext j

if j = i then

i '顯示所有滿足要求的質數。

s = s + i

end if

loopprint s '顯示滿足要求的質數之和。

end sub

private sub command1_click()dim i, j, f, c,sum

i = 2while i < 1000

f = true

j = 2do while j < i

if i mod j = 0 then f = false: exit do

j = j + 1

loopif f then

i & vbtab;

c = c + 1

sum=sum+i

if c mod 5 = 0 then

end if

i = i + 1

wendprint vbcrlf & "1000 以內所有素數之和 =" & sum

end sub

我正在打電話，你最好執行它，dimi

asinteger:n

asinteger

dowhile

i〈1000

i=1:x=0

s:i=i+1

ll:n=i-1:t=i

modnifn=1

thengoto

s:x=x+iift

0thengotollif

t=0then

gotosloop

printx 我想我的**會比上面的簡單一點。 希望對你有所幫助。 如果你不明白，你可以問。 謝謝！

實際上，如果 n mod b（a） = 0，那麼沒有盡頭

如果 c = 0，則相同

如果也缺少，則結束

'輸出 1000 到 1100 之間的所有質數，每行輸出 6 個私有子命令2 click（）dim x%， z%

dim m%, n%

x = 1000

z = 0do while x <= 1100

x = x + 1

m = x - 1

n = 0do while m > 2

if x mod m = 0 then n = n + 1m = m - 1

loopif n = 0 then

print x;

z = z + 1

if z mod 6 = 0 then printend if

loopend 子結果：