VB题库程序设计.docx
《VB题库程序设计.docx》由会员分享,可在线阅读,更多相关《VB题库程序设计.docx(32页珍藏版)》请在冰点文库上搜索。
VB题库程序设计
程序设计
〖第1题〗『程序设计』(5分)(题号:
148)
'题目:
(事件)单击窗体。
'(响应)求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)
----------------------
〖第2题〗『程序设计』(5分)(题号:
150)
'题目:
(事件)单击窗体。
'(响应)求1-1/2+1/3-1/4+……+1/99-1/100的值。
'将结果存入变量J中。
'注意:
请在指定的事件内编写代码。
答案:
----------------------
DimiAsInteger
Fori=1To100
IfiMod2=1Then
j=j+1/i
ElseIfiMod2=0Then
j=j-1/i
EndIf
Next
Printj
----------------------
〖第3题〗『程序设计』(5分)(题号:
131)
'【程序设计】
'题目:
(事件)单击窗体。
'(响应)已知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)
----------------------
〖第4题〗『程序设计』(5分)(题号:
152)
'【程序设计】
'题目:
(事件)双击窗体。
'(响应)求1+2+3+5+8+13+……前20项的和,并将结
'果在窗体上输出。
将结果存入变量SUM中。
'注意:
请在指定的事件内编写代码。
答案:
----------------------
DimiAsInteger
Dimj(1To20)AsInteger
Fori=1To20
Ifi<3Then
j(i)=i
Else
j(i)=j(i-1)+j(i-2)
EndIf
sum=sum+j(i)
Next
Printsum
----------------------
〖第5题〗『程序设计』(5分)(题号:
157)
'【程序设计】
'题目:
(事件)单击窗体。
'(响应)求10!
的值,并将结果输出到窗体上。
'将结果存入变量SUM中。
'注意:
请在指定的事件内编写代码。
答案:
----------------------
DimiAsInteger
sum=1
Fori=1To10
sum=sum*i
Next
Printsum
----------------------
〖第6题〗『程序设计』(5分)(题号:
489)
'题目:
(事件)单击窗体。
'(响应)已知sum=1-1/3!
+1/5!
-1/7!
+1/9!
'请将sum结果值输出到窗体上。
'使用dowhile...loop语句完成程序
'注意:
请在指定的事件内编写代码。
答案:
----------------------
DimiAsInteger
DimnAsInteger
i=1
p=1
DoWhilei<=10
p=p*i
IfiMod2=1Then
n=n+1
sum=sum+(-1)^(n-1)/p
EndIf
i=i+1
Loop
Printsum
----------------------
〖第7题〗『程序设计』(5分)(题号:
154)
'【程序设计】
'题目:
(事件)单击窗体。
'(响应)求100以内偶数的和,并将结果输出在窗体上。
'将结果存入变量SUM中
'注意:
请在指定的事件内编写代码。
答案:
----------------------
DimiAsInteger
Fori=1To100
IfiMod2=0Then
sum=sum+i
EndIf
Next
Printsum
----------------------
〖第8题〗『程序设计』(5分)(题号:
134)
'【程序设计】
'题目:
(事件)双击窗体。
'(响应)s=20+21+22+…+263,求s的值,并将结果
'存储到变量S中。
'注意:
请在指定的事件内编写代码。
答案:
----------------------
DimiAsInteger
i=20
Whilei<=263
s=s+i
i=i+1
Wend
Print(CStr(s))
----------------------
〖第9题〗『程序设计』(5分)(题号:
142)
'【程序设计】
'题目:
(事件)单击窗体。
'(响应)编写程序求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))
〖第1题〗『程序设计』(5分)(题号:
149)
'【程序设计】
'题目:
(事件)单击窗体。
'(响应)求1!
+2!
+3!
+……+10!
的值,并在窗体上输出。
'结果存入变量L中。
'注意:
请在指定的事件内编写代码。
答案:
----------------------
DimiAsInteger
DimsAsLong
DimjAsInteger
s=1
Fori=1To10
s=s*i
l=l+s
Next
PrintStr(l)
----------------------
〖第2题〗『程序设计』(5分)(题号:
146)
'【程序设计】
'题目:
(事件)单击窗体。
'(响应)求50以内所有偶数的和,并在窗体上输出出来。
'将结果存入变量S中。
'注意:
请在指定的事件内编写代码。
答案:
----------------------
DimiAsInteger
Fori=2To50
If(iMod2)=0Then
s=s+i
EndIf
Next
Print(CStr(s))
----------------------
〖第3题〗『程序设计』(5分)(题号:
140)
'【程序设计】
'题目:
(事件)双击窗体。
'(响应)编写代码功能如(图1)。
'将结果存入变量S中
'注意:
请在指定的事件内编写代码。
答案:
----------------------
DimiAsInteger
s=1
Fori=1To10
s=s*i*i
Next
Print(CStr(s))
----------------------
〖第4题〗『程序设计』(5分)(题号:
484)
'【程序设计】
'题目:
(事件)单击窗体。
'(响应)求从100到1000之间所有是3的倍数的数之
'和,当和大于3000时,停止计算并输出和。
请将结果输
出到窗体上,并存入所给变量SUM中。
使用for...next语
'句完成程序
'注意:
请在指定的事件内编写代码。
答案:
----------------------
DimiAsInteger
sum=0
fori=100to1000
ifimod3=0then
sum=sum+i
ifsum>3000then
exitfor
endif
endif
i=i+1
next
Printsum
----------------------
〖第5题〗『程序设计』(5分)(题号:
156)
'【程序设计】
'题目:
(事件)双击窗体。
'(响应)求3+6+9+12+15+18+……+300的和,并将结
'果输出到窗体上。
将结果存入变量SUM中。
'注意:
请在指定的事件内编写代码。
答案:
----------------------
DimiAsInteger
Fori=3To300
IfiMod3=0Then
sum=sum+i
EndIf
Next
Printsum
----------------------
〖第6题〗『程序设计』(5分)(题号:
412)
'【程序设计】
'题目:
(事件)单击窗体。
'(响应)输出所有的三位数,它满足该数中有某两位
'为相同的数,且该数是一个完全平方数。
'求出所有这些数的和,并将结果存入变量SUM中。
'注意:
请在指定的事件内编写代码。
答案:
----------------------
dimaasinteger,basinteger
dimb3asinteger,b2asinteger,b1asinteger
fora=10to31
b=a*a
b3=b\100
b2=(b\10)mod10
b1=bmod10
ifb1=b2orb1=b3orb2=b3then
?
a,b
sum=sum+b
endif
nexta
?
sum
----------------------
〖第7题〗『程序设计』(5分)(题号:
487)
'【程序设计】
'题目:
(事件)单击窗体。
'(响应)已知s=1+1/3!
+1/5!
+1/7!
+1/9!
请将s结果值
'输出到窗体上。
使用dowhile...loop语句完成程序
'注意:
请在指定的事件内编写代码。
答案:
----------------------
DimiAsInteger
i=1
p=1
DoWhilei<=9
p=p*i
IfiMod2=1Then
s=s+1/p
EndIf
i=i+1
Loop
Prints
sum=s
〖第8题〗『程序设计』(5分)(题号:
496)
'【程序设计】
'题目:
(事件)单击窗体。
'(响应)求1-100中为5或7的倍数的和。
请将结果
'输出到窗体上,并存入所给变量SUM中。
'使用while...wend语句完成程序
'注意:
请在指定的事件内编写代码。
答案:
----------------------
DimiAsInteger
i=1
Whilei<=100
IfiMod5=0OriMod7=0Then
Sum=Sum+i
EndIf
i=i+1
Wend
PrintSum
----------------------
〖第9题〗『程序设计』(5分)(题号:
500)
'【程序设计】
'题目:
(事件)单击窗体。
'(响应)输出一个如图所示的由数字组成的倒三角形
'请将结果存入变量S中(要求利用msgbox函数
'显示结果,使用for...next语句完成程序)
'注意:
请在指定的事件内编写代码。
答案:
----------------------
DimtmpAsString
DimiAsInteger,jAsInteger
tmp=""
Fori=10To1Step-1
Forj=0Toi-1
tmp=tmp&CStr(j)
Next
tmp=tmp&vbCrLf
Next
MsgBoxtmp
s=tmp
〖第1题〗『程序设计』(1分)(题号:
478)
'【程序设计】
'题目:
编写函数fun,其功能是:
能计算从1开始到n的
'自然数中偶数的平方的和。
--------------------------------
'注意:
请在指定的函数过程内编写代码。
--------------------------------
答案:
----------------------
DimsumAsInteger,iAsInteger
sum=0
Fori=2TonStep2
sum=sum+i*i
Next
fun=sum
----------------------
〖第2题〗『程序设计』(1分)(题号:
465)
'【程序设计】
'题目:
判断一个数是否是素数。
'注意:
请在指定的事件内编写代码。
答案:
----------------------
DimiAsInteger
Prime=True
Fori=2ToInt(Sqr(m))
IfmModi=0ThenPrime=False:
ExitFor
Nexti
〖第3题〗『程序设计』(1分)(题号:
473)
'【程序设计】
'题目:
将一张面值为100元的人民币等值换成100张5元、
'1元和0.5元的零钞,要求每种零钞不少于1张,
'问有哪几种组合?
将组合数存入变量OUT中。
'注意:
请在指定的事件内编写代码。
答案:
----------------------
DimnAsInteger
Dimi%,j%,k%
Print"5?
1?
0.5?
"
Fori=1To20
Forj=1To100-i
k=100-i-j
If5#*i+1#*j+0.5*k=100Then
Printi,j,k
n=n+1
EndIf
Nextj
Nexti
out=n
----------------------
〖第4题〗『程序设计』(1分)(题号:
469)
'【程序设计】
'题目:
用迭代法求某个数的平方根。
已知求平方根的迭代公式如图:
'算法思想:
对于一个问题的求解x,可由给定的一个初值x0,根据某一
'迭代公式得到一个新的值x1,这个新值x1比初值x0更接近要求的值x;
'再以新值作为初值,即:
x1→x0,重新按原来的方法求x1,重复这一过和
'直到|x1-x0|<ε(某一给定的精度)。
此时可将x1作为问题的解。
'注意:
请在指定的事件内编写代码。
答案:
----------------------
Dimx0AsSingle,x1AsSingle
x0=a/2'迭代初值
x1=0.5*(x0+a/x0)
Do
x0=x1'为下一次迭代作准备
x1=0.5*(x0+a/x0)
LoopWhileAbs(x1-x0)>0.00001
Fsqrt=x1
----------------------
〖第5题〗『程序设计』(1分)(题号:
472)
'【程序设计】
'题目:
统计字符串中的单词个数。
'算法思路:
'
(1)从文本(字符串)的左边开始,取出一个字符;
'设逻辑量WT表示所取字符是否是单词内的字符,初值设为False
'
(2)若所取字符不是"空格","逗号","分号"或"感叹号"等单词
'的分隔符,再判断WT是否为True,若WT不为True则表是新单词的开始,
'让单词数Nw=Nw+1,让WT=True;
'(3)若所取字符是"空格","逗号","分号"或"感叹号"等单词的分隔符,
'则表示字符不是单词内字符,让WT=False;
'(4)再依次取下一个字符,重得
(2)(3)直到文本结束。
'注意:
请在指定的事件内编写代码。
答案:
----------------------
DimnwAsInteger,nLAsInteger
DimiAsInteger
DimstrTAsString
DimWtAsBoolean
nw=0:
Wt=False
nL=Len(RTrim(strI))
Fori=1TonL
strT=Mid$(strI,i,1)'取第i个字符
SelectCasestrT
Case"",",",";","!
"
Wt=False
CaseElse
IfNotWtThen
nw=nw+1
Wt=True
EndIf
EndSelect
Nexti
CountWord=nw
〖第6题〗『程序设计』(1分)(题号:
481)
'【程序设计】
'题目:
编写函数fun其功能是:
根据整型形参m,
'计算如下公式的值:
'y=1+1/3+1/5+1/7+...+1/(2m+1)
'例如:
若m=9,则应输出:
2.133255
'注意:
请在指定的事件内编写代码。
答案:
----------------------
DimyAsDouble
DimiAsInteger
y=1
Fori=1Tom
y=y+1/(2*i+1)
Next
fun=y
----------------------
〖第7题〗『程序设计』(1分)(题号:
479)
'【程序设计】
'题目:
编写函数fun其功能是:
根据整型形参m,计算
'如下公式的值:
y=1/2+1/4+1/6+...+1/2m
'例如:
若m=9,则应输出:
1.41448412698413
'注意:
请在指定的函数过程内编写代码。
答案:
----------------------
DimyAsDouble
DimiAsInteger
Fori=1Tom
y=y+1/(2*i)
Next
fun=y
----------------------
〖第8题〗『程序设计』(1分)(题号:
470)
'【程序设计】
'题目:
将一个十进制整数m转换成→r(2-16)进制字符串。
'方法:
将m不断除r取余数,直到商为零,以反序得到结果。
'下面写出一转换函数,参数idec为十进制数,ibase为要转
'换成数的基(如二进制的基是2,八进制的基是8等),
'函数输出结果是字符串?
'注意:
请在指定的事件内编写代码。
答案:
----------------------
DimstrDecR$,iDecR%
strDecR=""
DoWhileidec<>0
iDecR=idecModibase
IfiDecR>=10Then
strDecR=Chr$(65+iDecR-10)&strDecR
Else
strDecR=iDecR&strDecR
EndIf
idec=idec\ibase
Loop
TrDec=strDecR
----------------------
〖第9题〗『程序设计』(1分)(题号:
471)
'【程序设计】
--------------------------------
'题目:
对字符串进行加密处理。
'加密过程:
'将每个字母C加一序数K=5,即c=chr(Asc(c)-5),
'这时"Z"→"U","z"→"u","Y"→"T"…
'当加序数后的字母小于"A"或"a"则c=Chr(Asc(c)-k+26)
'注意:
请在指定的事件内编写代码。
答案:
----------------------
DimiAsInteger
DimstrpAsString,strTAsString,iAAsString
DimnlAsString
i=1:
strp=""
nl=Len(RTrim(strI))
DoWhile(i<=nl)
strT=Mid$(strI,i,1)'取第i个字符
If(strT>="A"AndstrT<="Z")Then
iA=Asc(strT)+5
IfiA>Asc("Z")TheniA=iA-26
strp=strp+Chr$(iA)
ElseIf(strT>="a"AndstrT<="z")Then
iA=Asc(strT)+5
IfiA>Asc("z")TheniA=iA-26
strp=strp+Chr$(iA)
Else
strp=strp+strT
EndIf
i=i+1
Loop
EnyStr=strp
----------------------
〖第10题〗『程序设计』(1分)(题号:
483)
'【程序设计】
'题目:
编写函数fun,函数的功能是:
求1到m
'之间的偶数之积。
'注意:
请在指定的函数过程内编写代码。
答案:
----------------------
DimyAsDouble
y=1
DimiAsInteger
Fori=1Tom
IfiMod2=0Then
y=y*i
EndIf
Next
fun=y
----------------------
〖第11题〗『程序设计』(1分)(题号:
468)
'【程序设计】
----------------------