郧县一中2013-2014学年度上学期期终考查题 算法与程序设计 命题人：魏 旭 考题时间：40分钟 总 计：100分一、基础题（每题3分）。1. 不属于使用计算机解决问题的步骤是A.分析问题B.设计算法C.编写程序D.输入数据2. 以下问题中，最适合用程序设计的方式解决的是( )A.求三元一次方程组的解B.一组调查数据的图表表示C.编辑文稿D.家庭装修设计3. 下列关于算法说法不正确的是( )A.算法独立于任何具体的语言，BASIC算法只能用BASIC语言来实现。B.解决问题的过程就是实现算法的过程。C.算法是程序设计的“灵魂”。D.描述算法可以有多种表达方法。4.在VB语言中，下列合法的变量名是 A、34ab B、ab_c C、ab-34 D、cc5.在VB语言中，下列合法的表达式为( )A.B.C.D.6. 下列数据属于字符串常量的是( )。A.abcB.“adk”C.2277898D.ewt7. 下列逻辑运算中，级别最高的运算符是( )。A.AndB.OrC.NotD.无级别8. 下列给出的的赋值语句正确的是( )。A.4 = MB.-M =MC.B=A3D.x + y = 09. 对于语句If x=1 Then y=1，下列说法正确的是( ) 。A.x=1为赋值语句，y=1为关系表达式B.x=1和y=1均为关系表达式C.x=1和y=1均为赋值语句D.x=1为关系表达式，y=1为赋值语句二、结构流程框图题（每题4分）。1.在用流程图描述算法中下列哪个图形为判断框。 A.(1)B.(2)C.(3)D.(4)2. 下图是示一个数的绝对值的算法描述，采用的是( )描述的算法。A.自然语言B.流程图C.伪代码3. 下图是鸡兔同笼问题的算法描述，已知笼子里的头数是a，脚数是b，设鸡的只数为X，兔的只数为y，则空白框图里填( ) A.y=2b-aB.y=b-2aC.y=a-bD.y=b/2-a4. 输入两个数存入变量a=9、b=7，按下图的算法执行后，a、b的值变为多少( ) A.a=9 b=7B.a=7 b=9C.a=7 b=7D.a=9 b=95.当输入V的值是9.35时，程序的结果是( ) A.飞船成功飞行B.飞船不能升空C.程序错误D.输入速度V6. 判断一元二次方程ax2+bx+c=0(a不为0)有无实根的算法流程图，空白？处填什么？( ) A.=0 B.0 C.0 D.0 7.如图是关于判断闰年的流程图，则以下年份是闰年的为( ) A.1998年B.1994年C.2100年D.1996年三、程序阅读题（每题5分）。1. 以下程序中，横线上应该填写什么语句( )。 Dim x As single x=InputBox(“请输入x的值”)IF x=1 THEN y=x2+3*xELSE y=x-4 _ PRINT y End subA.EndB.End SubC.Else IFD.End If2. 有如下程序段： x=5 y=-20 If Not x0 Then x=y-3 Else y=x+3该程序段运行后y的值是( )A.8B.-20C.-23D.-153. 下面说法正确的是( )。 Dim x as integerIf x mod 2 0 Then Print “a”Else Print “b”End ifA.a代表奇数，b代表偶数B.a代表偶数，b代表奇数C.mod是整除运算D.x可以是任意数4. 阅读下面的程序，当输入85时，程序显示的结果是( ) Private Sub Command1_Click()Dim x As Singlex = Val( inputbox(”请输入分数”)If x 100 Or x =90 Then Text2.Text = 优秀ElseIf x = 80 Then Text2.Text = 良好ElseIf x =70 Then Text2.Text = 中等ElseIf x = 60 Then Text2.Text = 及格Else Text2.Text = 不及格End IfEnd SubA.及格B.中等C.良好D.优秀5. 函数Y的表达式如下： 程序代码如下： Dim x as single,y as single if x 10B.1 =x10C.x1D.x =16. 有如下Visual Basic程序段： Private Sub Command1_Click() m = 8n = 5t = m + nt = t - nEnd Sub该程序段运行后，变量t的值为( )A.5B.8C.10D.137. 阅读下面的代码并参考运行结果，补上所缺少的一句() Dim a1 as integer,b1 as integera1=5b1=6_print c1运行结果：11A.a1+b1B.c1=a1+b1C.a1+b1=c1D.c1a1-b18. 有如下Visual Basic 程序 Sub command1_Click()Dim x As Integer Dim y As Integer Dim p As Integerx=5y=6p=Not(x+y11)Print pEnd Sub 该程序段运行后，P的值是_A.-1B.0C.1D.以上答案都不对9. 下列是判断闰年的程序代码，则输入的年为1896年，结果是( ) Dim a As Integera = InputBox(请输入年份)If a Mod 400 = 0 Or (a Mod 4 = 0 And a Mod 100 0) ThenPrint a; 年是闰年 ElsePrint a; 年不是闰年End IfA.1896是闰年B.1896不是闰年C.有逻辑错误D.程序没有结果答案：1、 D2、 A3、 A4、 B5、 D6、 B7、 C8、 C9、 D10、 D11、 B12、 D13、 B14、 A15、 B16、 D17、 D18、 A19、 A20、 C21、 D22、 B23、 B24、 A25、 A