山东省信息技术学考算法与程序设计试题答案附后讲解.doc_第1页
山东省信息技术学考算法与程序设计试题答案附后讲解.doc_第2页
山东省信息技术学考算法与程序设计试题答案附后讲解.doc_第3页
山东省信息技术学考算法与程序设计试题答案附后讲解.doc_第4页
山东省信息技术学考算法与程序设计试题答案附后讲解.doc_第5页
已阅读5页,还剩3页未读 继续免费阅读

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

山东省学考算法与程序设计试题选择题1、下列VB表达式中:Sqr(x) Text1.text Command1.caption 45+34 45+34值为字符串类型的是( )A B C D2、如果给出三条线段的长分别为a、b、c,且已知abc,要问这三条线段能否构成三角形,仅需下列选项中的哪个判定条件即可?( )A 其他选项都不对 B a+cb C a+bc D b+ca3、VB程序中“Dim n As Integer”这条语句的作用是( )A 定义一个事件过程 B 定义一个数据输入方法 C 定义一个变量 D 定义一个数据处理方法4、关于算法的描述,下列选项中正确的是( ) A 算法的每一步骤必须有确切的含义 B 算法必须有输入 C 算法的步骤可以是无穷的 D 算法本身就是一种程序设计语言5、关于算法的描述,正确的是( ) A同一种算法只能用一种程序语言实现B算法就是数值计算的方法C描述算法的方法只有流程图D算法是描述解决问题的方法和步骤6、算法的描述方法有多种,下列选项中不适合描述算法的是( ) A机器语言 B自然语言 C流程图 D伪代码7、长度分别为a、b、c的三条线段,能够组成三角形的条件是( )A a+bc Or a+cb Or b+ca B a+bc or a+cb And b+caC a+bc Or a+cb And b+ca D a+bc And a+cb And b+ca8、已知海伦公式:S=,其中p=(a+b+c),a、b、c分别为三角形的三条边长。利用海伦公式求三角形面积的算法属于( ) A 排序法 B 解析法 C 穷举法 D 查找法9、以下程序段中循环体执行的次数是( ) s=0 i=0 Do While s1的解的是( ) A x-1 and x-1 or x1 C x1 D x111、一元二次方程ax2+bx+c=0(a0)的两个实数根分别为: x1= x2= 下列表达式正确的是( )A x2=-b-sqr(b2-4*a*c)/(2*a) B x1=(-b+sqr(b2-4ac)/(2*a)C x2=(-b-sqr(b2-4*a*c)/(2*a) D x1=-b+sqr(b2-4*a*c)/(2*a)12、关于算法的描述,下列选项中正确的是( )A、一个算法可以没有输入B、算法只能用流程图表示C、一个算法,当没有输入时,也没有输出D、一个算法的执行步骤可以是无限的。13、如果一个4位数恰好等于它的各位数字的4次方和,则这个4位数成为“玫瑰花”数。例如1634就是一个玫瑰花数:1634=14+64+34+44。如果要求出所有的玫瑰花数,下列算法最合适的是( )A解析法 B排序法 C查找法 D穷举法14、一个单窗体VB程序的运行界面如右图所示。下列说法正确的是( )窗体内有1个按钮窗体内有2个文本框窗体内有3个标签该窗体的标题(Caption)属性值是“加法计算器”A B C D15、下列VB程序运行时(如图所示),在文本框Text1中输入20,在文本框Text2中输入13,单击命令按钮Command1后,文本框Text3中显示的内容是( )Private Sub Command1_Click()a=Val(Text1.text)b=Val(Text2.text)Text3.text=a+bEnd SubA 33 B 33 C 2013 D 2013注意:把程序中的Val去掉,再执行程序,看结果是否发生改变。16、在VB语言中,字符串运算符“+”和“&”的作用是把两个或多个字符串连接成一个字符串。则表达式20+13&20+13的运算结果是( )A201320+13 B201333 C332013 D333317、两个阻值为R1、R2的电阻并联后,电路阻值R可由公式求解,下面能正确求出R的VB表达式是( )A B C D 18、下列问题不能用算法描述的是( )A求一元二次方程ax2+bx+c=0(a0)的两个实数解B计算某班英语平均分C求方程y=2x+1的所有整数解D已知圆锥的底面半径和高,求表面积和体积19、已知在VB语言中,int(x)函数的功能是返回不大于x的最大整数,abs(x)函数的功能是返回x的绝对值,则表达式abs(int(2.88)+int(-3.14)的值是( ) A 0 B 2 C 1 D 520、在VB语言中表示“x属于区间(0,1”的正确表达式是( )A 0x0 and x1 C 0x and x0 or x 0 x = n Mod 10 s = s + x n = n 10LoopPrint s程序运行时,输入518,运行输出结果是: 14 (6分)提示: 整除运算 如:23710=23 Mod 取余运算 如:237 mod 10=7分析:初始值第一步第二步第三步XX=n mod 100815SS=s+s00+80+8+10+8+1+5NN=n 1051851502、阅读下列程序,写出正确运行结果Dim sum As LongDim i As Longsum = 0i = 0Do While sum 10 i = i + 1 sum = sum + i * i LoopPrint sum运行结果是: 14 分析:初始值第一步第二步第三步ii =i+100+10+1+10+1+1+1Sumsum=sum+i * i00+120+12+220+12+22+32循环条件Sum 1 cnt = cnt + 1 变换次数cnt累加 If n Mod 2 = 0 Then n = n/2 Else n = n*3+1 End IfLoop5、阅读下列程序,写出运行结果Dim x As IntegerDim y As Integery = 0For i = 1 To 5 x = Val(InputBox(请输入:) y = y + xNext iprint y程序运行后,依次输入:10 20 30 40 50 运行输出结果是: 150 分析:初始第1次第2次第3次第4次第5次第6次i0123456x01020304050不满足条件,循环终止y 00+100+10+200+10+20+300+10+20+30+400+10+20+30+40+506、选择算法,解决问题在使用计算机解决问题时,选择合适的算法,是有效解决问题的关键。分析下面的问题,请选择最合适的算法:(填:解析法/穷举法/递归法/排序法,6分) 穷举法 搬砖问题:100块砖,100人搬,一个男人搬4块,一个女人搬3块,两个小孩抬1块,要求一次全搬完,问需男、女、小儿各多少人?7、选择算法,解决问题在使用计算机解决问题时,选择合适的算法,是有效解决问题的关键。分析下面的问题,请选择最合适的算法:(填:解析法/穷举法/递归法/排序法,6分) 递归法 猴子吃桃问题:小猴有一天摘了若干个桃子,它非常贪吃,当天就吃掉了一半还多一个,第二天接着吃剩下的桃子一半多一个,以后每天都是如此,至了第七天要吃桃子时,却发现只剩下一个。问小猴那天一共摘了多少个桃子?8、阅读下列程序,选出运行结果For i = 1 To 10 i控制*的行数 For j = 1 To i j控制每行*的个数 Print * ; 输出 * -注意末尾是分号 Next j Print 输出换行Next i运行结果是: D (填:A/B/C/D,6分)ABCD9、分析完善程序“完数”是指一个自然数恰好等于它的因子(不包含本身)之和。如6的因子为1、2、3,而6=1+2+3,因而6就是完数。再如28的因子为1、2、4、7、14,而28=1+2+4+7+14,因而28也是完数。问题:输入一个正整数n,判断该正整数是否为完数。要判断一个整数n是否为完数,最简单的方法是:求出1到n-1之间的所有因子和为sum,如果sum的值和n的值相同,则n就是完数。以下代码是判断n是否为完数的程序片段,请你补全代码:(8分)Dim n As LongDim sum As Long sum用来记录n的因子和n = InputBox(n=)For i = 1 To n - 1 求n的因子和sum If n Mod i = 0 Then sum = sum+i Next iIf sum=n Then Print n & 是完数Else Print n & 不是完数End If10、分析完善程序以下是求解一元二次方程ax2+bx+c=0(a0)的主要VB程序片段。请你补全代码:(8分)a = Val(InputBox(a=)b = Val(InputBox(b=)c = Val(InputBox(c=)d = b 2 - 4 * a * c 求判别式dIf d 0 Then X1 = (-b + Sqr(d) / (2 * a) X2 = (-b - Sqr(d) / (2 * a) Print x1=; X1 Print x2=; X2End IfIf d=0 Then Print x=; -b / (2 * a)End IfIf d 0 Then Print 无实数解End If11、分析解决问题VB语言中绘制圆的方法是:Circle(x,y),r格式说明:其中(x,y)为圆心坐标,r为圆的半径。下表中算法1是在窗体中绘制以(2000,2000)为圆心,半径依次为100、200800的8个同心圆。请补充完成算法2,使其实现与算法1相同的功能。(6分)算法1算法2Circle(2000,2000),100Circle(2000,2000),200Circle(2000,2000),300Circle(2000,2000),400Circle(2000,2000),500Circle(2000,2000),600Circle(2000,2000),700Circle(2000,2000),800Dim k As IntegerFor k = 1 To 8 Circle (2000, 2000), k * 100 Next k12、分析完善程序问题:输入一个正整数n,判断该正整数是否为素数(质数)。要判断一个数n是否为素数,最简单的方法是:统计2到n-1之间的所有能整除n的整数个数s,若s大于0,则n不是素数,否则就是素数。根据以上方法,完善以下程序代码:(8分)n = Val(InputBox(n=)s = 0For i = 2 To n - 1 If n Mod i = 0 Then s = s + 1 统计因数个数 End IfNext iIf s = 0 Then -此处若写s=0也是正确的 Print n & 是素数Else Print n & 不是素数End If13、分析完善程序2005年10月9日,国家测绘局正式宣布珠穆朗玛峰的高度是8844.43米,并停用之前的数据。现有一张白纸的厚度大约是0.08毫米,对折一次,厚度变为0.16毫米,再对折一次,厚度变为0.32毫米,每对折一次,其百度均变为对折前的两倍。假设这张纸有足够大,可对折任意次,那么这张纸至少对折多少次后,其厚度将超过珠穆朗玛峰的高度。以下是求解该问题的程序片段,请你补全代码:(8分)Dim height As DoubleDim h As DoubleDim cnt As Longheight = 8844430 -单位为毫米h = 0.08 -单位为毫米cnt =0 Do While h height cnt = cnt + 1 h = 2*h -此处若写h+h或h*2也是可以的LoopPrint cnt14、分析解决问题在VB语言中常用的字符串截取函数有:(6分)函数名功能示例结果Mid(s,m,n)从字符串s的第m位开始截取长度为n的子串Mid(ABCDEFG, 5, 2)EFLeft(s,n)截取字符串s左边n个字符Left(ABCDEFG, 3)ABCRight(s,n)截取字符串s右边n个字符Right(ABCDEFG, 2)FG假如某人身份证号码s如果需要根据此身份证号码求出该人的”出生年月日”。下列四个表达式中不能实现的一个 D (填A/B/C/D)。A. Mid(s, 7, 8)B. Rig

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论