VB程序设计题库全.docx
- 文档编号:25283815
- 上传时间:2023-06-07
- 格式:DOCX
- 页数:25
- 大小:18.14KB
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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 程序设计 题库
![提示](https://static.bdocx.com/images/bang_tan.gif)