VB程序设计题库全.docx
《VB程序设计题库全.docx》由会员分享，可在线阅读，更多相关《VB程序设计题库全.docx（25页珍藏版）》请在冰豆网上搜索。
VB程序设计题库全
程序设计
第一题、
题目：
（事件）单击窗体
（响应）求50以所有偶数的和，并在窗体上输出来。
将结果存入变量S中。
代码：
DimIAsInteger
Fori=2To50
If（iMod2）=0Then
S=s+i
EndIf
Next
Print（CStr（s））
第二题
题目：
（事件）双击窗体
（响应）求s=1+1*2+1*2*3+….+1*2*3*….*10并将结果存入变量S中
代码：
Dimi,jAsInteger
DimkAsLong
k=1
s=0
Fori=1To10
Forj=1Toi
k=k*j
Next
s=s+k
k=1
Next
Print（CStr（s））
第三题
题目：
（事件）单击窗体
（响应）求100以偶数的和，并将结果输出在窗体上。
将结果存入变量SUM中
代码：
DimiAsInteger
Fori=1To100
IfiMod2=0Then
Sum=sum+i
EndIf
Next
Printsum
第四题
题目：
（事件）单击窗体
（响应）编写程序求10*11*12+11*12*13+….+15*16*17的结果
并将结果输出到窗体上。
将结果存入变量M中。
代码：
Dimi,jAsInteger
DimsAsLong
Fori=10To15
s=1
Forj=iToi+2
s=s*j
Next
m=m+s
Next
Print（CStr（m））
第五题
题目：
（事件）双击窗体
（响应）求100以奇数的和，并将结果输出在窗体上。
将结果存入变量SUM中。
代码：
DimiAsInteger
Fori=1To100
IfiMod2=1Then
sum=sum+i
EndIf
Next
Printsum
第六题
题目：
（事件）单击窗体
（响应）已知S=1+1/4+1/9+1/16+1/25+…+1/100,
结果输出在窗体上
代码：
DimsAsSingle
Fori=1To10
a=i*i
Sum=1/a+Sum
Next
PrintSum
第七题
题目：
（事件）双击窗体
（响应）求1+1*2+1*2*3+….+1*2*3*….*10,
并将结果存到变量S中
代码：
DimsAsLong
j=1
Fori=1To10
j=j*i
Sum=Sum+j
Next
PrintSum
第八题
题目：
（事件）单击窗体
（响应）求1—1/2+1/3—1/4+….+1/99—1/100的值。
将结果存入变量J中
代码：
DimjAsSingle
DimiAsSingle
j=0
Fori=1To100
k=（-1）^（i+1）/i
j=k+j
Nexti
Printj
第九题
题目：
（事件）双击窗体
（响应）s=20+21+22+…+263,求s的值，并将结果存储到变量S中。
代码：
DimsAsLong
s=20
Fors=21To263
b=s+1
Sum=Sum+b
Next
PrintSum
第十题
题目：
（事件）单击窗体
（响应）求出100以所有素数的和，并将结果输出
到窗体上，并存入所给变量SUM中
代码：
DimsumAsInteger
Fori=1To100
Forj=2Toi-1
ExitFor
Nextj
Nexti
IfiModj=0Then
EndIf
Ifj-iThen
sum=sum+i
EndIf
Printsum
第十一题
题目：
（事件）单击窗体
（响应）编写程序求10*11*12+11*12*13+….+15*16*17的结果
并将结果输出到窗体上。
将结果存入变量M中。
代码：
DimmAsLong
Fori=1To6
t=（i+9）*（i+10）*（i+11）
m=m+t
Next
Printm
第十二题
题目：
（事件）单击窗体
（响应）求10~20之间所有素数的乘积并输出在窗体上。
将结果存入变量L中
代码：
DimlAsLong
l=1
Fori=10To20
Forj=2Toi-1
IfiModj=0Then
ExitFor
EndIf
Nextj
Ifj=iThen
l=l*i
EndIf
Nexti
Printl
第十三题
题目：
（事件）单击窗体
（响应）求50以所有偶数的和，并在窗体上输出来。
代码：
DimsAsInteger
s=0
Fori=2To50Step2
s=s+i
Nexti
Prints
第十四题
题目：
（事件）单击窗体
（响应）在窗体上打印数列2/1,3/2,5/3,8/5,13/8…….的前十项，并求其和。
代码：
DimsAsSingle
Dima（）
Dimb（）
Dimc（）
a
（1）=2
b
（1）=1
c
（1）=a
（1）/b
（1）
a
（2）=3
a
（2）=2
a
（2）=a
（2）/b
（2）
s=s+c
（1）+c
（2）
Fori=3To10
a（i）=a（i-1）+a（i-2）
b（i）=b（i-1）+b（i-2）
c（i）=a（i）/b（i）
s=s+c（i）
Next
Prints
第十五题
题目：
（事件）单击窗体
（响应）求200~300之间既能被3整除又能被7整除的数。
并求出所有数之和存入变量SUM中。
代码：
DimsumAsInteger
sum=0
Fori=200To300
IfiMod3=0AndiMod7=0Then
sum=sum+i
EndIf
Next
Printsum
第十六题
题目：
（事件）双击窗体
（响应）求出100~200之间，能被5整除，但不能被3整除的数。
并求出所有数之和，存入变量SUM中
代码：
DimsumAsInteger
sum=0
Fori=100To200
IfiMod5=0AndiMod3<>0Then
sum=sum+i
EndIf
Next
Printsum
第十七题
题目：
（事件）双击窗体
（响应）求1!
+2!
+3!
+4!
+5!
并将结果输出到窗体上。
结果存入变量S中
代码：
DimsAsInteger
s=0
t=1
Fori=1To5
t=i*t
Sum=sum+t
Next
PrintSum
第十八题
题目：
（事件）双击窗体
（响应）求3+6+9+12+15+18+…..+300的和，并将结果输出到窗体上。
将结果存入变量SUM中
代码：
DimsumAsInteger
sum=0
Fori=3To300Step3
sum=sum+i
Nexti
Printsum
第二种方法：
当step为2的时候：
DimsAsInteger
DimiAsInteger
Fori=2To50Step2
s=s+i
Nexti
Prints
第十九题
题目：
（事件）单击窗体
（响应）求10!
的值，并将结果输出在窗体上。
将结果存入变量SUM中
代码：
DimsumAsLong
DimiAsInteger
sum=1
Fori=1To10
sum=i*sum
Next
Printsum
第二十题
题目：
（事件）单击窗体
（响应）求出100以所有素数的和，并将结果输出到窗体上，
并存入所给变量SUM中
代码：
DimiAsInteger
DimjAsInteger
DimkAsInteger
DimbAsBoolean
b=False
Fori=2To100
b=False
j=CInt（Sqr（i））
Fork=2Toj
IfiModk=0Then
b=True
EndIf
Next
Ifb=FalseThen
sum=sum+i
EndIf
Next
Printsum
第二十一题
题目：
（事件）单击窗体
（响应）求200~300之间既能被3整除又能被7整除的数。
并求出所有数之和
存入变量SUM中
代码：
DimiAsInteger
Fori=201To300
If（（iMod3）=0）And（（iMod7）=0）Then
Print（CStr（i））
sum=sum+i
EndIf
Next
Printsum
第二十二题
题目：
（事件）单击窗体
（响应）已知S=1+1/4+1/9+1/16+1/25+…+1/100，结果输出在窗体上。
将结果存入变量S中
代码：
DimiAsInteger
s=0
Fori=1To10
s=s+1/（i^i）
Next
Print（s）
第二十三题
题目：
（事件）单击窗体
（响应）在窗体上打印数列2/1,3/2,5/3,8/5,13/8…..的前10项，并求其和。
代码：
Dimi,j,k,mAsInteger
s=o
i=2
j=1
Fork=1To10
m=j
Print（CStr（i））&“/”&CStr（j）
j=i
i=i+m
s=s+i/j
Next
第二十四题
题目：
（事件）单击窗体
（响应）一球从100米高度自由落下，每次落地返回。
原高度的一半，求第10次落地时，共经过多少米？
并将结果在窗体上输出。
代码：
Dimj,iAsInteger
s=0
j=100
Fori=2To10
j=j/2
s=s+2*j
Next
s=100+s
Print（CStr（s））
第二十五题
题目：
（事件）双击窗体
（响应）s=20+21+22+…+263,求s的值，并将结果存储到变量s中。
代码：
DimiAsInteger
i=20
whilei<=263
s=s+i
i=i+1
Wend
Print（CStr（s））
第二十六题
题目：
（事件）双击窗体
（响应）求s=1+1*2+1*2*3+…+1*2*3*…*10，并将结果存到变量S中
代码：
Dimi,jAsInteger
DimkAsLong
k=1
s=0
Fori=1To10
Forj=1Toi
k=k*j
Next
s=s+k
k=1
Next
Print（CStr（s））
第二十七题
题目：
（事件）单击窗体。
（响应）求出1000-9999之间具有如下特点的四位数字，它的平方根恰好就是它中间的两位数字，例如，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
第二十八题
题目：
（事件）双击窗体
（响应）把一元钞票换成一分、二分、和五分的硬币（每种至少有一枚），求出其所有的换法，把结果输出在窗体上。
将所有的换法的数目存入变量N中
代码：
Dimi,j,kAsInteger
Fori=1To100
Forj=1To50
Fork=1To20
If（（i+2*j+k*5）=100）Then
Print（CStr（i））
Print（CStr（j））
Print（CStr（k））
n=n+1
EndIf
Next
Next
Next
第二十九题
题目：
（事件）单击窗体。
（响应）编写代码功能如（图1）。
将结果存入变量S中。
DimiAsInteger
Fori=1To10
s=s+i*i
Next
Print（CStr（s））
第三十题
题目：
（事件）双击窗体。
（响应）编写代码功能如（图1）。
将结果存入变量S中。
DimiAsInteger
s=1
Fori=1To10
s=s*i*i
Next
Print（CStr（s））
第三十题
题目：
（事件）双击窗体。
（响应）求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））
第三十题
题目：
（事件）双击窗体。
（响应）编写程序求10*11*12+11*12*13+…+15*16*17的结果，并将结果输出到窗体上。
并将结果存入变量M中。
Dimi,jAsInteger
DimsAslong
Fori=10To15
s=1
Forj=iToi+2
s=s*j
Next
m=m+s
Next
Print（CStr（s））
第三十一题
题目：
（事件）单击窗体。
（响应）生成一个一维数组（10个数组元素依次为：
15、23、72、43、96、23、3、65、88、17），写程序求出这个数组中的最大值、最小值和平均值，并输出在窗体上。
将最大值，最小值，平均值分别存入变量Max,Min,Aver中。
Dima
Dimi,sAsInteger
a=array（15,23,72,43,96,23,3,65,88,17）
Max=a（0）
Min=a（0）
s=0
Fori=0to90
Ifa（i）>maxThen
max=a（i）
EndIf
Ifa（i）min=a（i）
EndIf
s=s+a（i）
Next
aver=Int（s/10）
Print（CStr（max））
Print（CStr（min））
Print（CStr（aver））
第三十二题
题目：
（事件）单击窗体。
（响应）在窗体上输出100~200之间的所有合数。
求出所有数之和存入SUM中。
代码：
Dimi,j,sAsInteger
Fori=100To200
Forj=2ToSqr（i）
If（iModj）=0Then
Print（CStr（i））
sum=sum+i
ExitFor
EndIf
Next
Next
Printsum
第三十三题
题目：
（事件）双击窗体。
（响应）求出100~200之间能被5整除，但不能被3整除的数。
并求所有数之和，存入变量SUM中。
代码：
DimiAsInteger
Fori=100To200
If（（iMod5）=0）And（（iMod3）<>0）Then
Print（CStr（i））
Sum=sum+i
EndIf
Next
第三十四题
题目：
（事件）单击窗体。
（响应）求50以所有偶数之和，并在窗体上输出来。
将结果存入变量S中。
代码：
DimiAsInteger
Fori=2To50
If（iMod2）=0Then
s=s+i
EndIf
Next
Print（CStr（s））
第三十五题
题目：
（事件）双击窗体。
（响应）求出50以所有奇数的和，将结果存入变量SUM中。
代码：
DimiAsInteger
Fori=1To50
IfiMod2=1Then
Sum=sum+i
EndIf
Next
Printsum
第三十六题
题目：
（事件）：
单击窗体。
（响应）：
求10~20之间所有素数的乘积并输出在窗体上。
将结果存入变量L中。
代码：
DimiAsInteger
DimjAsInteger
DimbAsBoolean
l=1
b=False
Fori=10To20
Forj=2Toi-2
IfiModj=0Then
b=True
EndIf
Next
Ifb=FalseThen
l=l*i
EndIf
b=False
Next
PrintStr（l）
第三十七题
题目：
（事件）：
单击窗体。
（响应）：
求1!
+2!
+3!
+…+10!
的值，并在窗体上输出。
结果存入变量L中。
代码：
DimiAsInteger
DimsAsLong
DimjAsInteger
s=1
b=False
Fori=1To10
s=s*i
l=l+s
Next
PrintStr（l）
第三十八题
题目：
（事件）：
单击窗体。
（响应）：
求1-1/2+1/3-1/4+…+1/99-1/100的值。
将结果存入变量J中。
代码：
DimiAsInteger
Fori=1To100
Next
IfiMod2=1Then
j=j+1/i
Else
EndIf
IfiMod2=0Then
j=j-1/i
EndIf
Printj
第三十九题
题目：
（事件）：
单击窗体。
（响应）：
求1+2+3+4+…+100的值，并把结果输出在窗体上。
结果存入变量SUM中。
代码：
DimiAsInteger
Fori=1To100
Sum=Sum+i
Next
PrintSum
第四十题
题目：
（事件）：
双击窗体。
（响应）：
求1+2+3+5+8+13+….的前20项和，并将结果在窗体上输出。
将结果存入变量SUM中。
代码：
DimiAsInteger
Dimj（1To20）AsInteger
Fori=1To20
Ifi<3Then
j（i）=1
Else
j（i）=j（i-1）+j（i-2）
EndIf
Sum=Sum+j（i）
Next
PrintSum
第四十一题
题目：
（事件）：
双击窗体。
（响应）：
求100以奇数的和，并将结果输出在窗体上。
将结果存入变量SUM中。
代码：
DimiAsInteger
Fori=1To100
IfiMod2=1Then
Sum=Sum+i
EndIf
Next
PrintSum
第四十二题
题目：
（事件）：
单击窗体。
（响应）：
求100以偶数的和，并将结果输出在窗体上。
将结果存入变量SUM中。
代码：
DimiAsInteger
Fori=1To100
IfiMod2=0Then
Sum=Sum+i
EndIf
Next
PrintSum
第四十三题
题目：
（事件）：
双击窗体。
（响应）：
求1+5+10+15+…+500的和，并将结果输出在窗体上。
将结果存入变量SUM中。
代码：
DimiAsInteger
Fori=1To500
IfiMod5=0Then
Sum=Sum+i
EndIf
Next
PrintSum
第四十四题
题目：
（事件）：
双击窗体。
（响应）：
求3+6+9+12+15+18+….+300的和，并将结果输出在窗体上。
将结果存入变量SUM中。
代码：
DimiAsInteger
Fori=1To500
IfiMod3=0Then
Sum=Sum+i
EndIf
Next
PrintSum
第四十五题
题目：
（事件）：
单击窗体。
（响应）：
求10!
的值，并将结果输出在窗体上。
将结果存入变量SUM中。
代码：
DimiAsInteger
Sum=1
Fori=1To10
Sum=Sum*i
Next
PrintSum
第四十六题
题目：
（事件）：
单击窗体。
（响应）：
求数列1+3+3+9+27+…前6项的和，并将结果输出在窗体上。
将结果存入变量SUM中。
代码：
DimiAsInteger
Dimj（1To6）AsInteger
Fori=1To6
Ifi<3Then
j（i）=3^（i-1）
Else
j（i）=j（i-1）*（i-2）
EndIf
Sum=Sum+j（i）
Next
PrintSum
升级会员 