高考算法与程序设计试题及答案
高中信息技术学业水平考试算法与程序设计题、填空题、分析题小抄版含答案
一、解决问题有解析法、穷举法、递归法、冒泡排序法，根据问题选择选择合适的算法。
1. 列举所有可能的情况，逐个判断有哪些是符合问题所需要的条件，从而是得到问题的解答，这是 穷举法 的思路。
2. 一个玻璃球从高处到自由落体运动。
在达到地面时，速度为98m/s ，请问玻璃求从高处开始下落地面用多长时间？ 解析法 3、水仙花数是一个三位数，其各位立方和等于该数本身，如153=1*1*1+5*5*5+3*3*3选择的算法是 穷举法4、一张单据上有一个5位数的号码67__ __8，其中百位和十位的数字看不清楚了，但知道该数能够被78整除，也能被67整除，设计一个算法求出该号码。
穷举法5.已知：f (1)=1 f (2)=3 当n>2时：F(n)=2f (n -1)+3f (n-2)编程求f (100)的值。
答案：递归法6.求解“百鸡问题”已知公鸡每只3元，母鸡每只5元，每3只小鸡1元，用100元买100只鸡，问每种鸡应各买多少？ 答案：穷举法___7.国内特快专递每200g 为一个为一个计费单位。
200g 以内20元，200g 以上每续200g （不足200g 按200g 计算16元，现在要编写一个程序输入包裹自动计算出价格。
答案：解析法8.动员成绩进行公布现在要编写一个程序自动完成编排,请问最好采用哪种答案：冒泡排序法二、分析程序写出运行结果或补全程序。
1. Dim a as integer ,b as interge a=1:b=0Do while a<=3 a=a+1 b=b+a*a Loop Print a ,b4 29 2、Dim ch As String , i As Integer ch=”abc ” i=1Do while i<=3Ch=ch&Right(“DEF ”,i) i=i+2 Loop Print ch End sub运行结果是： abcFD 3、 S=0 I=1For I=1 to 4 S=s+i^2 Next i Print “s=”;s运行结果是： s=30 4、Private sub command 1_click() S=0For i=1 to 3 s=s+2*i next iprint “s=”;s End sub运行结果是 s=125、dim s as integer, I as integer S=0 For I = 1 to 10 step 2 S=s+i Next iPrint “s=”;s运行的结果是： s=2561/49的值For i =1 to 49 step 2 S= S+1/i Next i7、计算1+3+5+7+……+99的值 Dim I ,s as integer S=0For I = 1 to 50 S=s+(2*i-1)Next I 8、已知Ｓ=1+2+3+…+N ，找出一个最大的整数Ｎ，使得Ｓ<300. Private Sub S=0 N=0Do while S<300 N=N+1 S=S+N Loop End sub 9、Private Sub Form-Activate ( )Dim I ,S As Integer S=1For I=1 to 4 S=S*IPrint “S=”; S End Sub运行结果: S=2410、Private Sub Form-Activate ( )Dim I Integer ,S As IntegerFor I =2 To 6 S=S+I Next I Print “S=”; S运行结果: S=20 11、Private Sub Form-Load Dim X As Integer, Y AS Integer Text1.Text=” ” X=99 Y=98 M=X If X<Y then M=Y Text1.caption=MEnd Sub运行结果： 9912、Private Sub Form-Activate ( )Dim a b c As Integer a=15 b=60 c=38If a<b then m=a else m=b If m>c then m=c Print “M=” m End Sub运行结果 : M=15 13、计算1+3+5+……+99的值 Private Sub Form-Activate ( )Dim I ,S As Integer S=0For I=1 To 99 step 2S= S+I Print “S=” S End Sub 14、计算1+1/2+…………+1/50的值 Private Sub Form-Activate ( )Dim I ,S As Integer S=0For I=1 to 50 S= S+1/I Print “S=” ; S End Sub15、实现函数：Y=︱X ︱Private Sub Form-Activate ( )Dim X as Integer , Y as single IntegerText1.text=” ” X =Inputer(“X =?”)If X>=0 then ElseY=―X End ifText1.text=Y End Sub16.Private Sub Form_Activate( ) Dim i As Integer , sum As Integersum=0For i =1 To 100 sum=sum+2 Next iPrint “sum=” ; sum End Sub该程序的输出结果是： sum=200 17、写程序结果 Text2=“34”a=(val (Text2)-32)*5/2 print a答案：_5____ 18、完善程序：打印如下图形。
算法考试题目及答案解析
算法考试题目及答案解析一、单项选择题1. 在算法中，以下哪个选项不是算法的特性？A. 有穷性B. 确定性C. 可行性D. 随机性答案：D解析：算法的特性包括有穷性、确定性和可行性。
有穷性指的是算法必须在执行有限步骤后终止；确定性指的是算法的每一步操作都是明确的，不存在二义性；可行性指的是算法的每一步操作都必须足够基本，以至于可以准确地执行。
随机性并不是算法的特性之一。
2. 以下哪个排序算法的时间复杂度是O(n^2)？A. 快速排序B. 归并排序C. 冒泡排序D. 堆排序答案：C解析：冒泡排序是一种简单的排序算法，其时间复杂度为O(n^2)，在最坏的情况下，需要比较每一对元素。
快速排序的平均时间复杂度为O(n log n)，归并排序的时间复杂度为O(n log n)，堆排序的时间复杂度为O(n log n)。
3. 在图的遍历中，深度优先搜索（DFS）使用的栈是什么类型的栈？A. 后进先出栈B. 先进后出栈C. 先进先出栈D. 随机进随机出栈答案：B解析：深度优先搜索（DFS）使用的数据结构是栈，遵循的是先进后出的原则，即后进先出栈。
4. 哈希表解决冲突的方法不包括以下哪一项？A. 分离链接法B. 开放寻址法C. 链地址法D. 二分查找法答案：D解析：哈希表解决冲突的方法主要包括分离链接法、开放寻址法和链地址法。
二分查找法是一种查找算法，不是用来解决哈希表冲突的方法。
5. 以下哪个算法不是动态规划算法？A. 斐波那契数列B. 0-1背包问题C. 最短路径问题D. 快速排序答案：D解析：斐波那契数列、0-1背包问题和最短路径问题都可以使用动态规划算法来解决。
快速排序是一种排序算法，不属于动态规划算法。
二、多项选择题1. 以下哪些是算法设计中常用的数据结构？A. 数组B. 链表C. 栈D. 队列E. 树答案：ABCDE解析：数组、链表、栈、队列和树都是算法设计中常用的数据结构，它们各自有不同的特点和适用场景。
算法与程序设计试题带答案
算法与程序设计试题带答案1. 以下是一道经典的算法题，请编写代码实现求最大公约数（GCD）的算法。
```pythondef gcd(a, b):if b == 0:return areturn gcd(b, a % b)# 测试print(gcd(15, 25)) # 输出 5print(gcd(54, 72)) # 输出 18```解析：这是一个使用递归实现的辗转相除法算法，也叫欧几里得算法。
当两个数 a 和 b 求最大公约数时，如果 b 等于 0，则 a 就是最大公约数；否则，将 b 作为新的 a，将 a 除以 b 的余数作为新的 b 进行递归计算。
2. 请编写代码实现一个链表的反转。
```pythonclass ListNode:def __init__(self, val=0, next=None):self.val = valself.next = nextdef reverse_linked_list(head):prev = Nonecurr = headwhile curr:next_node = curr.nextcurr.next = prevprev = currcurr = next_nodereturn prev# 测试node1 = ListNode(1)node2 = ListNode(2)node3 = ListNode(3)node1.next = node2node2.next = node3reversed_head = reverse_linked_list(node1)while reversed_head:print(reversed_head.val)reversed_head = reversed_head.next```解析：这是一个经典的链表反转算法。
使用 prev、curr、next_node 三个指针来实现，其中 prev 用于保存上一个节点，curr 用于保存当前节点，next_node 用于保存下一个节点。
2023高中信息技术学考算法设计操作题(6套含答案)
2023高中信息技术学考算法设计操作题(6套含答案)第一套：题目：编写一个算法，输入一个正整数，输出它的阶乘。
输入：正整数 n输出：结果为 n 的阶乘示例：- 输入：5- 输出：120答案：def factorial(n):if n == 0:return 1else:return n * factorial(n-1)n = int(input())result = factorial(n)print(result)第二套：题目：编写一个算法，输入一个正整数，输出它的各位数字之和。
输入：正整数 n输出：各位数字之和示例：- 输入：123- 输出：6答案：def sum_of_digits(n):result = 0while n > 0:result += n % 10n = n // 10return resultn = int(input())print(sum_of_digits(n))第三套：题目：编写一个算法，输入一个字符串，输出它的长度。
输入：字符串 s输出：字符串长度示例：- 输入："Hello"- 输出：5答案：s = input()print(len(s))第四套：题目：编写一个算法，输入一个正整数，输出它的倒序。
输入：正整数 n输出：倒序后的整数示例：- 输入：123- 输出：321答案：def reverse(n):result = 0while n > 0:result = result * 10 + n % 10 n = n // 10return resultn = int(input())print(reverse(n))第五套：题目：编写一个算法，输入一个正整数，输出它的素因数分解。
输入：正整数 n输出：素因数分解后的列表示例：- 输入：28- 输出：[2, 2, 7]答案：def prime_factors(n):factors = []while n % 2 == 0:factors.append(2)n = n // 2for i in range(3, int(n**0.5) + 1, 2):while n % i == 0:factors.append(i)n = n // iif n > 2:factors.append(n)return factorsn = int(input())print(prime_factors(n))第六套：题目：编写一个算法，输入一个正整数，输出它的所有正约数。
高考数学试卷中算法试题
给定一个整数序列A，请编写一个函数，实现以下功能：1. 计算序列A中所有奇数的和；2. 计算序列A中所有偶数的和；3. 计算序列A中最大值与最小值之差；4. 判断序列A中是否存在重复元素，若存在，请输出重复的元素。
输入：一个整数序列A，以空格分隔。
输出：四个结果，分别对应上述四个功能。
例如：输入：1 2 3 4 5 6 7 8 9输出：奇数和：25，偶数和：20，最大值与最小值之差：8，重复元素：无二、算法思路1. 遍历整数序列A，分别计算奇数和与偶数和；2. 遍历整数序列A，找到最大值与最小值，计算两者之差；3. 使用一个哈希表（或集合）记录已遍历过的元素，遍历整数序列A，判断是否存在重复元素。
三、代码实现```pythondef algorithm(A):odd_sum = 0even_sum = 0max_value = A[0]min_value = A[0]hash_table = set()for i in range(len(A)):if A[i] % 2 == 1:odd_sum += A[i]else:even_sum += A[i]if A[i] > max_value:max_value = A[i]if A[i] < min_value:min_value = A[i]if A[i] in hash_table:return odd_sum, even_sum, max_value - min_value, A[i] hash_table.add(A[i])return odd_sum, even_sum, max_value - min_value, "无"# 测试A = list(map(int, input().split()))result = algorithm(A)print("奇数和：", result[0])print("偶数和：", result[1])print("最大值与最小值之差：", result[2])if isinstance(result[3], int):print("重复元素：", result[3])else:print("重复元素：无")```四、总结本题目主要考察了算法设计、数据结构和逻辑思维能力。
算法与程序设计考试题及答案
2009级高一算法与程序设计（选修模块）考试题满分：70分时量：60分钟笔试2010.6一、单选题（每题2分，共40分）1、0518号台风“达维”过后，要对各个单位捐款救灾情况进行分组制表，并进行积分排序，一般使用的专业电子处理软件有（）A、powerpoingB、ExcelC、WordD、Visual Basic2、一位爱好程序设计的同学，想通过程序设计解决“韩信点兵”的问题，他制定的如下工作过程中，更恰当的是（）A、设计算法，编写程序，提出问题，运行程序，得到答案B、分析问题，编写程序，设计算法，运行程序，得到答案C、分析问题，设计算法，编写程序，运行程序，得到答案D、设计算法，提出问题，编写程序，运行程序，得到答案3、交通警察到达案发现场，一般按照下列哪种思路开展工作（）①观察、分析现场②收集必要的信息③进行判断、推理④按一定的方法和步骤解决A、②①③④B、①③②④C、③①②④D、①②③④4、下面说法正确的是（）A、算法+数据结构=程序B、算法就是程序C、数据结构就是程序D、算法包括数据结构5、下列常量说明中，符合语法的是（）A、CONST color=redB、CONST const=10*5C、CONST xl：=3.9；D、CONST color=”abcd”6、VB中将两个字符串连接起来的运算符有：+和&，那么“123”+45结果是（）A、168B、12345C、”123”D、457、字符串”ABCD”和字符串”DCBA”进行比较，如果让比较的结果为真，应选用关系运算符（）A、>B、<C、=D、>=8、设a，b，c，d，e均为整型变量，且a=13，b=2，c=10，d=3，e=2，则表达式“a -b*c \ d MOD e”的值是( )A、13B、-7C、llD、09、已知A，B，C，D是简单变量，且都已有互不相同的值，执行语句B=8；A=C；D =A；D=B；后，其值相等的变量是（）A、A，DB、A，CC、C，BD、B，A10、结构化程序设计由三种基本结构组成，下面哪个不属于这三种基本结构（）A、顺序结构B、输入、输出结构C、选择结构D、循环结构11、下列结果为真的关系表达式是（）A、”A”<100B、23.5<20C、23<45 AND 72>8D、5<X<2012、以下运算符中运算优先级最高的是（）A、+B、ORC、>D、\13、整除运算时，若运算量为实数，则先取整，后相除，结果为整型或长整型。
高中信息技术算法与程序设计题库（含答案）
⾼中信息技术算法与程序设计题库（含答案）算法与程序设计会考题库算法与程序设计选择题2、下列属于字符型常量的是A、wordB、北京奥运会C、#2006-11-10#D、"1234"3、函数Abs(-9)返回的值是A、3B、4C、9D、-94、在VB语⾔中，下列正确的赋值语句是A、a + 4 = cB、a = 2 + cC、a + 4 = b - 5D、a / 2 = c * 35、以下程序段执⾏后，整型变量s的值为s = 1For i = 1 To 3s = s * iNext iA、0B、1C、3D、66、在VB语⾔中，下列合法的变量名是A、5566B、a-cC、ab&34D、x17、在VB语⾔中，表⽰“a⼤于5或⼩于0”的正确表达式是A、0 < a < 5B、a > 5 And a < 0C、a > 5 Or a < 0D、a > 0 And a < 58、代数式对应的VB表达式是A、a + b / cdB、(a + b) / c * dC、a + b / (c * d)9、以下程序段执⾏后，整型变量a的值为a=2 b=3b = b + aa = a * bA、3B、5C、6D、1010、代数式对应的VB表达式是A、a + b / c - dB、(a + b) / c - dC、a + b / (c - d)D、(a + b) / (c - d)11、在VB语⾔中，下列正确的赋值语句是A、a + b = cB、a = 9C、a + 2 = b - 3D、a / 2 = c12、在VB语⾔中，下列正确的赋值语句是A、5 = cB、3 a = 5 cC、-c = c - 3D、a=b+c13、下列属于整型常量的是A、2006B、⼀千零⼀C、"1997"D、3.1416、下列属于整型常量的是B、59999C、4.5D、"45"17、函数Sqr(9)返回的值是A、1B、3C、4D、1618、代数式对应的VB表达式是A、a + b / 2 * cB、(a + b )/ 2 cC、a + b / (2 * c)19、下列逻辑表达式的值为“真”的是A、2 + 4 > 8B、3 + 12 > 15C、5 > 0 And 4 < 3D、10 / 5 < 320、以下程序段执⾏后，整型变量s的值为s = 0For i = 1 To 5s = s + 1Next iA、0B、1C、5D、1521、下列逻辑表达式的值为“真”的是A、3 < 8 - 6B、12 + 6 = 2 * 9C、12 - 5 < 5D、6 / 4 > 222、以下程序段执⾏后，整型变量s的值为s = 0For i = 1 To 3B、1C、3D、623、下列属于整型常量的是A、1997B、⼀千零⼀夜C、"1997"D、ABC24、函数Abs(-4)返回的值是A、1B、2C、4D、-426、下列属于字符型常量的是A、1234B、abcdC、#abc123#D、"2008北京奥运会"27、设置窗体标题时，应改变窗体的A、Name属性B、Caption属性C、BackColor属性D、Font属性28、在VB语⾔中，下列合法的变量名是A、34abB、ab_cC、ab-34D、c\c29、以下程序段执⾏后，整型变量a的值为a=5b=8b=b+aC、13D、1830、下列逻辑表达式的值为“假”的是A、3 + 5 > 10B、4 + 12 <> 15C、4 / 2 = 2D、5 < 2 * 331、若a = 8，b = 5，则运⾏Print a; "-"; b; "="; a - b的结果是A、a -b = 3B、8 - 5 = 3C、a - b = a - bD、332、函数Abs(5)返回的值是A、1B、5C、-5D、2533、下列逻辑表达式的值为“假”的是A、4 + 11 > 20B、3 + 5 > 7C、8 / 4 < 4D、5 > 3 And 3 > 234、若a = 4，b = 5，则运⾏Print a; "+"; b; "="; a + b的结果是A、a + b = 9B、4 + 5 = 9C、a + b = a + bD、935、在VB语⾔中，表⽰“a⼤于0⼩于12”的正确表达式是A、12 > a > 0B、a > 12 And a < 0C、a > 12 Or a < 0D、a > 0 And a < 1237、设置窗体背景颜⾊时，应改变窗体的A、Name属性B、Caption属性C、BackColor属性D、Font属性38、以下程序段执⾏后，整型变量a的值为a=3b=5b=b-aa=a+bA、2B、5C、8D、1139、在VB语⾔中，下列正确的赋值语句是A、a + 3 = cB、a = c - 9C、2 * a = 3 * bD、a + b / 2 = c40、在VB语⾔中，下列正确的赋值语句是A、a = a + 1B、3 * a = c - 5C、a + a = 2 * aD、a + 3 = b41、以下程序段执⾏后，整型变量a的值为a = 3b = 5b = b + aa = a + bA、3B、5C、11D、1342、在VB语⾔中，下列合法的变量名是A、22aaB、helloC、a*bD、a^243、在VB语⾔中，下列合法的变量名是A、aaB、a*bC、7abD、dim44、在VB语⾔中，下列合法的变量名是A、12aB、ab/cC、ab34D、(ab)45、以下程序段执⾏后，整型变量s的值为s = 0For i = 1 To 4s = s + iNext iA、0B、4C、5D、1046、以下程序段执⾏后，整型变量a的值为a=5b=8b = b - aa = a - bA、2B、3C、5D、848、函数Sqr(16)返回的值是A、1B、3C、4D、1649、以下程序段执⾏后，整型变量s的值为s = 0For i = 1 To 4s = s + 1Next iA、0B、1C、4D、5算法与程序设计操作题1、打开“考⽣⽬录VB\134”⽂件夹中的⽂件：“k4.vbp”进⾏以下操作后并保存。
vb《算法与程序设计》复习试题(1)
《算法与程序设计》复习题一、选择题部分(100题)一章一节：了解计算机解决问题的过程1．用计算机解决问题时，首先应该确定程序“做什么？”，然后再确定程序“如何做？”请问“如何做？”是属于用计算机解决问题的哪一个步骤？（）A、分析问题B、设计算法C、编写程序D、调试程序答案：B2.学校要举行运动会，请你设计一个能够对运动员分数自动排序的软件，如果要设计此软件，以下最好的方法和步骤是（）。
A、分析问题，编写程序，设计算法，调试程序B、设计算法，编写程序，提出问题，调试程序C、提出问题，设计算法，编写程序，调试程序D、设计算法，提出问题，编写程序，调试程序答案：C3．下列步骤不属于软件开发过程的是（）。
A、任务分析与系统设计B、软件的销售C、代码编写与测试D、软件测试与维护答案：B4．用计算机解决问题的步骤一般为（）①编写程序②设计算法③分析问题④调试程序。
A．①②③④ B．③④①② C．②③①④ D．③②①④答案：D5．以下描述中最适合用计算机编程来处理的是（）。
A、确定放学回家的路线B、计算某个同学期中考试各科成绩总分C、计算100以内的奇数平方和D、在因特网上查找自己喜欢的歌曲答案：C6．以下问题中最适合用计算机编程处理的是（）。
A、制定本学期的学习计划B、计算正方形的周长C、创作一首歌曲D、求1000以内的所有素数答案：D7．由“上车—掏钱—投币”所描述的问题是（）。
A、无人售票车投币过程B、乘公交车过程C、上车过程D、下车过程答案：A一章二节：算法和算法描述8．下面说法正确的是（）。
A、算法+数据结构=程序B、算法就是程序C、数据结构就是程序D、算法包括数据结构答案：A9．算法描述可以有多种表达方法，下面哪些方法不可以描述“水仙花数问题”的算法（）。
A.自然语言B.流程图C.伪代码D.机器语言答案：D10．下面关于算法的说法错误的是（）。
A、算法必须有输出B、算法就是程序C、算法不一定有输入D、算法必须在有限步执行后能结束答案：B11.算法的三种基本控制结构是顺序结构、分支结构和（）。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
A ．算法与程序设计一、选择题（本大题共17小题，每题2分，共34分） 1.下列问题不能用算法描述的是A.已知a 、b 、c 的值，求一元二次方程ax 2+bx+c=0（a ≠0）的实数解B.计算某个班级英语成绩的平均分C.列出方程y=2x+1的所有实数解D.根据矩形的长和宽求面积 2.下列可以作为VB 变量名的是 A. A&s B. A+S C. AS D. A_s 3.将数学表达式2||y x x写成VB 表达式正确的是 A.（y – Int （x ））/x*x B.（y – Abs （x ））/x^2 C.（y – Int （x ））/x^2 D.（y – Abs （x ））/ x*x4. 某宾涫的房间号由5位字符组成（例如A0823表示A 幢8层23号房间）末位数字为奇数时表示房间朝南，为偶数时表示房间朝北，字符串变量s 中存储了1个房间号，下列能正确判断房间朝南的VB 表达式是 A.V al （Mid （s ，5，1））Mod 2 = 1 B. Val （Mid （s ，5，1））Mod 2 = 0 C. Val （Mid （s ，5，1））\ 2 = 1 D. V al （Mid （s ，5，1））\ 2 = 05.下列VB 表达式中：①Sin （x ） ②Text1.Text ③Label1.Caption ④Chr （x ） ⑤Asc （x ） 值为字符串型的是A. ①③⑤B. ①②③C. ②④⑤D. ②③④ 6．下列能准确表达“如果明天不下雨，那久我们骑车去郊游”的伪代码是 A ．lf （明天下雨）Then （我们骑求去郊游）B ．If （明天不下雨）Then （我们骑车去郊游）Else （我们不去郊游）C ，If （明天下雨）Then （我们不去郊游）Else （我们骑车去郊游）D ．lf （明天不下雨）Then （我们骑车去郊游） 到a(10)中最小值min 程序段如For i = 2 To 10If a （i ）< min Then min = a(i) Next i方框中最合适的语句是 A. a （1）= min B. a （1）= 0 C. min = a(1) D. min = 0 8.某VB 的事件过程如下： Private Sub Command1_Click() Dim a As Integer a = Val(Text1.Text) a = 2 * a + 1Text1.Text = Str(a) End Sub程序运行时，在文本框Text1中输入1，连续两次单击命令按钮Command1后，Text1中显示的内容是 A. 7 B.5 C. 3 D. 19.对数组元素a(1)到a(8)进行排序，其排序算法的VB部分程序段如下：For m = 1 To 7p = mFor n = m + 1 To 8Next nIf p <> m Then t = a(p): a(p) = a(m): a(m) = tNext m方框中的语句是A. If a(n) < a(p) Then p = mB. If a(n) < a(p) Then p = nC. If a(n) > a(p) Then p = nD. If a(n) > a(p) Then p = m10.有如下VB程序段：Dim i As Integer, c As String, s As String, t As Strings = "2012 Hero": t = ""For i = 1 To Len(s)c = Mid(s, i, 1)If c >= "a" And c <= "z" Then t = t + cNext iText1.Text = t程序运行后，文本框Text1中显示的内容是A. 2012B.HeroC. eroD. 2012 H11.下列能表示矩形、圆、椭圆等形状的控件是A. 标签B.简单图形C. 文本框D. 命令按钮12.一个VB工程的部分设计界面如右图所示。
下列说法：①工程文件名是“工程1.vbp”②该工程只有1个窗体③窗体文件名是“MyForm”④窗体名称是“对象识别”A. ①②B.②③C. ①③D. ②④13.有两组数据：①54,31,43,12,8,73,56,34,89,60,23,67②87,83,75,70,63,59,55,37,33,21,17,7下列有关查找方法描述不正确的是A. ①可以直接使用顺序查找B.②可以直接使用对分查找C. ①可以直接使用对分查找D. ②可以直接使用顺序查找二、综合题：本大题5小题，其中第14小题2分，第15题4分，第16题5分，第17题4分，第18题4分，共19分。
14.下列VB程序运行时，在文本框Text1中输入10，单击命令按钮Command1后，文本框Text2中显示的内容是。
Private Sub Command1_Click()Dim x As Single, a As Integer, b As Integera = Val(Text1.Text)x = Sqr(a)b = Int(x)Text2.Text = Str(a + b)End Sub15.下列VB程序运行时，单击命令按钮Command1后，文本框Text1中显示的内容是(1) ，文本框Text2中显示的内容是(2) 。
Private Sub Command1_Click()Const n = 4Dim a(1 To n) As Integer, s As IntegerDim i As Integer, t As Integer, k As Integera(1) = 1: a(2) = 2: a(3) = a(1): a(4) = 0s = 0: k = 0For i = 1 To nt = a(i)a(i) = k + tk = ts = s + a(i)Next iText1.Text = Str(a(2))Text2.Text = Str(s)End Sub16.现要求编写VB程序实现如下功能：分别在文本框Text1、Text2和Text3中输入三条线段的长度，单击“判断”按钮Command1后，在标签Label1中显示判断结果。
程序运行界面如右图所示。
按此要求编写的程序如下：Private Sub Command1_Click()Dim a As Single, b As SingleDim c As Single, st As Stringa = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)If Not (a + b > c And b + c > a And c + a > b) Thenst = "这三条线不能构成一个三角形"ElseIf a * a + b * b = c * c Or a * a + c * c = b * b Or b * b + c * c = a * a Then st = "可以构成一个直角三角形"ElseIf ①Thenst = "可以构成一个等边三角形"Elsest = "可以构成一个不等边斜三角形"End IfLabel1.Caption = ②End Sub（1）请在划线处填入合适代码（2）下列表达式与“Not (a + b > c And b + c > a And c + a > b)”等价的是 （填字母）。
A. a + b <= c Or b + c <= a Or c + a <= bB. a - b <= c And b - c <= a And c - a <= bC. a + b <= c And b + c <= a And c + a <= b17.在一行数据（1,23,6,2,4,5,6,18,5,19）中，存在连续递增的数据序列（1,23）、（6）、（2,4，5,6,18）、（5,19），其序列长度分别为2、1、5、2，则连续递增的数据序列长度最大值max=5。
寻找max 的方法如下：从第二个数据开始，将该数与它的前一个数比较，如果该数大于它的前一个数，则k ←k+1，否则k ←1，……；直到最后一个数据处理完成为止。
在此过程中将k 的最大值保存在变量max 中。
依据上述算法描述编写的VB 程序如下，但加框处代码有错，请改正。
Const n = 10Dim a(1 To n) As Integer'Text1_KeyPress 过程用于输入数据并将数据依次存放到数组a 中 Private Sub Text1_KeyPress(KeyAscii As Integer) '该过程代码略 End SubPrivate Sub Command1_Click() Dim i As IntegerDim k As Integer '连续递增的数据序列长度Dim max As Integer '连续递增的数据序列长度最大值 max = 1 k = 1For i = 2 To nIf a(i) > a(i + 1) Then k = k + 1 Else k = 1 '（1） If k > max Then k = max '（2） Next iText2.Text = Str(max) End Sub18.三次函数321()2323f x x x x =-+-的图像如下图所示。
从图像中观察得到，在[0,4]区间内，分别存在一个局部极大点P（在P附近的函数值都小于f（P））和局部极小点Q（在Q附近的函数值都大于f（Q））。
寻找P和Q近似值的方法如下：在[0,4]区间内，每隔e（e=0.001）取一个值逐一枚举，如果找到某个值x，能同时满足f（x）> f（x-e）和f（x）> f（x+e），在x可作为P的近似值；如果找到的某个值x，同满足f（x）< f（x-e）和f（x）< f（x+e），则x可作为Q的近似值。
请仔细阅读和分析寻找P、Q近似值的方法和下列VB程序，在划线处填入合适代码，将下列程序补充完整。
'函数f用于计算f（x）的值Function f(x As Single) As Singlef = (1)End FunctionPrivate Sub Command1_Click()Const e = 0.001Dim a As Single, b As Single, c As Single, x As Singlea = f(-e):b = f(0)For x = 0 To 4 Step ec = f(x + e)If b > a And b > c ThenLabel1.Caption = "当x=" + Str(x) + "时，函数的极大值的近似值=" + Str(b) End IfIf (2) ThenLabel2.Caption = "当x=" + Str(x) + "时，函数的极小值的近似值=" + Str(b) End Ifa = b:b = cNext xEnd Sub第Ⅱ卷选考模块（共45分）A．算法与程序设计一、选择题：本大题13小题，每小题2分，共26分。