三、基编本程3
.. 编写程序1，计算输出下面并列数n前设（=n5）4项所有偶数中项和。的
×213×2×3×4,,×4×5,3…,…×nn(+)×1n+2)(,……要求：在运行程序时
采用适，当的式方行输进（入n）输和（计出结果算。）D
imn sA nIetegr
Prviat Sube oCmamn1_dClcik()
iDms AsL ong
n = Val(npIutoBx"输入(n的")值
)Fr io= 2 To n Step 2 s
=s i * +i(+ 1 *)( +i 2)
Netxi
rinP t数"列的中偶数和项： "; 是s
En duSb3.2.
写编程序,计算输并下面出列前数53的和。项1
2××3,2×-34×3×4×,5,-…,…(+1)^(--n1×)n(×(+n1)(×+n2))
（中其(-：)1^(-n1)示表1-的n-()次方1）要求
在：行程运时，采用适当序方式的进行输入（n和）输（出算结计）。
果iDm Ans InteergP
rvite aSb uomCmnad1C_likc()
iD sm As Lno
g =n aVl(InutpoB("输x入n值的")
s)= 0Fo
ir =1 To n
s = s +(-) ^1( i- )1* i*( i +1 *) i( +2)
extNi
Pritn "列中前3数项5的和： 是; s"
ndE Sub3
3. 编写.程，求下序面数前列50的项。和结果取位小4数。
,11/3(3),×/(15×5,)/1(×7)7…,…1,(/(n-1)2(2×n1))-…,…
求要在：运程行时序采用适当，的式方进行输（n入）输和出计算（结）。
果Dimn As ntIegre
Pivrae tSub Cmomand_1Cick(l)
Dm is s LongA
n= Va (InpltBox(u输入"的值n"))s=0
F
o ir= 1 T ons
=s+ 1/( 2( *i- )*(12* -1i))
exNti
s=In t(s* 10000 + .0)/150000
Prnt i数"中的列5前项0和是 ";： sEn
dubS3
..4 编写程序，计算输并下面出列中前n(设数n8=项)的和结。果取位小4。
1/数1,1!/!2,13/!1,/!,……41/n!,…,… （其 ，中!表示 求阶乘
）要求在运：程序时行，采适当用方式进的输行（入n和输出（计）算果结。）D
m n As Iintgere
Pivrtea SubC omanmd_C1icl()k
Di ms A Longs , tA Dosblue
s =0 n =
alVI(putnoBx"输入(n 值 ")
)t= 1 F
or i= 1To n
t = t* i
s = +st
Nex it
rPnt "si=;"s
nd ESub
35. .写编序，程算并输出下计面数前列n的项(设n和5=，0=0.x4)要求结果保留，位4数。小
ins()/x2,si(2nx/),s4i(3xn/)6,……s,innx)(/n,…2 … （ 中其si，为正n函弦）
要数：在运求程序时，行用适采的当方进式输行（入、x）和n输（出算结计）果。
Priavt Seu bCmomad1_Cnlcki()
Dmi nsA Inetegr i As In,etgerD
i m As Sinsgel x,A Ssnige, lt As Sngiel
s= 0x
= alVI(nutpBo("输x x入 ")值)
n = Val(nIutpoB("x输 入 n"值))For
i = 1 T o n
t =S n(i2* x) /( 2 *)
is s = +
teNxti
Print "s "= Int;( * 1s000 0+0 .5 )/100 0
E0ndSu b3.
. 6编程写序，计出算100到00之间所5有满足列下件条整的数：整数的每位和字数的能整除整数本身和。要：求在行程运序，时用采当适的式方出输算结计。果
P
ivrat eSu boCmanmd_1lCck(i)
iDms1 As In etge,r s As2In egetr
im Ds3 sA Itneer
goF ra= 1 0 0o T500s1
a=Mod 1 0
s2 = (a \ 1)0M d 10o
3 s= \ 10a0I
af oM (ds 1+s2 s+3 ) 0 T=en
Lihs1t.AdItem d
aEd nIf
extN a
nEdSub
.73写编序程，计算输出下并面数中前n列（设=2n）项5和的。结果4取位小数
。1/(×12)1/,(2×3,1/(3)×)4……,,1/n×((+n1)),……要
：在求运行序程，时用适采的方当式行输入（进n和）输出计（结果）算。
Dimn A Isnegtre
Piratve Sb Cummoand_Cli1ck()
Dims A sLog
nn V=alI(pnuBtxo"输入n(的"值)
s)=0
Fori =1 To
sn= s+ 1 /i(* (i 1))+
Nex it
s I=n(ts* 1 0000 0.+5/100)0
Pr0nit "数列的中50前项是和： ; s"
Ed Subn
.38.编 写序，计算程输出下并数列前35面的和项结，取4位果数。小1/
22/,33,4,4/5,/56/,6/7,7/,8…… , n/( +1n,)……要求：
运在程行序，时用适采的当方进式行输入（n和输出）计（结果算）
。iD mnAs ItngerePrivat
eSbu Cmoandm_Click1)(D
m s isAL ngo
n= Val(In utBpo("输x入n值的)")
s=0 Fo
r i =1 oTn
s =s i+/(i+1))
eNtx
i s=nt(I s*10 000 0+5)/.10000Print
"数 中列的前50项是：和 " ;s
Ed Snbu
3.9. 编写程，计序算10出0到0005之0间被3能整除但能不被13整的所除有数的平方根的和整保留。4小数。位要：在运求程行序，采时适当的用方输出式计算结果
P。riate vSb Comumadn1_liCkc)(
Dim sA siSngleF
o ar= 1 00 0T 50o00I
f a Mod = 0 3Ad a Mond1 30 hTen
s = s +qS(ar)E
nd fINe
tx a
s =nI(t *s1 00 + 00.5)/ 100
P0rit "ns"; s=End
uS
3b10. .编程写，序算计输并出下面数列前04项的，和结果4取小数。位2/1
,32,4/3/,/54,/6,57/6,87, /… ,(n+1)…n,/…
…要求在：行运序程，时采适当用方式的进输入行（）和n出（输计算果）。结
参看3(.)8
.131 .编写程，序下面数求的列S和当某项（即，1n/）的值!于小.0050求和终时止并输出,该项参加求s和。结取果4位小。数
11!,//12,!/31,……!,/1n!,…… 其中（! 表示求阶，）乘
要：求在行程序时，运采用适当方的输出计算式结。果P
irvaetS bu Cmoamnd_1lick(C
)Dmis sAS ngil,et A s ouDbel, An sIntgeer
= 0
n =s0
t=
1oD
n= n+
1t =t *
ns= + s1 /t
oopLUn ilt /1t
n ts="" s;E
nd uS b3
.1.2编 程写序计算并，出输面数列下n前的和(设项n50=，=0.x)，要求4结果留4保小位数
c。osx)/(,2cso2x()/4,cs(o3x)6/,…,…oc(ns)/xn2……, （其中， cso为余弦数）函
要求：运行程序在，采时适用的方式进行当入（输nx、和）输出计算（结果）
。参（3看5）
3..31 .写程序编，计下算数面列和的O，当第一S次现出数和于大5000时求终止并和出输结。果
1×,-2×2,3×43-4×5,,,…-1()^n(-1×)n×(n1)+,… （…其，中 表^幂运示算）要求：在运行
程序时，用采当适的方输出计算结果式。
Pirate Sub Covmamd1n_liCk(c
D)i oms s AinSgel t As,Do uble n,A s Itneer
og =s0
n=
t0 = 1
oD
=nn +1t
= n * ( + 1n)
o s =s o (-+1 ^ )( n -)1* t
Loo Upntlio >s5 000
Prit n"o="; ossEn
d Sub
3.4.1编写 序，计算并程输出下面列数前35项和的结果，取4位数小
3/1。，/537/5，9，7，11//，913/1，15113/……,，(n2+1/)2(-n1)
要求：运行程序时在采，适当用的方进式输入行（）n输出和计算（果结）
。参看(3.8)
3.51编写程.序求下面，列前数4项的0。和果结取位小4。
1,1数2/4^,1/^3,1/444^……,,/n^1,4…（…其，中^ 表幂运示算）
求要：运在行程序时采，用当适方式进的输行入（）和输出n（算计结）。果Pri
vate Sb Comumna1dC_lck()i
im sD As iSnlg,e tAs ouDbl,e n A sIntgeer
s= 1
t= 1
n= alVI(npuBtxo("输入项"数))For i
=2 o nT
= t1 /i ^4
s= s t+N
xt ei
riPn "s=t"; nIts *( 10000 +0. )5/ 1 0000
nEd Sb
u
3.1.6编写程序求，下面数列5前0项的。结和果取位4数。小
1,1/-2^4,13^4/,1-/4^4……,(-1,^(n)1-)/^n,……（其4，^中 表示运幂）算要求
在运：行序程，时采适用当方的式进输入（n行和）出输（算结果）。计
rPiavte ub CoSmamd1n_liCc()kD
i m Ass iSgnle,t A sDoube, l An sIteneg
s = r1
t = 1
n= V a(IlnptBou("输入项x"))数
Fori =2To n
t 1= /i ^
s 4=s + -1()(^-n1)*
tNxte
irPitn s="";I t(sn * 1000 0 +05) / 10.00
E0nd uS b
三、基编本程3
.. 编写程序1，计算输出下面并列数n前设（=n5）4项所有偶数中项和。的
×213×2×3×4,,×4×5,3…,…×nn(+)×1n+2)(,……要求：在运行程序时
采用适，当的式方行输进（入n）输和（计出结果算。）D
imn sA nIetegr
Prviat Sube oCmamn1_dClcik()
iDms AsL ong
n = Val(npIutoBx"输入(n的")值
)Fr io= 2 To n Step 2 s
=s i * +i(+ 1 *)( +i 2)
Netxi
rinP t数"列的中偶数和项： "; 是s
En duSb3.2.
写编程序,计算输并下面出列前数53的和。项1
2××3,2×-34×3×4×,5,-…,…(+1)^(--n1×)n(×(+n1)(×+n2))
（中其(-：)1^(-n1)示表1-的n-()次方1）要求
在：行程运时，采用适当序方式的进行输入（n和）输（出算结计）。
果iDm Ans InteergP
rvite aSb uomCmnad1C_likc()
iD sm As Lno
g =n aVl(InutpoB("输x入n值的")
s)= 0Fo
ir =1 To n
s = s +(-) ^1( i- )1* i*( i +1 *) i( +2)
extNi
Pritn "列中前3数项5的和： 是; s"
ndE Sub3
3. 编写.程，求下序面数前列50的项。和结果取位小4数。
,11/3(3),×/(15×5,)/1(×7)7…,…1,(/(n-1)2(2×n1))-…,…
求要在：运程行时序采用适当，的式方进行输（n入）输和出计算（结）。
果Dimn As ntIegre
Pivrae tSub Cmomand_1Cick(l)
Dm is s LongA
n= Va (InpltBox(u输入"的值n"))s=0
F
o ir= 1 T ons
=s+ 1/( 2( *i- )*(12* -1i))
exNti
s=In t(s* 10000 + .0)/150000
Prnt i数"中的列5前项0和是 ";： sEn
dubS3
..4 编写程序，计算输并下面出列中前n(设数n8=项)的和结。果取位小4。
1/数1,1!/!2,13/!1,/!,……41/n!,…,… （其 ，中!表示 求阶乘
）要求在运：程序时行，采适当用方式进的输行（入n和输出（计）算果结。）D
m n As Iintgere
Pivrtea SubC omanmd_C1icl()k
Di ms A Longs , tA Dosblue
s =0 n =
alVI(putnoBx"输入(n 值 ")
)t= 1 F
or i= 1To n
t = t* i
s = +st
Nex it
rPnt "si=;"s
nd ESub
35. .写编序，程算并输出下计面数前列n的项(设n和5=，0=0.x4)要求结果保留，位4数。小
ins()/x2,si(2nx/),s4i(3xn/)6,……s,innx)(/n,…2 … （ 中其si，为正n函弦）
要数：在运求程序时，行用适采的当方进式输行（入、x）和n输（出算结计）果。
Priavt Seu bCmomad1_Cnlcki()
Dmi nsA Inetegr i As In,etgerD
i m As Sinsgel x,A Ssnige, lt As Sngiel
s= 0x
= alVI(nutpBo("输x x入 ")值)
n = Val(nIutpoB("x输 入 n"值))For
i = 1 T o n
t =S n(i2* x) /( 2 *)
is s = +
teNxti
Print "s "= Int;( * 1s000 0+0 .5 )/100 0
E0ndSu b3.
. 6编程写序，计出算100到00之间所5有满足列下件条整的数：整数的每位和字数的能整除整数本身和。要：求在行程运序，时用采当适的式方出输算结计。果
P
ivrat eSu boCmanmd_1lCck(i)
iDms1 As In etge,r s As2In egetr
im Ds3 sA Itneer
goF ra= 1 0 0o T500s1
a=Mod 1 0
s2 = (a \ 1)0M d 10o
3 s= \ 10a0I
af oM (ds 1+s2 s+3 ) 0 T=en
Lihs1t.AdItem d
aEd nIf
extN a
nEdSub
.73写编序程，计算输出下并面数中前n列（设=2n）项5和的。结果4取位小数
。1/(×12)1/,(2×3,1/(3)×)4……,,1/n×((+n1)),……要
：在求运行序程，时用适采的方当式行输入（进n和）输出计（结果）算。
Dimn A Isnegtre
Piratve Sb Cummoand_Cli1ck()
Dims A sLog
nn V=alI(pnuBtxo"输入n(的"值)
s)=0
Fori =1 To
sn= s+ 1 /i(* (i 1))+
Nex it
s I=n(ts* 1 0000 0.+5/100)0
Pr0nit "数列的中50前项是和： ; s"
Ed Subn
.38.编 写序，计算程输出下并数列前35面的和项结，取4位果数。小1/
22/,33,4,4/5,/56/,6/7,7/,8…… , n/( +1n,)……要求：
运在程行序，时用适采的当方进式行输入（n和输出）计（结果算）
。iD mnAs ItngerePrivat
eSbu Cmoandm_Click1)(D
m s isAL ngo
n= Val(In utBpo("输x入n值的)")
s=0 Fo
r i =1 oTn
s =s i+/(i+1))
eNtx
i s=nt(I s*10 000 0+5)/.10000Print
"数 中列的前50项是：和 " ;s
Ed Snbu
3.9. 编写程，计序算10出0到0005之0间被3能整除但能不被13整的所除有数的平方根的和整保留。4小数。位要：在运求程行序，采时适当的用方输出式计算结果
P。riate vSb Comumadn1_liCkc)(
Dim sA siSngleF
o ar= 1 00 0T 50o00I
f a Mod = 0 3Ad a Mond1 30 hTen
s = s +qS(ar)E
nd fINe
tx a
s =nI(t *s1 00 + 00.5)/ 100
P0rit "ns"; s=End
uS
3b10. .编程写，序算计输并出下面数列前04项的，和结果4取小数。位2/1
,32,4/3/,/54,/6,57/6,87, /… ,(n+1)…n,/…
…要求在：行运序程，时采适当用方式的进输入行（）和n出（输计算果）。结
参看3(.)8
.131 .编写程，序下面数求的列S和当某项（即，1n/）的值!于小.0050求和终时止并输出,该项参加求s和。结取果4位小。数
11!,//12,!/31,……!,/1n!,…… 其中（! 表示求阶，）乘
要：求在行程序时，运采用适当方的输出计算式结。果P
irvaetS bu Cmoamnd_1lick(C
)Dmis sAS ngil,et A s ouDbel, An sIntgeer
= 0
n =s0
t=
1oD
n= n+
1t =t *
ns= + s1 /t
oopLUn ilt /1t
n ts="" s;E
nd uS b3
.1.2编 程写序计算并，出输面数列下n前的和(设项n50=，=0.x)，要求4结果留4保小位数
c。osx)/(,2cso2x()/4,cs(o3x)6/,…,…oc(ns)/xn2……, （其中， cso为余弦数）函
要求：运行程序在，采时适用的方式进行当入（输nx、和）输出计算（结果）
。参（3看5）
3..31 .写程序编，计下算数面列和的O，当第一S次现出数和于大5000时求终止并和出输结。果
1×,-2×2,3×43-4×5,,,…-1()^n(-1×)n×(n1)+,… （…其，中 表^幂运示算）要求：在运行
程序时，用采当适的方输出计算结果式。
Pirate Sub Covmamd1n_liCk(c
D)i oms s AinSgel t As,Do uble n,A s Itneer
og =s0
n=
t0 = 1
oD
=nn +1t
= n * ( + 1n)
o s =s o (-+1 ^ )( n -)1* t
Loo Upntlio >s5 000
Prit n"o="; ossEn
d Sub
3.4.1编写 序，计算并程输出下面列数前35项和的结果，取4位数小
3/1。，/537/5，9，7，11//，913/1，15113/……,，(n2+1/)2(-n1)
要求：运行程序时在采，适当用的方进式输入行（）n输出和计算（果结）
。参看(3.8)
3.51编写程.序求下面，列前数4项的0。和果结取位小4。
1,1数2/4^,1/^3,1/444^……,,/n^1,4…（…其，中^ 表幂运示算）
求要：运在行程序时采，用当适方式进的输行入（）和输出n（算计结）。果Pri
vate Sb Comumna1dC_lck()i
im sD As iSnlg,e tAs ouDbl,e n A sIntgeer
s= 1
t= 1
n= alVI(npuBtxo("输入项"数))For i
=2 o nT
= t1 /i ^4
s= s t+N
xt ei
riPn "s=t"; nIts *( 10000 +0. )5/ 1 0000
nEd Sb
u
3.1.6编写程序求，下面数列5前0项的。结和果取位4数。小
1,1/-2^4,13^4/,1-/4^4……,(-1,^(n)1-)/^n,……（其4，^中 表示运幂）算要求
在运：行序程，时采适用当方的式进输入（n行和）出输（算结果）。计
rPiavte ub CoSmamd1n_liCc()kD
i m Ass iSgnle,t A sDoube, l An sIteneg
s = r1
t = 1
n= V a(IlnptBou("输入项x"))数
Fori =2To n
t 1= /i ^
s 4=s + -1()(^-n1)*
tNxte
irPitn s="";I t(sn * 1000 0 +05) / 10.00
E0nd uS b