《《算法与程序设计》试卷二.doc》由会员分享，可在线阅读，更多相关《《算法与程序设计》试卷二.doc（12页珍藏版）》请在三一文库上搜索。
1、实用文案算法与程序设计测试题(二)考试时间：90分钟 满分：100分第一卷一、单项选择题：(共20个空，每空2分，共40分)1 .下面关于算法的认识，错误的是。A. 算法是解决问题的方法和步骤B. 算法有一个或多个的输出C. 算法就是计算机程序D. 算法的步骤必须是有限的2. 关于数组的说法，下面错误的是。A. 同一数组中的数据类型一定相同B. 数组元素个数是有限的C. 可以定义字符串类型的数组D. 同一个程序的数组数据类型一定相同3. 设置窗体标题时，应改变窗体的 属性。A. NameB. FontC. BackColorD. Caption4. 不能使用“ do”作为变量名的原因是。A.
2、由英文字母开头B后面没有使用数字C使用了英文单词D.使用了关键字5. 代数式一：对应的VB表达式是。A. (a + b)/(c - d)B. (a + b)/c d标准文档C. a + b/(c - d)D . a + b/c - d6 .若变量a的值为34000,则变量a的数据类型不可能为A. integerB. longC. si ngleA. 顺序结构B. 选择结构C. 顺序和循环结构D. 顺序和选择结构9. 在VB语言中，下列正确的赋值语句是A. a + a = 2B. 3 * a = c - 5C. a = 2 * aD. a + 3 = b10. 在VB中，假定有以下程序段：For
3、 i=1 to 3 step 2Print “ VBNext i则语句print“VB'的执行次数是A. 4B. 3C. 2D. 111. 下面一组语句能令数组的两个元素a(i)与a(j)交换数据的是A. temp=a(i): a(i)=a(j): a(j)=tempB. temp=i: i=j: j=tempC. temp=a(i): a(j)=a(i): a(i)=tempD . temp=a(j): a(i)=a(j): a(j)=temp12 .在VB语言中，表示“ a大于5或b小于0”的正确表达式是。A. 0 < b or a < 5B. a > 5 And
4、 b < 0C. a > 5 Or b < 0D. a > 0 And b < 513. 若 a = 4 , b = 5，则运行 Print a; "+" b; "=" a + b的结果是A. 4+5=9B. a+b=9C. a+b=a+bD. 914. 下列循环语句中循环次数无限的是。A. x=0Dox=x+1Loop un tilx>0B. x=1Dox=2*x+1Loop un tilx=3C. x=5Dox=x-2Loop un til x>=3D. x=1Dox=x+2Loop un til x=815
5、. 关于函数与过程的说法，正确的是。A. 过程结束时一定要返回一个值B. 过程内一定要定义变量C. 可以在表达式中调用过程D. 函数一定要有返回值16. 二分法查找的前提是。A. 被查找数据元素个数是奇数B. 被查找数据元素个数是偶数C. 被查找数据元素是有序的D. 被查找数据元素是无序的17. 当一个顺序文件通过方式打开以后，才能向此文件写入数据。A. for in put或 for outputB. for in put或 for appe ndC. for output 或 for appendD. 以上都可以18 .用选择排序法对数据7,8,3,9,2从小到大排序，第3趟结果是A. 2
6、,3,7,9,8B. 3,8,2,7,9C. 3,2,8,7,9D. 3,7,8,9,219. 要从n个数据元素中顺序查找一个元素，最多查找次数是A. 1B. nC. n/2D. Ign20. 孙子算经上有一道“物不知数”问题：“今有物不知其数，三三数之剩二，五五数之剩三，七七数之剩二。问物几何？”该问题应采用A. 解析法B. 查找法C. 穷举法D. 递归算法第二卷二、填空题(共10个空，每空3分，共30分)21. 编程计算 s=1*(-2)*3*(-4)*49*(-50)Private Sub Form_Click()Dim s as in teger,i as si ngles= (1)F
7、or i=1 to 50If(2) thens=s*ielses= (3)next iprint s= ;send sub程序中(1)处应填入。程序中（2）处应填入。程序中（3）处应填入。22 .某顾客欲将300元全部换成10元、20元、50元的纸币（每种面额至少1 张），请问有几种换法？Private Sub Form_Click（）Dim a as integer,b as integer,c as integer ,n As integer'a,b,c分别代表10,20,50元面额的张数；n代表换法n= （ 1）For a=1 to 30For b=1 to（ 2）For c=1
8、 to30If（ 3）then n= （4）Next cNextbNext aprint n= ;nend sub程序中(1)处应填入。程序中(2)处应填入。程序中(3)处应填入。程序中(4)处应填入。23.编写递归函数求5!的值。Public Fun cti on s(n As In teger) As LongIf n = 1 The ns = (1)Elses =(2)End IfEnd Function调用递归函数，显示结果Private Sub form_Click()Prin t "s (5)="(3)End Sub程序中(1)处应填入。程序中(2)处应填入。程
9、序中(3)处应填入。三、阅读程序，写出运行后输出的结果：(前两题每题5分，后两题每题10分，共30分)24.Private Sub Command1_Click() dim x as integer，y as singlex = Rou nd(5.4)Select Case xCase 1 To 5y = 4 + Abs(x)Case 6 To 10y = 50 * xCase Elsey = x A 2End SelectPrint yEnd sub25.Private Sub Comma nd1_Click()Dim m as in teger, n as in tegerDim t As
10、 In tegerm = 10n = m * 2t = m * nprint tEnd Sub运行结果:26.Private Sub Comma nd1_Click()Dim a as in teger, b as in teger, t as in tegerDim ma as integer, mb as integer, n As Integera = 12: b = 8: n = 20t = 0Dot = t + 1ma = t * a Mod nmb = t * b Mod nLoop Un til ma = mbPrint tEnd Sub运行结果:27.Private Sub C
11、omma nd1_Click()Dim m1 as integer , m2 as integerDim j as integer, a(5) as integerForj = 1 To 5a(j) = In putBox("")Next jm2 = 1m1 = aForj = 2 To 5If a(j) > m1 The nm1 = a(j)m2 = jEnd IfNext jPrint m1Print m2End sub若输入的数分别是237,126, 87, 48, 498，则输出结果是什么?运行结果:答案：1.C2.D3.D4.D5.C6.A7.B8.D9.C10.C11.A12.C13.A14.D15.D16.C17.C18.A19.B20.C21.(1) 1(2)i mod 2=1(3) s*(-i)22.(1) 1(2) 30(或24,或其他通过数学方式推理出来的结果)(3) a*10+b*20+C*50=300(4) n+123.(1) 1(2)s(n-1)*n(3) s(5)24. 925. 20026. 527. 4985