1樓：匿名使用者
private sub command1_click()dim s as long, x as longfor s = 3 to 100
if zhi(s) then x = x + 1: print snext
print "共 " & x & "個質數"
end sub
private function zhi(x as long) as boolean
dim b as single, i as long, f as long
for i = 2 to x - 1
if x mod i = 0 then
f = 1: exit for
end if
next
if f = 1 then zhi = false else zhi = true
end function
2樓：岔路程式緣
private sub form_click()dim n as integer
dim i as integer
dim j as integer
dim s as boolean
n = 0
for i = 3 to 100
s = true
for j = 2 to sqr(i)
if i mod j = 0 then
s = false
exit for
end if
next
if s then
print format(i, " 0# ");
n = n + 1
if n mod 10 = 0 then printend if
next
print "從3－100之間共有以上"; n; "個素數"
end sub
3樓：聽不清啊
private sub command1_click()for i = 3 to 100
for j = 2 to sqr(i)
if i mod j = 0 then exit fornext j
if i mod j <> 0 then
print i,
k = k + 1
if k mod 5 = 0 then printend if
next i
end sub
如何用j**a編寫程式，找出50~100之間的所有素數？
4樓：匿名使用者
public class a
}if(isprime)}}
} -----------testing
53, 59, 61, 67, 71, 73, 79, 83, 89, 97,
vb程式設計 輸出3到100之間所有素數
5樓：陽光上的橋
dim i,j,x
for i=3 to 100
x=1for j=2 to i-1
if i mod j=0 then x=0next j
if x=1 then print i
next i
6樓：匿名使用者
private sub command2_click()for i = 1 to 100
if prime(i) then print inext
end subpublic function prime(byval m as integer) as boolean '鍒ゆ柇m鏄�惁涓虹礌鏁?
dim b as boolean
dim i as integer
b = true
for i = 2 to sqr(m)
if m mod i = 0 then
b = false
exit for
end if
next i
prime = b
end function
7樓：匿名使用者
private sub command1_click()clsfor i = 2 to 100
j = i \ 2
do while j >= 2
if i mod j = 0 then exit doj = j - 1
loop
if j = 1 then print inext i
end sub
vb程式設計題 編寫程式，在窗體上輸出50到100以內所有的質數
8樓：
private sub command1_click()for i = 50 to 100
for j = 2 to sqr(i)
if i mod j = 0 then exit fornext
if j > sqr(i) then print i;
next
end sub
使用VB編寫程式的基本步驟哪些，使用VB編寫程式的五個基本步驟哪些
1.開啟vb 2.在窗體上畫控制元件 3.寫 4.除錯程式 5.編譯生成.每個作者總結都不一樣，誰說必須五個不是6個？你把它分為100個也可以了 簡述編寫並執行vb程式的一般步驟 想法 靈感 文案 規劃 建立工程和窗體 模組 類模組 窗體設計 編寫 測試和debug 生成exe檔案 請簡述使用vb開...
vb編寫程式中print是什麼意思
print方法可以在窗體上顯示文字字串和表示式的值，並可在其它圖形物件或印表機上輸出資訊。1 語法說明 在vb中，print方法是用來輸出資訊的專用過程，顯示的文字是作為影象來處理的，因此，print方法顯示的文字字串也往往作為圖形文字。visual basic 允許在窗體 圖形框和印表機用prin...
vb，編寫程式計算1 2100，請高手幫忙糾錯
修改以後的程式如下，已經執行通過，答案正確 private sub form click dim i as integer dim sum as integer for i 1 to 100 sum sum i next i print sum end sub 在for迴圈的內部不能再用i i 1 ...