算法与程序设计-模块卷.doc_第1页
算法与程序设计-模块卷.doc_第2页
算法与程序设计-模块卷.doc_第3页
算法与程序设计-模块卷.doc_第4页
算法与程序设计-模块卷.doc_第5页
已阅读5页,还剩13页未读 继续免费阅读

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

算法与程序设计模块检测卷(一)班级 姓名 1、 选择题(本题有20小题,每小题3分,共60分。在每小题给出的四个选项中,只有一个是符合题目要求的。) 1. 使用计算机解决问题一般要经历三个阶段,第一阶段是分析问题确定要用计算机做什么,第二阶段是( )A.用计算机进行处理B.编写计算机程序C.寻找解决问题的途径和方法D.用计算机输出问题的解2.算法的“有穷性”特征是指( )A.指算法中的每一个步骤必须有确切的含义,而不应当是含糊的、模棱两可的B.指算法中的每一个步骤都要足够简单,是实际能做的,而且能在有限的时间内完成C.指一个算法必须保证它的执行步骤是有限的,即它是能终止的D.指一个算法可以没有输入,但必须有输出3.一个算法可以用多种不同的方法来描述,流程图是(Flowchart)是一种比较直观易用的、用图形来描述算法的方法,请问流程图中各流程框之间是用什么来连接的( )A带箭头的直线B带双箭头的直线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. 类6.下列关于VB的TextBox控件的说法中,正确的是( )A. TextBox控件只能输出文本,不能输入文本B. TextBox控件既能输出文本,又能输入文本,但只限于英文C. TextBox控件的Text属性决定了文本框中显示的内容D. TextBox控件的Caption属性决定了文本框中显示的内容7.VB开发应用程序的两大精髓是“可视化”和_( )A.事件B.面向对象C.事件驱动D.窗口化8. 对于VB语句 If xy Then y=x*x,下列说法正确的是( )A. x=y和y=x均为赋值语句B. xy和y=x*x均为关系表达式C. xy为赋值语句,y=x*x为关系表达式D. xy为关系表达式,y=x*x为赋值语句9. 下列可作为Visual Basic变量名的是( )A. 2abB. a2bC. a-bD. then10. 下面VB程序的功能是求100以内能被2和3都整除的数的个数,为实现此功能,则程序划线空白处应填入的语句为( )t=0For I=1 to 100 If _ then t=t+1Next IPrint tA.t mod 2 and t mod 3=0B.i mod 2=0 or i mod 3=0C.i2=0 and i mod 3=0D.i mod 2=0 and i mod 3=011. 执行以下VB程序段后, 变量s的值为 ( )s=0p=5q=2*pp=p-qs=s+p+qprint sA. 0B. 5C. 10D. 1512.条件表达式“pq0”对应的VB表达式是( )A. pq0B. pq and q0C. p=q or q=0D. p=q and q=013.数学代数式“y=2x2+x+1”对应的VB表达式是( )A.y=2x*x+x+1B.y=2*x2+xC.y=2*x*x+x+1D.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. -2B. -3C. 3.3D. 016. 要使下面的 Visual Basic Do 循环语句做4次,则划线处的语句应该是( )j=3sum=0 Do While jb Thena=b Else b=a EndIf18.有如下程序段: s=0 for i=6 to 12 step 2if i mod 3=0 then s=s-ielse s=s+iendif next I print s该程序段运行后,s的值为A0B4C12D2419. 若采用冒泡排序算法对其进行从大到小排序,则第3遍的排序结果是( )原始数据102520010090第一遍200102510090第二遍200100102590第三遍第四遍200100902510A. 200 100 25 10 90B. 200 100 90 25 10C. 200 100 90 10 25D. 200 100 25 90 1020.下列有关对分查找算法的叙述中错误的是( )A. 对分查找是一种效率很高的查找方法B. 要使用对分查找,前提是被查找的数据必须是有序的C. 对分查找一定比顺序查找效率高D. 对分查找和顺序查找是两种不同的查找,各有优缺点二、综合题:(本大题6小题,其中第21题4分,第22题4分,第23题8分,第24题8分,第25题8分,第26题8分,共40分。)21、有如下VB程序段: a = 8 b = 3 c = ab s = bc Print s 该程序段运行后,S的值为_。22.下列VB程序运行时,在文本框Text1中输入数据16,在文本框Text2中输入数据36,单击命令按钮Command1后,文本框Text3中显示的内容是_。Private Sub Command1_Click( ) Dim p As Integer, q As integer, t as integer p = Val(Text1.Text) q = Val(Text2.Text) If p0 or q0 Then t=sqr(p) else t=0 Text3.Text = str(t)End Sub23.下列VB程序运行时,单击命令按钮Command1后,文本框Text1中显示的内容是_,文本框Text2中显示的内容是_。Private Sub Command1_Click() Dim a(1 To 5) As Integer, i As Integer, t As Integer a(5) = 15 a(4) = 3For i = 3 To 1 Step -1 a(i) = a(i + 2) - a(i + 1) Next i Text1.Text = Str(a(1) t = a(1) For i = 2 To 5 If a(i) t Then t = a(i) Next i Text2.Text = Str(t)End Sub24.某车间按工人加工零件的数量发放奖金,奖金分为三个等级:每月加工零件数量小于100者奖金为50元,大于等于100且小于150者奖金为100元,150及以上者奖金为200元。设计一个Visual Basic程序,通过输入加工的零件数量,计算并输出应发放的奖金。设n表示加工零件数量,y表示应发放的奖金。通过分析可以得出该问题的数学表达式:解决上述问题的Visual Basic程序如下,在程序、划线处应填入的语句或表达式是_、_VB程序界面设计如第24题-1图所示:Private Sub Command1_Click() Dim n As Integer, y As Integer n = Val(Text1.Text) If n 8 Then ans = 不开心 If Then max = s End If Next i Text1.Text = ans Text2.Text = Str(day)End Sub 算法与程序设计模块检测卷(二)班级 姓名 2、 选择题(本题有20小题,每小题3分,共60分。在每小题给出的四个选项中,只有一个是符合题目要求的。)1.用计算机解决问题一般有以下三个阶段:( )寻找解决问题的途径和方法用计算机处理分析问题正确的处理顺序是ABCD2.下列关于算法的叙述不正确的是 ( )A算法是解决问题的有序步骤B算法具有确定性、能行性、有穷性等基本特征C一个问题的算法都只有一种D算法中的每个步骤必须有确切的含义3算法用流程图(Flowchart)来表示,开始结束框是用来表示算法的开始和结束,以下哪个表示开始结束框( )A B. C. D.4.下面是一段关于计算变量s的算法:变量s的初值为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+nD123n5.要从文本框TXTShowOut中输出中国您好!,代码为( )ATextBox.text=中国您好!BTxtShowOut.Text=中国您好!CTxtShowOut.Label=中国您好!DTxtShowOut.caption=中国您好!6. VB控件工具箱中的控件是( )A. 文本框B. 单选按钮C. 图片框D. 标签7VisualBasic中以单引号开头一行文字称为注释,它对程序的运行( )A不起任何作用,但能增加程序的可阅读性B有时候起作用C不起任何作用,但是必须的D起一定作用8.在Visual Basic中,下列语句定义错误的是( )Aconst pi=3.14Bdim x as integerCdim b(1 to 5) as stringDdim true as Boolean9.用下面语句定义的数组的元素个数是( )Dim A (-2 To 5) As Integer A. 6B. 7C. 8D. 910.下列逻辑表达式中,值为False的是( )AInt(14 / 3)= 4B(1 + 2) 3 ) and (4 + 5 7)CInt(Rnd()* 3) 3D”abc”bc”11下面程序执行的结果是( ) Private Sub Form_Click()A = 123: B = 456C = Val(A) + Val(B)msgbox (C 100)End SubA. 123B. 3C. 5D. 57912.与数学表达式x2-31对应的表达式是.( ) A. abs(x2-31)B. sqr(x2-31)C. Abs(x2-31)D. int(x2-31)13. 老师想在班会上设计一个随机抽学号回答问题的有奖问答活动,但是如何能够随机抽取号码呢,小明是电脑高手,他想到了vb中的随机数函数rnd(),请你帮小明选择一下下面哪个表达式可以产生【1,50】的随机学号( )A. 1+Rnd()*50B. Int(1+rnd()*50)C. Rnd()*50D. Int(1+Rnd()*49)14. 已知字符串变量mystring=Microsoft office,则VB表达式Mid(mystring,5,3)的值为( )A. ingB. rinC. osoD.sof15. 有如下Visual Basic程序段: For k=_ To 5 t=t*kNext k要使循环体t=t*k执行10次,循环变量的初值是( )A1B -4C-6D1516.执行下面的程序段后,x 的值为( )x=5For i=1 To 20 Step 2x=x+i5Next IA21B22C23D2417.有如下程序段: s=0:k=0 for i=1 to 10 step 2if i mod 2=0 then s=s+ielse k=k+iend if next i print s-k该程序段运行后,s的值为( )A0B5C30D-2518有如下程序段运行后,变量a、b、c的值分别为( )a = 1: b = 2: c = 3Do While a + b + c = 15 a = a + 1 b = b * 2 c = b / 2LoopA2 4 2B3 8 4C4 16 8D4 8 419.每个人都有打扑克牌的经验,现在手里有如下顺序的一把牌,3 J 8 Q 10,现在要使用选择排序法将牌整理成3 8 10 J Q。 则第2遍的排序结果是( )原始数据3J8Q10第一遍3J8Q10第二遍第三遍3810JQ第四遍3810JQA3 8 J 10 QB3 8 J Q 10C3 8 10 J QD3 8 10 Q J 20.中央电视台有个猜价格的游戏,给选手五次机会,价格的区间是【50,100】元,每猜一次,主持人都将给出高了或低了的提示,为了提高正确率,选手采用对分法猜价格,请问以下步骤中第四次应猜的价格是( )第n次所猜价格主持人提示175低了288高了381低了4?高了583正确A84B85C86D87二、综合题:(本大题6小题,其中第21题4分,第22题4分,第23题8分,第24题8分,第25题8分,第26题8分,共40分。)21、有如下VB程序段: a=10 b=int(sqr(a) c=a3 d=b*c该程序段运行后,d的值为_。22、有如下VB程序段: sum=0 For i=1 to 50 If (i mod 3=0) and (i mod 4=0) then sum=sum+i end if next该程序段运行后,sum的值为_。23、下面程序要实现的是电脑随机产生5个【60,100】之间的数,求出它们的平均分,并将低于平均分的数输出来。为了实现这个功能,在程序、划线处应填入的语句或表达式是_、_Private Sub Command1_Click()Dim i As IntegerDim a(1 To 5) As IntegerDim avg as singleRandomizeFor i = 1 To 5 a(i) = int(60+rnd()*41) Sum = NextAvg = sum/5For i = 1 To 5 If Then List1.AddItem a(i) End IfNextEnd Sub24、某城市出租车的收费规则如下,起步价格:10元(d=3公里);超过3公里到10公里(3d10)部分,每公里收2.5元;输入运行里程(用变量d表示),计算车价F。解决上述问题的Visual Basic程序如下,在程序、划线处应填入的语句或表达式是_、_VB程序界面设计如第24-1图所示。Private Sub Command1_Click() Dim d As Integer, f As single d = Val(Text1.Text) If d = 3 Then f = 10 ElseIf Then f = 10+(d-3)*2 else End If Text2.Text = Str(f)End Sub25、如果一个4位数等于它的各位数字的4次方和,则这个4位数称为“玫瑰花”数,例如1634=14+64+34+44就是一个玫瑰花数,求所有符合这样条件的四位数。某同学为了找出所有符合条件的四

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论