1、创新设计优化重组卷算法与程序设计综合检测试题算法与程序设计(A卷)综合检测试题一、选择题(本大题共25小题，每小题2分，共50分。每小题列出的四个备选项中只有一个是符合题目要求的，不选、多选、错选均不得分)1.将数学表达式：x25x3写成VisualBasic表达式，正确的是()A.2*xx3 B.x25*x3C.sqr(x)x3 D.x2x32.下列VB表达式的值等于3的是()A.Sqr(9) B.abs(1)C.Len(“1”) D Len(“3”)3.有如下VB程序段：()a12b54taabbt该程序执行后，变量a，b的值分别是()A.12，54 B.54，12C.54，54 D.12
2、，124.如下VB程序段：a3：b6：c5if ab and ac thenyaelse if bc then ybelseycend if该程序运行之后，整数型变量y的值()A.0 B.5 C.6 D.35.在Visual Basic中，语句Dim x As Single所说明的变量x属于()A.整数型 B.逻辑型C.字符串型 D.单精度实数型6.下列属于VisalBasic窗体文件的是()A.min.exe B.min.frmC.min.vbp D.min.mdb7.下列问题不能用算法描述的是()A.所有偶数的和B.将一个5位的十进制数转化为对应的二进制数C.将100个有理数按降序排列D.
3、求100个自然数中最大的一个数8.关于算法的三种基本模式，下列说法不正确的是()A.一个算法可以只有一种基本的模式B.一个算法必须包含三种基本模式C.一个算法可能包含两种基本模式D.一个算法可以包含三种基本模式的基本组合9.计算圆的面积的算法如下：(1)输入圆的半径r(2)pi3.14(3)计算圆的面积spi*r*r(4)输出面积s求解圆的面积采用的算法是()A.枚举算法 B.解析算法C.排序算法 D.查找算法10.为了查找自己曾经写过的某篇作文，小明依次翻开自己的多本作文本进行逐页查找。这种查找方法是()A.无序查找 B.随机查找C.对分查找 D.顺序查找11.在数组变量a(1)至 a(7)
4、中依次输入“a”， “b”，“c”， “d”， “e”， “f”， “g”，若用对分查找的方法查找“c”这个字符，所需要的比较次数是()A.1 B.2 C.3 D.412.在VB程序设计的过程，“20”“08”的运算结果是()A.“28” B.“208”C.“2008” D.“2008”13.在VB中，若用a，b，c分别代表对象名，属性名，属性值，则下列表达形式正确的是()A.a.bc B.a.cbC.b.ca D.b.ac14.执行以下VB程序段后，变量Z的值为：()x5y10z(xy)mod 2A.5 B.10 C.15 D.115.执行以下VB程序段后，变量Z的值为()x5y10z(xy
5、)2A.7.5 B.7 C.15 D.116.执行以下VB程序段后，变量Z的值为()x5y10z(xy)/ 2A.5 B.10 C.15 D.7.517.执行以下VB程序段后，变量Z的值为()Dim x，y，z as integerx5y10z(xy)/ 2A.7 B.8 C.7.5 D.118.描述算法的基本方法有()(1)自然语言(2)流程图(3)伪代码(4)机器语言A.(2)(3)(4) B.(1)(2)(3)C.(1)(2)(4) D.(1)(2)(3)(4)19.计算圆的面积的算法如下：(1)输入圆的半径r(2)pi3.14(3)计算圆的面积spi*r*r(4)输出面积s这种描述算法
6、的方法是()A.自然语言 B.流程图C.伪代码 D.机器语言20.求解矩形的面积采用的算法是()上述流程图描述算法的执行模式是()A.顺序模式 B.分支模式C.循环模式 D.混合模式21.【加试题】有如下VB程序段：x0for i1 to 100 step 1xxinext i该程序运行之后，整数型变量X的值是()A.100 B.4 450C.5 050 D.5 01022.【加试题】下列VB函数可以计算正整数n的阶乘的值。Function f(n As Integer) As IntegerIf (n1) Thenf1Elsefn * f(n1)End IfEnd Function上述函数采
7、用的算法是()A.枚举 B.查找C.排序 D.递归23.【加试题】阅读下面的VB函数Function f(n As Integer) As IntegerIf (n1) Thenf1Else If (n2) Thenf1Elseff(n1)f(n2)End IfEnd FunctionF(5)的值是()A.3 B.4 C.5 D.624.【加试题】5位评委依次给学生演讲的成绩打分依次为95，85，92，84，90，如下表所示：原始数据9585928490第一趟8592849095第二趟第三趟8485909295若采用冒泡法对其进行从小到大的排序，则第二趟的排序结果是()A.85 84 90 9
8、2 95 B.84 85 95 90 92C.84 85 95 92 90 D.84 90 92 85 93 25.【加试题】对数组83，85，61，75，95，86进行排序操作，若选择选择法进行排序，若完成第一遍时的结果为：61，85，83，75，95，86.则第二遍时的结果是()A.61，85，83，75，86，95 B.61，75，83，85，95，86C.61，75，83，85，86，95 D.61，85，83，75，95，86二、非选择题(本大题共5小题，每题10分，共50分)26.补充程序水仙花数是指一个n位数(n3)，它的每个数位上的数字之和的n次幂之和等于这个数本身。例如153
9、135333，153就是一个水仙花数。下面的VB程序就是求出全部4位的水仙花数并在列表框List1中显示出来，请在划线处将程序补充完整。Dim m As Integer, n As IntegerDim a As Integer, b As Integer, c As Integer, d As IntegerFor_(1)_To 9999aInt(m/1000)bInt(m/100)mod 10cInt(m/10)mod 10dm Mod 10If_(2)_ThenList1.AddItem Str(m)End_If_(3)_ (1)_(3分)(2)_(4分)(3)_(3分)27.补充程序。
10、找出100至200之间的素数，将结果显示到列表框List1中。Dim flag As BooleanDim n As IntegerFor i 100 To 200flag False(1)_Do While n Sqr(i)If_(2)_Then flagTrue_(3)_LoopIf_(4)_Then List1.AddItem Str(i)Next i(1)_(2分)(2)_(3分)(3)_(3分)(4)_(2分)28.程序补充(每空2分)某商品进行团购优惠活动：一次团购数量50件以下，95折优惠；团购数量在50件(包含50件)以上100件以下，85折优惠；100件(包含100件)以上，
11、75折优惠。商品单价是100元一件，完成如下程序。Private Sub Command1_Click()Dim p, s As Integerp100sVal(Text1.Text)Dim m As SingleIf_(1)_Thenmp*s*0.95ElseIf s100 Then_(2)_Else_(3)_End IfText2.Text Str(m)End Sub (1)_(2)_(3)_(4)当p30时，text2.text显示结果是_(5)当p150时，text2.text显示结果是_29.【加试题】补充程序(每空2分)选择排序算法的基本思想是在待排序的数据中选出最大或者最小的数据
12、，把它与第一个数据交换，然后再在其余的数据中找出最大或最小的数据与第二个数据交换，依次类推，直到所有数据排序完成。在如图所示的程序界面中，对这list1中的8个数进行选择排序，完成后在list2中显示出来。请你补充程序。Private Sub Command1_Click()Dim a(1 To 8) As IntegerFor i 1 To 8 将list1中数字读入数组中List1.ListIndexi1a(i) Val(List1.Text)Next iDim p, t As IntegerDim flag As BooleanFor i 1 To 8piFor_(1)_To 8If a
13、(j) a(p) Then_(2)_flagTrueEnd IfNext jIf_(3)_Then_(4)_a(i) a(p)a(p) tEnd If_(5)_For i 1 To 8List2.AddItem Str(a(i)Next iEnd Sub(1)_(2)_(3)_(4)_(5)_30.【加试题】对分查找首先将查找值与有序数组内处于中间位置的元素进行比较，如果中间位置上的元素内的数值与查找值不同，根据数组元素的有序性，就可确定应该在数组的前半部分还是后半部分继续进行查找；在新确定的范围内，继续按上述方法进行查找，直到获得最终结果。下面的VB程序在数组内进行对分查找，如果查到则在文本
14、框中先是查找元素的序号。请您把程序补充完整Dim a(1 To 8) As IntegerFor i 1 To 8 将list1中数字读入数组中List2.ListIndexi1a(i)Val(List2.Text)Next iDim low, mid, high, key, num As IntegerDim flag As BooleannumVal(Text1.Text)low1high8Do While_(1)_mid (low high)/2If (a(mid) num) Thenflag Truekey midElseIf_(2)_Thenlow midElse_(3)_End I
15、fLoopIf flag ThenText2.Text Str(key)ElseText2.Text “您输入的数字没有查找到！”End If(1)_(4分)(2)_(3分)(3)_(3分)算法与程序设计(B卷)综合检测试题一、选择题(本大题共25小题，每小题2分，共50分。每小题列出的四个备选项中只有一个是符合题目要求的，不选、多选、错选均不得分)1.下列VB表达式的值等于5的是()A.Sqr(9) B.“2”“3”C.Len(“5”) D.Len(“3234”)2.为使下面左右框内的VB程序段实现相同的功能，则左框内划线处填写的代码应该是()S0：t1Do While t6sst_Loop
16、A.t2 B.t6C.tt1 D.tt23.如下VB程序段：a12：b6：c7if ab and ac thenyaelse if b8and 51 B.31215or 30And 43 D.10/53or 60 then max3if b0 then max10A.0 B.3C.10 D.无法确定17.数组a中的数据存放情况如下表，以下关系表达式成立的是()a1a2a3a4a5a6a7a8134128657A.aa34 B.aa88C.a6a5aa11 D.aa2a1a418.下列控件中可用于接受用户输入文本，又可用于显示文本的是()A.Label控件 B.TextBox控件C.Timer控
17、件 D.mandButton控件19.“某商场的店庆促销活动之一：店庆日购物满500元可在5折优惠后再减100元，否则只打5折”。用算法描述这一问题，可采用的算法结构是()A.顺序结构 B.选择结构C.循环结构 D.树型结构20.在流程图中常用表示输入框()21.【加试题】S1For j10 To 10 Step2ss*jNext jMsgBox(s)上述程序段中ss*j的执行次数是()A.20 B.10 C.11 D.2122.【加试题】S0C0Do While C100CC1SSCLoopMsgBox (Str(C)Str(S)该程序的运行结果是()A.99 4950 B.100 4950
18、C.100 5050 D.101 515123.【加试题】小明编写了如下VB程序段：Private Sub com mand1_Click()Dim x As DoubleDim y As DoublexVal(Text1.Text)yAbs(x)xint(y)Text2.TextStr(x)End Sub此应用程序执行后，出现了如上图所示的错误信息，请问产生此错误的原因是()A.语句yAbs(x)有误 B.缺少对象424C.语句xint(y)有误 D.缺少文本框Text1或文本框Text224.【加试题】5位评委依次给学生演讲的成绩打分依次为95，85，92，84，90，如下表所示：原始数据
19、9585928490第一趟8495859290第二趟8485959290第三趟若采用冒泡法对其进行从小到大的排序，则第三趟的排序结果是()A.84 90 85 93 92 B.84 85 95 90 92C.84，85，90，95，92 D.84 90 92 85 93 25.【加试题】对数组83，85，61，75，95，86进行排序操作，若用选择法进行排序，若完成第一遍时的结果为：61，85，83，75，95，86.则第三遍时的结果是()A.61，85，83，75，86，95 B.61，75，83，85，95，86C.61，75，83，85，86，95 D.61，85，83，75，95，86二、非选择题(本大题共5小题，每题10分，共50分)26.补充程序完全数，又称完美数或完备数，是一些特殊的自然数。它所有的真因子(即除了自身以外的约数)的和(即因子函数)，恰好等于它本身。例如6123；下面程序找出1 000以内的完全数，在列表框中显示出来，把程序补充完整.Dim a, s As IntegerFor i 2 To 1000a1(1)_Do While asqr(i)If (i Mod a) 0 Then_(2)_(3)_LoopIf (s i) Then List1.AddItem Str(i)_(4)_(1)_(2分)(2)_
