1樓：來建建飛英
suba()
dimtt=
1fori=
3to1001ifi
<1001
thent=
t+ielse
cells(1,1)=
tendifi
=i+1
next
iend
sub這個是在excel裡執行的結果，算出來是250000，你可以把裡面的cells（1,1）替換成你想輸出的地方msgbbox
（「t」）
2樓：尾雄子車曼青
dims
aslong
private
subcommand1_click()
me.clss=
s+2me.print
send
subprivate
subform_load()s=
-1end
sub每次單擊commadn1按鈕螢幕上會依次列印出1、3、5、7、9.。。。。。。。。。
3樓：匿名使用者
你先建的command text控制元件
(1)private sub command1_click()dim x as integer, i as integerx = val(text1.text)
if x > 1 then
for i = 2 to x - 1
if x mod i = 0 then exit fornext i
if i = x then
msgbox x & "是素數"
else
msgbox x & "不是素數"
end if
else
msgbox "x必須大於1"
end if
end sub
要採納哦 ！
4樓：失戀的小和尚
1.numbool=true
for i = 2 to num/2
if num mod i = 0 thenmsgbox num & "不是一個素數"
numbool =false
exit for
end if
next i
if numbool then msgbox num & "是一個素數"
2.dim num as long
dim nume as long
num=0
for i = 1 to 99
nume=1
for j = 1 to i
nume=nume*j
next j
num=num+nume
next i
5樓：匿名使用者
(1)dim a as integer
a=val(text1.text)
b=1for i=2 to a/2
if a mod i = 0 then
b=b+1
exit for
end if
next
if b=1 then
msgbox a & "是素數"
else
msgbox a & "不是素數"
end if
(2)dim s as integer
dim c as integer
s=0for i=1 to 99
c=1for j=1 to i
c=c*j
next
s=s+a
next
6樓：
private
subcommand1_click()
fori=1
to999
step2s
=s+i
next
iprint
"s="&s
endsub
7樓：一碑電影
1.dim flag as bealoonflag=false
for i=2 to (x-1)
if x mod i=0 then
flag=true
endif
next i
if flag=true then
msgbox x & " 不是素數！"
else
msgbox x & " 是素數！"
end if
2.dim x as long
dim y as long
y=0for i = 1 to 99
x=1for k = 1 to i
x=x*j
next j
y=y+x
next i
試用vb程式語言寫出主要程式段：求s=1+3+5+7+……+999的值。
8樓：吾桐語
private sub command1_click()for i = 1 to 999 step 2s = s + i
next i
print "s=" & s
end sub
9樓：匿名使用者
sub a()
dim t
t = 1
for i = 3 to 1001
if i < 1001 then
t = t + i
else
cells(1, 1) = t
end if
i = i + 1
next i
end sub
這個是在excel裡執行的結果，算出來是250000，你可以把裡面的cells（1,1）替換成你想輸出的地方msgbbox （「t」）
用vb程式語言寫出主要程式段：求s=1+3+5+7+......+999的值。
10樓：
dim s as integer
dim c as integer
s=0for i=1 to 999 step 2s=s+i
next
print s
11樓：
s=0for i=1 to 999 step 2s=s+i
next
print "1+3+5+7+......+999=";s
12樓：桐悅可
a=1s=0
do while a <=999
s=s+a
a=a+2
loop
print s
程式設計語言VB複習題，程式設計語言VB複習題 doc
一.4.應選c,picture改為load.picture 三.gfedcba 四.1.if fz 0.text then msgbox 請輸入 exit sub end if s fz 0.text n cint s 此題輸入n為10即可 for i 0 to n msgbox 請輸入第 str ...
vb程式設計題？這道vb題怎麼寫程式碼？
private sub command1 click max val val text2.text val val val text5.text val val val text8.text val val min val val text2.text val val val text5.text ...
VB程式設計題，VB程式設計練習題？
1.新建工程 工程1 2.新建一下combobox控制元件 combo1,並將屬性style改為2 3.新建五個label label1，label2，label3,label4，label5 4.新建兩個text文字框 text1,text2 5.新建一個commandbutton按鈕 comma...