VB题库程序设计.docx

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）

'【程序设计】

----------------------