1、 1 / 5算法与程序设计模拟测试卷（二）考试时间：90 分钟 满分：100 分 一、 单项选择题（共 20 个空，每空 2 分，共 40 分）1.下面关于算法的认识错误的是（ ） 。A算法是解决问题的方法和步骤 B算法有一个或多个的输出C算法就是计算机程序 D算法的步骤必须是有限的2关于数组的说法，下面错误的是（ ） 。A同一数组中的数据类型一定相同 B数组元素个数是有限的 C可以定义字符串类型的数组 D同一个程序的数组数据类型一定相同3设置窗体标题时，应改变窗体的（ ）属性。A Name B Font C BackColor D Caption 4不能使用“do“作为变量名的原因是（ ）
2、。A由英文字母开头 B后面没有使用数字C使用了英文单词 D使用了关键字5代数式 对应的 VB表达式是（ ） 。dcbaA (a + b)/(c - d) B (a + b)/c d C a + b/(c - d) D a + b/c - d6若变量 a 的值为 34000，则变量 a 的数据类型不可能为（ ） 。Ainteger B long C single Ddouble如图所示的流程图为求x的绝对值算法。请回答7-8题：x =0 y = x 否 y = -x 开 始 是 输 出 y 结 束 7根据算法，流程图中处的内容是（ ） 。A输入-x B输入x C输入y D输入-y8该算法包含了（
3、 ）控制结构2 / 5A顺序结构 B选择结构 C顺序和循环结构 D顺序和选择结构9在VB语言中，下列正确的赋值语句是（ ） 。A a + a = 2 B 3 * a = c 5 C a = 2 * a D a + 3 = b10在 VB 中，假定有以下程序段：For i=1 to 3 step 2Print “VB”Next i则语句 print “VB”的执行次数是（ ） 。A4 B3 C2 D111下面一组语句能令数组的两个元素 a(i)与 a(j)交换数据的是（ ） 。Atemp=a(i): a(i)=a(j): a(j)=temp Btemp=i: i=j: j=tempCtemp=a
4、(i): a(j)=a(i): a(i)=temp Dtemp=a(j): a(i)=a(j): a(j)=temp12在VB语言中，表示“a大于5或b小于0” 的正确表达式是（ ） 。A 0 5 And b 5 Or b 0 And b 015关于函数与过程的说法，正确的是（ ） 。A过程结束时一定要返回一个值 B过程内一定要定义变量C可以在表达式中调用过程 D函数一定要有返回值16二分法查找的前提是（ ） 。A被查找数据元素个数是奇数 B被查找数据元素个数是偶数C被查找数据元素是有序的 D被查找数据元素是无序的17当一个顺序文件通过（ ）方式打开以后，才能向此文件写入数据。Afor inp
5、ut 或 for output Bfor input 或 for appendCfor output 或 for append D以上都可以18用选择排序法对数据 7,8,3,9,2 从小到大排序，第 3 趟结果是（ ） 。A2,3,7,9,8 B3,8,2,7,9 C3,2,8,7,9 D3,7,8,9,219要从 n 个数据元素中顺序查找一个元素，最多查找次数是（ ） 。A1 Bn Cn/2 Dlgn20 孙子算经上有一道“物不知数”问题：“今有物不知其数，三三数之剩二，五五数之剩三，七七数之剩二。问物几何？”该问题应采用（ ） 。A解析法 B查找法 C穷举法 D递归算法二、填空题：（共
6、10 个空，每空 3 分，共 30 分）1编程计算 s=1*(-2)*3*(-4)*49*(-50)Private Sub Form_Click()Dim s as integer,i as single s= （21） Bx=1Do x=2*x+1Loop until x=3Cx=5Do x=x-2Loop until x=3Dx=1Do x=x+2Loop until x=83 / 5For i=1 to 50If （22） thens=s*ielse s= （23） next iprint “s=”;send sub2某顾客欲将 300 元钱全部换成 10 元、20 元、50 元的面额（
7、每种面额至少 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= （24） For a=1 to 30For b=1 to （25） For c=1 to 30If （26） then n= （27） Next cNext bnext aprint “n=”;nend sub3、编写递归函数求 5！的值。Public Function s(n As Integer) As LongIf n
8、 = 1 Thens = （28） Elses = （29） End IfEnd FunctionPrivate Sub form_Click() 调用递归函数，显示结果Print “s(5)=“; （30） End Sub三、阅读程序，写出运行后输出的结果（前两题每题 5 分，后两题每题 10 分，Public Function s(n As Integer) As LongIf n = 1 Thens = 1 Elses = s(n-1)*n End IfEnd FunctionPrivate Sub form_Click() Print “s(10)=“; s( 5 )End Sub4
9、/ 5共 30 分）31Private Sub Command1_Click()dim x as integer，y as singlex = Round(5.4)Select Case xCase 1 To 5y = 4 + Abs(x)Case 6 To 10y = 50 * xCase Elsey = x 2End SelectPrint yEnd sub33Private Sub Command1_Click()Dim a as integer, b as integer, t as integerDim ma as integer, mb as integer, n As Integ
10、era = 12: b = 8: n = 20t = 0Dot = t + 1ma = t * a Mod nmb = t * b Mod nLoop Until ma = mbPrint tEnd Sub34、Private Sub Command1_Click()Dim m1 as integer，m2 as integerDim j as integer，a(5) as integerFor j = 1 To 5a(j) = InputBox(“)Next jm2 = 1m1 = a(1)For j = 2 To 5If a(j) m1 Thenm1 = a(j)m2 = jEnd If
11、Next jPrint m1Print m2End sub若输入的数分别是 237, 126, 87, 48, 498，则输出结果是？32Private Sub Command1_Click()Dim m as integer,n as integerDim t As Integerm = 10n = m * 2t = m * nprint tEnd Sub5 / 5选修模块“算法与程序设计”模拟测试题二参考答案一、 单项选择题1C 2D 3D 4D 5C 6A 7B 8D 9C 10C 11A 12C 13A 14D 15D 16C 17C 18A 19B 20C二、填空题211 22i mod 2=1 23s*(-i)240 2530(或 24,或其他通过数学方式推理出来的结果)26a*10+b*20+C*50=300 27n+1281 29s(n-1)*n 30s(5)三、阅读程序，写出运行后输出的结果319 32200 335 34498 5
