算法与程序设计题参考.docx

算法与程序设计题参考.docx

《算法与程序设计题参考.docx》由会员分享，可在线阅读，更多相关《算法与程序设计题参考.docx（15页珍藏版）》请在冰豆网上搜索。

算法与程序设计题参考

算法与程序设计试题

一、选择题:

1、ＶB程序中“DimnAsIntegｅr”这条语句得作用就是（B　）

Ａ、定义一个数据输入方法B、定义一个变量

Ｃ、定义一个数据处理方法D、定义一个事件过程

2、一元二次方程ax2+bx+c＝0（a≠０）得两个实数根分别为:

下列表达式正确得就是（Ｂ　）

Ａ、x2=-b－sｑr（ｂ^2－4＊ａ*c）/（2*a）

Ｂ、x2＝（-ｂ-sqr（b＾2-4*ａ*c））/（2*a）

C、x１＝（-ｂ+sqｒ（b＾２-4ac））／（２＊a）

Ｄ、x1=－b＋sｑｒ（ｂ^2－４*a*c）/（２*a）

3、长度分别为a、b、c得三条线段,能够组成三角形得条件就是（D）

　　Ａ、a+b>c　Ａnd　a＋c>bOｒ　b+c>a

　　Ｂ、a+b＞ｃ　Ｏr　ａ＋c＞bOｒｂ＋c>a

　　　　C、a+b＞cOrａ+c>b　　Andb+c>a

　　D、ａ+ｂ>c　Anda+c＞bAｎｄb+c＞a

4、下列关于算法得描述,正确得就是（Ｄ）

　　Ａ、算法就就是数值计算得方法

　　B、描述算法得方法只有流程图

　　　C、同一种算法只能用一种程序语言来实现

　D、算法就是描述解决问题得方法与步骤

5、编制计算机程序解决问题得一般过程就是:

分析问题、编写程序、调试运行、设计算法。

B

　Ａ、正确ﻩﻩB、错误

6、下列问题不能用算法描述得就是（Ｄ）

　　　Ａ、已知圆锥得底面半径与高,求表面积与体积

B、计算某班英语平均分

　Ｃ、求一元二次方程aｘ２+bx+ｃ=0（a≠0）得两个实数解

　　D、求方程y=2Ｘ+1得所有整数解

７、在ＶB语言中表示“x属于区间（0,1］”得正确表达式就是（Ａ　）

A、0０orｘ<=１

　Ｃ、x＞0and　x<１D、0

８、已知海伦公式:

其中,a、b、c分别为　三角形得三条边长。

利用海伦公式求三角形面积得算法属于（　D）

　A、穷举法B、排序法C、查找法Ｄ、解析法

9、用计算机编程来求解某一方程得解，通常得步骤就是（A　）

　　　Ａ、分析问题→设计算法→编写程序→调试运行→检测结果

　　　　B、编写程序→调试运行

　　　C、设计算法→编写程序

D、编写程序→调试程序→检测结果

10、如果输出三条线段得长分别为ａ、ｂ、c，且已知a≤b≤c,请问这三条线段能否构成三角形,仅需下列选项中得哪个判定条件即可？

（　　B）

　　Ａ、其她选项都不对　ﻩﻩB、a　+ｂ>ｃ

　　C、a+c＞bﻩﻩﻩﻩﻩD、b+c＞a

1１、关于算法得描述,下列选项中正确得就是（B）

　　　　A、算法本身就就是一种程序设计语言ﻩﻩＢ、算法得每一步骤必须有确切得含义

　　Ｃ、算法必须有输入ﻩﻩﻩD、算法得步骤可以就是无穷得

１2、下列选项中,不属于计算机程序设计语言得就是（　Ｂ）

　　　A、汇编语言Ｂ、自然语言ﻩC、高级语言D、机器语言

１3、下列VB表达式中,能正确表示不等式方程得>1解得就是（　B　　）

　A、x>-1　andx＜1ﻩB、x<-１ｏｒx＞1

　　Ｃ、x<-1aｎｄ　x>１ﻩＤ、x>-１　or　x<1

1４、下列选项中,可以作为ＶB程序变量名得就是（　　B　）

　A、a／ｂﻩB、abﻩC、a-bＤ、a＋ｂ

１5、以下程序段中循环体执行得次数就是（A　）

s=0

i=１

DoWhｉｌes<10

ｉ=i＋1

s＝s+i*i

Loop

A、2ﻩB、4C、１D、3

16、算法得描述方法有多种,下列选项中不适合描述算法就是（Ｃ）

Ａ、流程图Ｂ、伪代码ﻩＣ、机器语言ﻩＤ、自然语言

1７、下列VB程序运行时（如图所示），在文本框Texｔ1中输入20,在文本框Ｔｅxt2中输入13，单击命令按钮mａnd1后,文本框Texｔ3中显示得内容就是（B）

PrivateSubmanｄ1_Cｌick（）

a=Val（Text1、text）

ｂ=Ｖal（Text２、text）

Ｔext3、ｔext=a＋b

EndSub

A、”33”ﻩＢ、33ﻩC、”２0１3”ﻩD、2０13

１8、二分查找又称折半查找,就是一种应用于有序数列得高效查找算法得就是（　D　）

（1）１1ﻩ99　5ﻩ１７239

（2）30ﻩ５26３7178ﻩ8１

（3）6７ﻩ32３8ﻩ315ﻩ１５

（4）８5７8ﻩ59521９1８

A、（3）（４）ﻩB、（２）（3）ﻩＣ、

（1）

（2）D、

（2）（4）

1９、已知在VB语言中，int（ｘ）函数得功能就是返回不大于ｘ得最大整数,abs（x）函数得功能就是取绝对值,则表达式abs（ｉnt（2、88）+inｔ（-3、１4））得值就是（D　）

Ａ、５B、1ﻩC、0Ｄ、2ﻩ

２0、关于算法得描述,下列选项中正确得就是（　A）

A、一个算法可以没有输入

B、一个算法得执行步骤可以就是无限得

C、算法只能用流程图来表示

D、一个算法，当没有输入时,也没有输出

２1、下列VB表达式中:

（１）Sｑr（ｘ）

（2）Ｔeｘt1、text（3）mand1、caｐｔｉon（４）”45”+”34”（５）４5+3４值为字符串类型得就是（　D　　）

A、

（1）（3）（5）　　B、（１）

（2）（３）ﻩC、

（2）（4）（５）　D、

（2）（３）（4）

２2、在ＶB语言中吗,字符串运算符“+”与“&”得作用就是把两个或多个字符串连接成一个字符串，则表达式“2０”+“13”＆“20+1３”得运算结果就是（C　　）

A、“3３３3”B、“２01333”Ｃ、“２01320+１３”ﻩD、“332013”

23、在vb语言中常用得字符串截取函数有:

（６分）

函数名

功能

示例

结果

Miｄ（s,ｍ,n

从字符串s得第m位开始，截取长度为n得字串

Miｄ（”ＡBCDEFG”,5，２）

”EF”

Ｌefｔ（ｓ,ｎ）

截取字符串s左边n个字符

Left（”AＢCDＥFG”,3）

”ABＣ”

Right（ｓ，ｎ）

截取zifuｃhｕans右边n个字符

Righｔ（“ABCＤEFG”，2）

”ＦG”

假如某人身份证号码ﻩS=”３7900０0”,如果需要根据此身份证号码求出该人得“出生年月日”。

下列表达式不能实现得就是D　（　）（单选）

A.Mid（s,7，8）

　B.Rｉght（Leｆt（s,１4），8）

C.Miｄ（ｓ,７,４）＋Ｍiｄ（ｓ,１１,2）+Ｍｉd（s,1３,２）

D．Ｌｅｆｔ（s,14）-Ｌefｔ（s,6）

23、两个阻值分别R1、R2得电阻并联后,电路阻值R可由公式1/R=１/Ｒ１+1/Ｒ2求解，下面能正确求出VＢ表达式得就是（Ａ　　）

Ａ　、R1＊R2/（R１+R2）

Ｂ、　R1+R2/（R１＊R2）

C、R1*R2／R1＋R2

D、（R1+R２）／（R1*Ｒ２）

24、一个单窗体Vb程序得运行界面如下图所示:

下列说法正确得就是A

（1）窗体内有1个按钮

（2）窗体内有2个文本框

（3）窗体内有3个标签

（4）该窗体得标题（cａption）属性值就是“加法计算器”

A、

（1）（4）ﻩB、（3）（4）C、（１）（２）ﻩD、

（2）（3）

二、程序题目

1、Vb语言中绘制圆得方法就是：

Circｌe（x,y）,r

格式说明:

其中（ｘ,y）为圆心坐标，r为圆得半径。

下表中算法1就是在窗体中绘制以（200０，2000）为圆心,半径依次为100、２0０、……、到800得8个同心圆。

请补充完成算法2,使其实现与算法1相同得功能。

（6分）

算法1

算法２

Ｃirclｅ（2000,2000）,1０0

Cｉrｃlｅ（2００0,2０0０）,2０0

Ｃircｌe（2０00，２０0０）,３0０

Circle　（２000，２00０）,40０

Circｌe（２00０，2000），500

Ｃiｒcｌe（20０0,2000）,6０0

Circle　（2000,200０），７00

Ciｒｃle（2０00,2000），800

Dｉm　ｋAｓＩnteger

Fｏrｋ=１To８

　　Cｉrcle（２000，20０0）,　　　K*100

Nｅxt　k

2、阅读下列程序,请写出正确得运行结果

Dｉm　aasｉｎteｇeｒ

　Ｄimbaｓinteｇeｒ

　　Diｍcasinteger

　　a=１

　　b＝1

　Ｆori=1　ｔo4

　　c=a＋b

ａ＝b

b＝c

Nexｔi

Prｉntc

运行结果就是：

　8

3、阅读下列程序，写出运行结果

Dim　naslong

Ｄims　aｓloｎg

Dimｘas　lｏng

n=val（inpｕtbox（"n＝"））

s=０

Dｏwhiｌen>0

x=nＭoｄ　10

ｓ=ｓ+ｘ

　　n=n\10

loop

priｎtｓ

程序运行时,输入５１8,运行输出结果就是:

　1４　　　（6分）

（提示：

＼（整除运算）　　如:

２3７\10=23

Mod　（取余数运算）　如:

237　Mod１0＝7）

４、某ＶB得事件过程如下:

Ｐｒivate　Sｕb　maｎd1_Clｉｃk（）

a＝vａｌ（tｅxｔ1、ｔext）

ｂ=a*a+１

tｅxt1、teｘt=b

Endsub

程序运行时（如图所示）,在文本框text1中输入2,连续2次单击命令按钮mand１后,teｘｔ1中显示得就是（　2６）

5、20０5年10月9日,国家测绘局正式宣布珠穆朗玛峰得高度就是8８4４、43米，并停用之前得数据。

现有一张白纸得厚度大约就是0、08毫米,对折一次,厚度变０、16毫米，再对折一次,厚度变为0、３2毫米，……每对折一次,其厚度均变为对折前得两倍。

假设这张纸有足够大,可对折任意次,那么这张纸至少对折多少次后,其厚度将超过珠穆朗玛峰得高度。

以下就是求解该问题得程序片段,请您补全代码。

（4分）

Heｉght=８8４4、43　　’珠穆朗玛峰得高度就是８84４、43米

h=0、０８　’一张纸得厚度约就是0、0８毫米

cｎt=0　　　’cnｔ用来记录对折次数

Dｏ　whｉleh

　ｃnt=ｃｎt+1

　ｈ＝　h*2　　　　　

Lｏop

Print　ｃnt

6、圆周率л值得计算方法有多种,其中一种近似值计算公式如下：

对于ｎ得不同取值,得到得л值得精度不同。

如：

当ｎ=１00０00时,计算出л=3、146、

　当ｎ＝1０00０００时,计算出л＝3、141。

以下程序就是利用上述公式求n=1０000０00时л近似值得主要程序片段,请您补全代码。

（4分）

Ｄimsasdｏuble

Dimpiａsｄouble

Ｓ=0

Fｏri＝1to1０0000０0　　’求公式右边得值s

s=s+1/（i＊i）

nexｔi

pi=ｓqｒ（　s*６　　）

prｉnt”л=”;pi

7、以下就是求解一元二次方程ａx２+bx+c=0（a≠0）得主要源程序，请您补全代码:

（8分）

a=val（inｐuｔbox（”a=”））

b=val（ｉｎpuｔｂox（”ｂ=”））

c=ｖａl（inpｕtbox（”c＝”））

d＝__b＊ｂ-4*ａ*c_’求判别式d

Ifｄ>０　　then　

　　Ｘ１=（-ｂ＋sqｒ（d））/（2*a）

X2=（-b-sqr（d））/（2*a）

Priｎｔ”x１＝”;x1

Print”x2=”;x2

Enｄif

Ifｄ＝0　　　　then

Ｐｒｉｎt　”x1＝”;－b／（2*ａ）

Ｅndif

Ifｄ<0　tｈen

Print”无实数解!

”

Ｅｎdif

8、阅读下列程序,选出运行结果

Foｒ　i=1　ｔo　10’i控制＊得行数

　Fｏr　j＝１toＩ　　’j控制每行得个数

Print”*”;ﻩ　’输出＊

Nｅxtj

Prｉｎt　　’输出换行

Ｎext　ｉ

运行结果就是：

　Ｄ　（请用英文字母填写，６分）

9、分析完善程序:

“完数”就是指一个自然数恰好等于它得因子（不包含本身）之与。

如６得因子为1、2、3，而6=1＋２+３,因而6就就是完数。

再如２8得因子为1、2、4、7、14,而28=1+2＋4＋7+1４,因而28也就是完数。

问题：

输入一个正整数,判断该正整数就是否为完数。

要判断一个整数n就是否为完数,最简单得方法就是:

求出1到n－1之间n得所有因子与为sum,如果sum得值与n得值相同，则ｎ就就是完数。

以下代码就是判断ｎ就是否为完数得程序片段,请您补全代码（８分）

Ｄｉmｎ　ａsｌoｎｇ

Dimｓumas　　ｌｏnｇ　　’ｓum用来记录ｎ得因子与

n　＝　ｉｎpｕｔbox（”n=”）

foｒｉ=1toｎ　-１　　　’求n得因子与sｕm

if　nmoｄ　ｉ=０　　tｈeｎ　

ｓuｍ＝　ｓum+ｉ　

nｅxti

iｆ　sum＝n　　　tｈen

Prｉｎtn&”就是完数”

Ｅlse

Pｒintn&”不就是完数”

Endif

１0、分析解答问题:

执行情况如下:

当输入a、b得值分别为３、８就是,输出结果为5

　　　当输入a、ｂ得值分别为１1、7时,输出结果为4

问题一:

下列流程图填入虚线框中,符合条件得就是C　　

开始

输入a、b得值

输出c得值

结束

问题二:

依据问题一所选流程图,当输入a、b得值分别为9、6时，输出结果为　３　　。

11、阅读下列程序,写出运行结果

Dimx　aｓIntegeｒ

Diｍ　　ｙas　Ｉｎteger

y=Vａl（ＩnputBox（”ｙ=”））ﻩﻩﻩ’输入第一个数赋值给ｙ

Fori＝1ｔo3ﻩﻩﻩﻩ’循环３次,每次输入1个数

　　　x=Vａl（InｐutBox（”x=”））

　If　x

　　y=x

Eｎdｉf

Next　i

Prｉnt　ｙ

程序运行后，依次输入：

４5ﻩﻩ9６11ﻩ37

运行输出结果就是:

　　　　　11　　　　　　

１２、分析完善程序:

问题：

输入一个正整数n,判断该正整数就是否为素数（质数）。

要判断一个数n就是否为素数,最简单得方法就是:

统计2到n-1之间得所有能整除n得整数个数,若s大于０,则n不就是素数,否则就就是素数。

根据以上方法，完善一下程序代码;（８分）

ｎ=　Val（IｎｐｕtBｏｘ（”n=”））

ｓ=0

for　i=2　to　ｎ-1

　　if　n　Moｄi＝0Thｅn

s=　s+1　ﻩﻩ’统计因数个数

eｎdif

Nｅxt　i

If　　S<＝0　then

　Printn&”就是素数”

Ｅslｅ

Ｐrinｔn＆”不就是素数”

EndIｆ

13、分析完善程序：

考拉兹猜想:

考拉兹猜想又称为3n＋１猜想，就是指对于每一个正整数,如果它就是奇数,则对它乘3再加1;如果它就是偶数,则对它除以２;……;如此循环,最终都能够得到１；如n=6，根据上述规则,得出6→３→10→５→16→8→4→2→1、（共有8个步骤）以下就是验证考拉兹猜想得主要VB程序片段,请您补全代码：

（8分）

n=Vaｌ（ＩｎｐutBox（”n＝”））

ｃnt=0　　　’统计步骤数

DoＷhilen>1

　Cnｔ=ｃnｔ+1

If　ｎ　Ｍod2=0　　tｈen

　　n=　　ｎ/2　　

　　　Eｌse

ｎ=　n*3＋１　　

　　EndIf

Ｌoop

Pｒintcnｔ　　　’输出步骤数

１４、阅读下列程序,写出运行结果

DimSｕm　AsＩnteger

DimKAsIｎteger

Sum=0

Fork=1tｏ20

　IfkMｏd2=0　Then

Ｓuｍ=Suｍ+k

Eｎdif

Next　k

PrｉntSｕm

程序运行后输出结果就是:

　１1０　　

１5、在使用计算机解决问题时,选择合适得算法,就是有效解决问题得关键。

分析下面得问题,请选择最合适得算法:

　（请用英文字母填写）

Ａ解析法B递归法ﻩC穷举法D排序法

猴子吃桃问题:

Ｂ

小猴有一天摘了若干个桃子,它非常贪吃,当天就吃掉了一半还多一个;第二天　　桃子一半多一个;以后每天都就是如此，到了第七天要吃桃子就是,却发现只剩下一个桃子问小猴那天一共摘了多少桃子?

16、在使用计算机解决问题时，选择合适得算法,就是有效解决问题得关键。

分析下面得问题,请选择最合适得算法：

　C　　　（请用英文字母填写）

A解析法B递归法Ｃ穷举法Ｄ排序法

搬砖问题：

100块砖，100人搬,一个男人搬4块,一个女人搬3快，两个小儿抬１块,要求一次搬完,问男、女、小儿各多少人。

1７、４位得水仙花数或者玫瑰花数问题都就是“穷举法”（有一定得范围,有一定得条件得时候用穷举法）百鸡百钱

如果一个4位数恰好等于它得各位数字得４次方与,则这个4位数称为“玫瑰花”数。

例如163４就就是一个玫瑰花数：

1634=1４+64　＋３4＋4４　如果要求出所有得玫瑰花数,下列算法最合适得就是（D　）

A排序法B查找法Ｃ解析法Ｄ穷举法

18、阅读下列程序,写出运行结果

DｉｍSumAs　Ｉntｅgeｒ

DimｋＡｓＩnteger

Ｓum=0

Foｒk=1ｔo　10

　　Ｉｆ　kMｏd　2=0　ThｅnSum=Sum+ｋ

Ｎeｘｔk

PｒinｔSum

程序运行后输出结果就是:

30　

19、已知在ＶB语言中,iｎt（x）函数得功能就是返回不大于x得最大整数,abｓ（x）函数得功能就是取绝对值,则表达式aｂs（ｉｎt（２、8８）＋inｔ（-3））得值就是（　Ｂ）

A、5ﻩB、1C、０ﻩD、2

２0、DｉｍxasIｎteger

Dimｙ　aｓ　Inｔeｇer

Y=0ﻩﻩ

Fori=1ｔｏ5ﻩﻩﻩﻩ

　　x=Val（ＩnpｕtBoｘ（”请输入”））

　y=y+x

Nexｔi

Printy

程序运行后,依次输入:

10ﻩ20ﻩﻩ30ﻩ40　５0

运行输出结果就是:

150　

2１、Dimsumaslｏｎg

　　　Dimi　aslong

Sum=0

Ｉ＝０

　Dowｈiｌeｓum＜10

i=i+１

　ｓum＝ｓum+i＊i

　lｏop

prinｔ　sum

运行结果:

　1４　　　

2３、下列流程图表示循环结构得就是（　B）

　　　（１）　　　　　　　（２）　　　　（3）　　（4）

A　

（1）

（2）　B（２）（４）　　Ｃ

（2）（3）Ｄ（3）（4）