VB上机试题.doc

129：单击窗体。求出100以内所有素数的和，并将结果输出到窗体上,并存入所给变量SUM中
DimjAsInteger
DimkAsInteger
DimbAsInteger
b=False
Fori=2To100
b=False
j=Int(Sqr(i))
Fork=2Toj
IfiModk=0Then
b=True
EndIf
Next
Ifb=FalseThen
Sum=Sum+i
EndIf
Next
PrintSum
130:求200~300之间既能被3整除又能被7整除的数。并求出所有数之和存入变量SUM中
DimiAsInteger
Fori=201To300
IfiMod3=0AndiMod7=0Then
Printi
Sum=Sum+i
EndIf
Next
PrintSum
131:已知S=1+1/4+1/9+1/16+1/25+…+1/100，结果输出在窗体上
PrivateSubForm_Click()
DimsAsSingle
DimIasinteger
S=0
ForI=1to10
S=s+1/(i^2)
Next
Print(s)
EndSub

132:在窗体上打印数列2/1,3/2,5/3,8/5,13/8…的前10项，并求其和。
PrivateSubForm_Click()
DimsAsSingle
Dimi,j,k,masInteger
S=0
I=2
J=1
Fork=1to10
M=j
Print(cstr(i))&"/"&cstr(j)
J=i
I=i+m
S=s+i/j
next
EndSub

133:一球从100米高度自由落下，每次落地返回,原高度的一半，求第10次落地时，共经过多少米？并将结果在窗体上输出。
PrivateSubForm_Click()
DimsAsSingle
Dimj,Iasinteger
S=0
J=100
ForI=2to10
J=j/2
S=s+2*j
Next
S=100+s
Print(cstr(s))

EndSub

134:s=20+21+22+…+263，求s的值，并将结果存储到变量S中。
DimiAsInteger
i=20
Whilei<=263
s=s+i
i=i+1
Wend
Print(CStr(s))

136：求出具有如下特点的四位数字，它的平方根恰好就是它中间的两位数字，例如，2500开平方为50，恰为2500的中间两位，找出所有这样的四位数。并求出这两个数字的和存入SUM中
DimiAsInteger
DimjAsInteger
Fori=1000to9999
j=Val(Mid(Trim(Str(i)),2,2))
Ifj^2=ithen
Printi
sum=sum+i
Endif
Next
137：把一元钞票换成一分、二分和五分的硬币（每种至少有一枚），求出其所有的换法，把结果输出在窗体上。将所有的换法的数目存入变量N中
DimI,j,kasinteger
Fori=1to100
Forj=1to50
Fork=1t020
If((i+2*j+k*5)=100)Then
Print(CStr(i))
Print(CStr(j))
Print(CStr(k))
n=n+1
Endif
Next
Next
Next
138:公鸡3元1只，母鸡5元1只，小鸡一元3只，怎样用100元买。100只鸡。把结果输出到窗体上。将答案数存放在变量N中
Dimiasinteger
Dimjasinteger
Dimkasinteger
Fori=1to20'母鸡
Forj=1to33'公鸡
Fork=3to100'小鸡
If((kmod3)=0)and((i*5+j*3+k/3)=100)and((i+j+k=100)
Print(cstr(i))
Print(cstr(j)
Print(cstr(k))
N=n+1
Endif
Nxet
Next
Next
139:编写代码功能如(图1)。将结果存入变量S中。
DimiAsInteger
Fori=1To10
s=s+i*i
Next
Print(CStr(s))
140:编写代码功能如(图1)。将结果存入变量S中
Dimiasinteger
S=1
Fori=1to10
S=s*i*i
Next
Print(cstr(s))
141:求1!+2!+3!+4!+5!并将结果输出到窗体上。结果存入变量S中
Dimi,j,k,sAsInteger
Fori=1To5
k=1
Forj=1Toi
k=k*j
Next
s=s+k
Next
Print(CStr(s))
142:编写程序求10×11×12+11×12×13+…+15×16×17的结果，并将结果输出到窗体上。将结