高中信息技术算法与程序设计练习

1、算法与程序设计练习（满分：100分）说明：本卷分为第一卷和第二卷两部分。第一卷为客观题，含单 选题和判断题，其中单选题 30小题，共45分；判断题20小题，共 20分。第二卷为操作题，共3题，第1题15分，第2题10分，第3 题10分，共35分。一单选题1、（1.5分）下面是4位同学为解决问题编写的程序，完全正确的是（）。同学1:某同学从17岁开始栽了 1棵树，以后每年都比前一年多栽1 棵，他要栽够100棵树，最小得多少岁？程序如下：Private Sub Command1_Click（ ）Dim Age As Integer,Tree As IntegerDoAge=17Age=Age+1T

2、ree=Tree+Age （Tree应该是树的累加数，这样合适吗？）Loop Until Tree=100Print Age & 岁”End Sub同学2:计算S=1 X2刈4X567品X9的值。程序如下:Private Sub Command1_Click( )Dim S As Integer(S没有初始值，默认为0)For a = 1 To 10 (终值设置错误)S = S * aNext aPrint S= & SEnd Sub同学3:求解方程ax+b=0。程序如下：Private Sub Command1_Click( )Dim A As Single,B As SingleInput

3、Box(A=)(从键盘得到的数据赋给谁了 ？)InputBox(B=)X=-B/APrint XEnd Sub同学 4:计算 S=1+(1+2)+(1+2+3)+(1+2+3+ 100)的值。程序如下:Private Sub Command1_Click()Dim i As Integer,T As Long,S As LongS=0:T=0For i=1 to 100T=T+i (T 的值为：1 + 2+3+n)S=S+TNext IPrint S=; SEnd SubA、同学1B、同学2C、同学3| D、同学42、（1.5 分）下面的4个VB程序段能使变量a、b、c的值全部相同的是（）程序

4、一：a=1:b=2:c=3a=bb=cc=a程序二:a=1:b=2:c=3 c=ac=bc=c程序三：a=1:b=2:c=3c=ab=c程序四：a=1:b=2:c=3c=a=bA、程序一 B、程序二C、程序三D、程序四3、（1.5 分）如果要改变窗体的标题，则需要设置的属性是（）A、Caption B、名称C、Font D、Visible4、（1.5 分）已知数组D的1到N号元素已经赋入常数值，下面 4个程序段都把这N个常数值输出，其中不能保证输出的数据是由小到大的程序段是哪个？()。程序一：for i=1 to n-1Min=D :M=ifor j=i+1 to nif D(j) Min t

5、hen Min=D(j):M=jNext jk=D(i):D(i)=Min:D(M)=kNext Ifor i=1 to Nprint D ;Next i程序二：For i = 1 To n - 1For j = n To i + 1 Step -1If d(j) d(j - 1) Then M = d(j): d(j) = d(j - 1): d(j - 1) = MNext jNext ifor i=1 to Nprint D(i);Next i程序三：for i=1 to n-1for j=i+1 to nif D(j) D(i) then M=D(j):D(j)=D(i):D(i)=M

6、Next jNext ifor i=1 to Nprint D(i);Next i程序四：For i = 1 To n - 1For j = i+1 To nIf d(j) c + d And a = 5 Or Not c 0 Or d a + b And a = 5 Or Not c 0 And d 0C、a + d = 5 Or Not c 0 And d c + d And a 0 Or d 比较运算逻辑运算（NotAndor）10、（1.5 分）运行如下程序段可输出由“*组成的（）。For X = 1 To 4Print Space（4） & *Next XA、矩形B、平行四边形C、三

7、角形D、梯形11、（1.5 分）用折半查找法（二分查找法）从数列 3, 6, 7, 10, 12, 16, 25, 30,75中找到数据25的最少查找次数是（）。A、2B、3C、4D、712、（1.5 分）如果 A=30, B=40，执行 A=A+B:B=A-B:A=A-B 语句后,A、B 的值是（）。（交换两个变量数据的另一方法）30、 4040、 4040、 3030、 3013、（1.5 分）用冒泡排序法对数据7, 6, 3, 9, 2从大到小排序，第2趟结果是（）。A、9,6,3,7,2B、7,9,6,3,2C、9,7,3,6,2D、9,7,6,3,214、（1.5 分）以下程序段运行

8、时语句k=k+1执行次数为（）次k= 20 dok=k+1 loop while (k=0)A、20B、无数次C、1D、015、(1.5 分)数列2, 4, 8, 16, 32,的递推公式为()A、f(n)=n*2B、f(n)=f(n-1)*2C、f(n)=2MD、f(n)=f(n-1)+216、(1.5 分)下列程序段运行后X的值是()。x = 0For i = 1 To 5For j = i To 5x = x + 1 (循环次数计数器)Next jNext iA、0B、5C、10D、1517、（1.5 分）若 X = False,执行 If X Then X = 0 Else X = 1

9、 后 X 的结果为（）A、FalseB、编译错误C、1D、018、（1.5 分）模块化程序设计方法反映了结构化程序设计的（）基本思想A、自顶而下、逐步求精B、面向对象C、自定义函数、过程D、可视化编程19、（1.5 分）程序段如下：c =1234For i = 1 To 4Print,Next如果要让程序运行后得到如下结果：1234 123 12 1则在下划线处应填入的内容为（）。（提示：Right（x,n）:从字符串右面取n个字符，Left（x,n）:从字符串左边取n个字符）A、Right（c,5-i）B、Left（c,5-i）C、Right（c,i-5）D、Left（c,i-5）20、（1

10、.5 分）要从n个数据元素中顺序查找一个元素，最少查找次数是（）。（最多查找次数呢？）A、1B、nC、n/2D、lgn21、（1.5 分）在流程图中表示算法中变量的计算与赋值时使用（）图形框。A、菱形框B、矩形框C、圆形框D、平行四边形框22、（1.5 分）VB语言中，下列各种基本数据类型说明符中表示整型数的是（）。A、IntegerB、BooleanC、SingleD、String23、（1.5 分）以下哪个是合法的变量名（）。（变量的命名约定：1、以字母或汉字开头，不能以数字或其他字符开头；2、只能由字母、汉字、数字俄下划线组成，不能含有小数点、空格等字符；3、字符个数不超过255个；4、

11、不能使用VB中的保留字）A、sqrB、2paiC、c+jD、abc24、（1.5 分）程序的基本结构有顺序结构、选择结构和（A、逻辑结构B、模块结构C、循环结构D、层次结构25、（1.5 分）VB函数Right（）从字串右端开始取部分字串，那么Right（Visual Basic 6.0, 8）的值为（）。A、Visual BB、VisualC、Visual BaD、asic 6.0 26、（1.5 分）VB中保存窗体文件的文件扩展名为（）A、vbpB、frmC、docD、pas27、（1.5 分）()，)o()，)o请按各步骤的先后顺序在下列选项中选择正确的答案（调试程序分析问题设计算法编写

12、程序A、B、C、D、28、（1.5 分）程序设计语言的发展历程中不包括（）A、机器语言B、自然语言C、汇编语言D、高级语言29、(1.5 分)）。（Mod为取余运算）VB表达式2 * 8 Mod 12 + 4）。（Mod为取余运算）A、8B、22C、2030、（1.5 分）下面关于算法的说法错误的是（）。A、算法必须有输出B、算法必须在计算机上用某种语言实现C、算法不一定有输入D、算法必须在有限步执行后能结束二、判断题31、（1 分）运行程序时，程序中的每一条语句至少运行一次。（错误。反例：注释语句）32、（1 分）VB表达式（A + B + C）的值一定是数值型数据。（错误。字符型变量也可以

13、进行“ + ” 、“”运算）33、（1 分）高级语言是能够被计算机直接接受和执行的计算机语言（错误。只有机器语言才能被计算机直接接受和执行）34、（1 分）机器语言是程序设计的核心，是程序设计的灵魂。（错误。算法+数据结构=程序）35、（1 分）列举一切与命题相关的情况，然后根据问题设定的条件，逐个加以检 查，找到满足条件的解答的方法称为递归算法。（错误。这是“穷举法”的基本思想）36、（1 分）在程序循环结构中必须设定终止循环的条件，否则会出现死循环。（错误。终值条件一定要有，但不一定明确“设定” ，如，For/Next 循环）37、（1 分）VB中的事件驱动就是当应用程序中某对象的特定事件

14、发生时，通过 执行一段程序代码，来完成该特定事件所对应的操作。38、（1 分）对一个排好序的数组来说，要查找一个元素，可以用顺序查找法，也 可以用二分查找法，其中二分查找一定比顺序查找快。（错误。不同的查找方法解决不同的问题，效率高低并不绝对）39、（1 分）递归过程一般通过函数或子过程来实现。40、（1 分）对于多种情况的选择问题，只能采用多重选择语句来处理，不能使用 条件语句。（错误。可以采用If语句的嵌套）41、（1 分）通过分析问题中各要素之间的关系，用最简练的语言或形式化的符号 来表达它们的关系，得出解决问题所需的表达式，然后设计程序求解 问题的方法称为解析法。42、（1 分）在VB

15、程序设计中，方法对应于对象内部的一段程序代码，既可能是一个函数，也可能是一个过程。43、（1 分）控件是应用程序的图形用户界面中显示可供用户操纵，并可控制应用程序的图形界面元素，是 VB可视化编程的基本操作对象。44、（1 分）多重循环的原则是：外层循环与内层循环不必层层相套， 循环体之间 可以交叉。（错误。外循环必须完全包含内循环，也就是说内外层Next语句的位置不能交叉）45、（1 分）VB中所有对象的属性只能在属性窗口中设定。（错误。可以在程序中设定。如：修改 command1的caption属性为“计算”可以用comand1.caption= 计算”实现）46、（1 分）在程序设计中容

16、易出现的错误主要有：编辑时出现的错误、编译时出现的错误、运行时的错误和逻辑错误。47、（1 分）已知三角形的两边分别为a、b,它们的夹角为60度，圆周率取3.14, 在VB中可用公式（a * b * Sin（60 * 3.14 / 180） / 2）求出该三角形的面 积。48、（1 分）在VB中，可将调试好的程序编译生成能够脱离VB集成环境在Windows平台上独立运行的可执行文件。49、（1 分）在VB中，Int（100 * Rnd + 1）的取值范围是1100之间的所有实数（包括1和100）（错误。是“整数”而不是“实数”）50、（1 分）算法是有限步骤内求解问题所使用的一组定义明确的规则

17、。三、操作题51、（15 分）有一数歹U A1、A2、A3、A4、A5、，已知 A1=0、A2=1、A3=1、A4=A1+2*A2 +A3、A5=A2+2*A3+A4、，依此类推编程输出第23项的值。Private Sub Command1_Click()Print f(23)End SubPrivate Function f(n As Integer) As SingleIf n = 1 Thenf = 0ElseIf n = 2 Or n = 3 Thenf = 1Elsef = f(n - 3) + 2 * f(n - 2) + f(n - 1) End IfEnd IfEnd Func

18、tion52、(10 分)编程求12709到45368之间有多少个其各位数字之和为 5的倍数的正 整数。Private Sub Command1_Click()s = 0For i = 12709 To 45368a = Int(i / 10000)b = Int(i - a * 10000) / 1000)c = Int(i - a * 10000 - b * 1000) / 100)d = Int(i - a * 10000 - b * 1000 - c * 100) / 10)e = i - a * 10000 - b* 1000 - c* 100 - d * 10If (a + b + c + d + e) Mod 5 = 0 Then s = s + 1NextPrint sEnd Sub53、(10 分)已知三角形的两边分别为13、17,它们的夹角为36度，圆周率取3.14,编程求该三角形的面积(精度：四舍五入保留小数点后6位)。Private Sub Command1_Click()Print (13 * 17 * Sin(36 * 3.14 / 180) / 2)End Sub参考答案单选题:123456789101112131415DCADABCDCAACCCC16171819202122232425262