1、 （第 1 页，共 18 页）算法与程序设计模块检测卷（一）班级 姓名 1、选择题(本题有 20 小题，每小题 3 分，共 60 分。在每小题给出的四个选项中，只有一个是符合题目要求的。)1. 使用计算机解决问题一般要经历三个阶段，第一阶段是分析问题确定要用计算机做什么，第二阶段是（ ）A.用计算机进行处理 B.编写计算机程序C.寻找解决问题的途径和方法 D.用计算机输出问题的解2.算法的“有穷性”特征是指（ ）3.一个算法可以用多种不同的方法来描述，流程图是（Flowchart）是一种比较直观易用的、用图形来描述算法的方法，请问流程图中各流程框之间是用什么来连接的（ ）A带箭头的直线 B带双
2、箭头的直线 C流程线段 D流程线4. 已知 n 的值，求 1 至 n 的所有的奇数之和 s，下列算法的功能是计算 s 值： 输入变量 n 的值，将变量 s 赋初值 0，将变量 i 赋初值 1 如果 i 的值大于 n 则转否则转 如果 i 是奇数，则将 s 的值加上 i 的值，结果存放在 s 中 将 i 的值增加 1 并转 输出 s 的值算法中的第步使用的控制结构是（ ）A. 分支结构 B. 顺序结构 C. 树型结构 D. 循环结构5.VB 语句 question1.caption=“你最喜欢的动物是什么？“中的 question1 是指（ ）A. 属性 B. 对象名称 C. 控件 D. 类A.
3、指算法中的每一个步骤必须有确切的含义，而不应当是含糊的、模棱两可的B.指算法中的每一个步骤都要足够简单，是实际能做的，而且能在有限的时间内完成C.指一个算法必须保证它的执行步骤是有限的，即它是能终止的D.指一个算法可以没有输入，但必须有输出（第 2 页，共 18 页）6.下列关于 VB 的 TextBox 控件的说法中，正确的是（ ）A. TextBox 控件只能输出文本，不能输入文本B. TextBox 控件既能输出文本，又能输入文本，但只限于英文C. TextBox 控件的 Text 属性决定了文本框中显示的内容D. TextBox 控件的 Caption 属性决定了文本框中显示的内容7.
4、VB 开发应用程序的两大精髓是“可视化”和_（ ）A.事件 B.面向对象 C.事件驱动 D.窗口化8. 对于 VB 语句 If xy 和 y=x*x 均为关系表达式C. xy 为关系表达式，y=x*x 为赋值语句9. 下列可作为 Visual Basic 变量名的是（ ）A. 2ab B. a2b C. a-b D. then10. 下面 VB 程序的功能是求 100 以内能被 2 和 3 都整除的数的个数，为实现此功能，则程序划线空白处应填入的语句为（ ）t=0For I=1 to 100If _ then t=t+1Next IPrint tA.t mod 2 and t mod 3=0
5、B.i mod 2=0 or i mod 3=0C.i2=0 and i mod 3=0 D.i mod 2=0 and i mod 3=011. 执行以下 VB 程序段后, 变量 s 的值为 （ ）s=0p=5q=2*p（第 3 页，共 18 页）p=p-qs=s+p+qprint sA. 0 B. 5 C. 10 D. 1512.条件表达式“pq0”对应的 VB 表达式是（ ）A. pq0 B. pq and q0 C. p=q or q=0 D. p=q and q=013.数学代数式“y=2x 2+x+1”对应的 VB 表达式是（ ）A.y=2x*x+x+1 B.y=2*x2+xC.y
6、=2*x*x+x+1 D.y=2x+x+114.VB 提供了大量的标准函数，可供用户编写程序时直接使用，如数学函数 Sqr(X)表示（ ）A. 求以 e 为底的 X 的对数 B. 求 e 的 X 次方C. 求 X 的绝对值 D. 求 X 的算术平方根15.已知 a=-4.99，b= 7，则 VB 表达式 int(a)+b 3 的值为（ ）A. -2 B. -3 C. 3.3 D. 016. 要使下面的 Visual Basic Do 循环语句做 4 次，则划线处的语句应该是（ ）j=3sum=0Do While jb Thena=bElseb=aEndIf18.有如下程序段：s=0for i=
7、6 to 12 step 2if i mod 3=0 thens=s-ielses=s+iendifnext Iprint s该程序段运行后，s 的值为A0 B4 C12 D2419. 若采用冒泡排序算法对其进行从大到小排序，则第3遍的排序结果是（ ）原始数据 10 25 200 100 90第一遍 200 10 25 100 90第二遍 200 100 10 25 90第三遍第四遍 200 100 90 25 10A. 200 100 25 10 90 B. 200 100 90 25 10C. 200 100 90 10 25 D. 200 100 25 90 1020.下列有关对分查找算
8、法的叙述中错误的是（ ）A. 对分查找是一种效率很高的查找方法（第 5 页，共 18 页）B. 要使用对分查找，前提是被查找的数据必须是有序的C. 对分查找一定比顺序查找效率高D. 对分查找和顺序查找是两种不同的查找，各有优缺点二、综合题：（本大题 6 小题，其中第 21 题 4 分，第 22 题 4 分，第 23 题 8 分，第 24 题 8 分，第 25 题 8 分，第 26 题 8 分，共 40 分。 ）21、有如下 VB 程序段：a = 8b = 3c = abs = bcPrint s该程序段运行后，S 的值为_。22.下列 VB 程序运行时，在文本框 Text1 中输入数据 16，
9、在文本框 Text2 中输入数据 36，单击命令按钮 Command1 后，文本框 Text3 中显示的内容是_。Private Sub Command1_Click( )Dim p As Integer, q As integer, t as integerp = Val(Text1.Text)q = Val(Text2.Text)If p0 or q 8 Then ans = “不开心“If Thenmax = s End IfNext iText1.Text = ansText2.Text = Str(day)End Sub （第 10 页，共 18 页）算法与程序设计模块检测卷（二）班
10、级 姓名 2、选择题(本题有 20 小题，每小题 3 分，共 60 分。在每小题给出的四个选项中，只有一个是符合题目要求的。)1.用计算机解决问题一般有以下三个阶段：（ ）寻找解决问题的途径和方法用计算机处理分析问题正确的处理顺序是A B C D2.下列关于算法的叙述不正确的是 （ ）A算法是解决问题的有序步骤B算法具有确定性、能行性、有穷性等基本特征C一个问题的算法都只有一种D算法中的每个步骤必须有确切的含义3算法用流程图(Flowchart)来表示，开始结束框是用来表示算法的开始和结束，以下哪个表示开始结束框（ ）A B. C. D.4.下面是一段关于计算变量 s 的算法：变量 s 的初值
11、为 0,p 的初值为 1变量 i 从 1 起循环到 n循环体内执行 s s + p*i，p -p输出变量 s 的值这个计算 s 值的算法中，s 的代数式表示式是（ ）A12+34+(-1) n(n1) B12+34+(-1) n-1nC1+2+3+4+n D123n5.要从文本框 TXTShowOut 中输出“中国您好！“，代码为（ ）ATextBox.text=“中国您好！“ BTxtShowOut.Text=“中国您好！“CTxtShowOut.Label=“中国您好！“DTxtShowOut.caption=“中国您好！“（第 11 页，共 18 页）6. VB 控件工具箱中的控件 是（
12、 ）A. 文本框 B. 单选按钮 C. 图片框 D. 标签7Visual Basic 中以单引号开头一行文字称为注释，它对程序的运行（ ）A不起任何作用，但能增加程序的可阅读性 B有时候起作用C不起任何作用，但是必须的 D起一定作用8.在 Visual Basic 中，下列语句定义错误的是（ ）Aconst pi=3.14 Bdim x as integerCdim b(1 to 5) as string Ddim true as Boolean9.用下面语句定义的数组的元素个数是（ ）Dim A (-2 To 5) As IntegerA. 6 B. 7 C. 8 D. 910.下列逻辑表达
13、式中，值为 False 的是（ ）AInt（14 / 3）= 4 B(1 + 2) 3 ) and (4 + 5 7)CInt（Rnd（）* 3） 3 D ”abc”bc”11下面程序执行的结果是（ ） Private Sub Form_Click()A = “123“: B = “456“C = Val(A) + Val(B)msgbox (C 100)End SubA. 123 B. 3 C. 5 D. 57912.与数学表达式x 2-31对应的表达式是.（ ）A. abs(x2-31) B. sqr(x2-31) C. Abs(x2-31) D. int(x2-31)13.老师想在班会上
14、设计一个随机抽学号回答问题的有奖问答活动，但是如何能够随机抽取号码呢，小明是电脑高手，他想到了 vb 中的随机数函数 rnd()，请你帮小明选择一下下面哪个表达式可以产生【1，50】的随机学号（ ）A. 1+Rnd()*50 B. Int(1+rnd()*50) C. Rnd()*50 D. Int(1+Rnd()*49)14.已知字符串变量 mystring=“Microsoft office“,则 VB 表达式 Mid(mystring,5,3)的值为（ ）A. ing B. rin C. oso D.sof15. 有如下 Visual Basic 程序段： （第 12 页，共 18 页）
15、For k=_ To 5 t=t*kNext k要使循环体 t=t*k 执行 10 次，循环变量的初值是（ ）A1 B -4 C-6 D1516.执行下面的程序段后，x 的值为（ ）x=5For i=1 To 20 Step 2x=x+i5Next IA21 B22 C23 D2417.有如下程序段：s=0:k=0for i=1 to 10 step 2if i mod 2=0 thens=s+ielsek=k+iend ifnext iprint s-k该程序段运行后，s 的值为（ ）A0 B5 C30 D-2518有如下程序段运行后，变量 a、b、c 的值分别为（ ）a = 1: b =
16、2: c = 3Do While a + b + c 10)部分，每公里收 2.5 元；输入运行里程（第 15 页，共 18 页）（用变量 d 表示） ，计算车价 F。解决上述问题的 Visual Basic 程序如下，在程序、划线处应填入的语句或表达式是_、_VB 程序界面设计如第 24-1 图所示。Private Sub Command1_Click()Dim d As Integer, f As singled = Val(Text1.Text)If d = 3 Thenf = 10ElseIf Thenf = 10+(d-3)*2else End IfText2.Text = Str(
17、f)End Sub25、如果一个 4 位数等于它的各位数字的 4 次方和，则这个 4 位数称为“玫瑰花”数，例如1634=14+64+34+44 就是一个玫瑰花数，求所有符合这样条件的四位数。某同学为了找出所有符合条件的四位数，编写了下列 Visual Basic 程序。现已发现该程序中加框处代码有错，请分析改正：_ _Private Sub Command1_Click()Dim i As Integer, w As Long, x As Long, y As Long, z As Long（第 16 页，共 18 页）For i = 1000 To 9999w= i 1000x =(i m
18、od 1000) 100y= i100 mod 10 z= i mod 10If (w+x+y+z)4 = i Then List1.AddItem Str(i)End IfNext iEnd Sub26、有一根长为 600cm 的钢筋，需要截成长度为 69cm、39cm、29cm 的三种规格的短料，在三种规格的短料至少各截 l 的前提下，如何截取才能使所余下的材料最少?请根据流程图 26-1 图将下列程序补充完整。_ _ _ Private Sub Command1_Click()Dim x as integer,y as integer,z as integer,min As IntegerDim a As Integer, b As Integer, c As Integer For x = 1 To 7For y = 1 To 12For z = 1 To 16If Thenmin = 600 - 69 * x - 39 * y - 29 * za = xb = yc = zEnd IfNextNextNext（第 17 页，共 18 页）Print min & “|“ & a & “|“ & b & “|“ & cEnd Sub（第 18 页，共 18 页）
