新课标高中信息技术《算法与程序设计》选修模块综合评价试题.doc

新课标高中信息技术算法与程序设计选修模块综合评价试题本试卷分3大题，共100分。考试时间为60分钟。一、单选题（每题2分，共40分）1、流程图中表示判断框的是（     ）。、矩形框、菱形框     、圆形框、椭圆形框2、由“上车掏钱投币”所描述的问题是（     ）。、无人售票车投币过程、乘公交车过程     、上车过程、下车过程3、下列给出的赋值语句中正确的是（     ）。A、4 = M      B、-M =M      C、B=A3       D、x + y = 04、下列Visual Basic中，下列（     ）的表达式的值不等于4。A、int(4.1)     B、Int(4.9)     C、Abs(int(-3.9)    D、Abs(int(-4.5)5、下列Visual Basic中，下列（     ）类型属于字符串型。A、Integer    B、Single    C、String    D、Boolean6、下列Visual Basic中，下列关键字（     ）用于注释语句。A、Rem     B、End     C、Else     D、Loop7、假定X是一个数值型变量，那么由函数组成的表达式INT(X/2)=X/2（     ）。   A、用于测试X是否偶数       B、返回一个整数   C、返回一个奇数             D、用于测试X是否整数8、要改变新建对象的缺省名称，应使用属性（     ）。   A、 Font     B、ForeColor     C、Name     D、Height9、如果下面程序执行后输出的结果是132，那么在程序until后面的“条件”应为（     ）。i=12：s=1DO s= s * i第11题 i = i1LOOP UNTIL “条件”PRINT  sENDA、i > 11    B、i >=11    C、i <=11    D、i<1110、给出以下一个算法的程序框图（如图所示），该程序框图的功能是（     ）。A、求输出a,b,c三数的最大数     B、求输出a,b,c三数的最小数C、将a,b,c按从小到大排列       D、 将a,b,c按从大到小排列11、右边的程序框图（如图所示），能判断任意输入的数x的奇偶性：其中判断框内的条件是（     ）。A、m=0     B、x=0      C、x=1      D、m=112、要使一个命令按钮显示文字“确定”，正确的设置是把该命令的（     ）。   A、属性Font设置为“确定”      B、属性.ForeColor设置为“确定”   C、属性Caption设置为“确定”   D、属性BorderStyle设置为“确定”13、表达式Abs(-3.6)*sqr(100)的值是（     ）。   A、-360       B、360       C、-36       D、3614、下面程序运行后的输出结果为（     ）。i=1do WHILE i<8 i=i+2 s=2*i+3loopPRINT  sENDA、17        B、19        C、21        D、2315、下列Visual Basic程序段运行后，变量a,b,c的值为（     ）。   a=1:b=1:c=1   Do While a+b+c<=10   a=a+1   b=b*2   c=b/2   LoopA、2 2 1        B、3 4 2        C、4 8 4        D、4 4 216、下列Visual Basic程序段运行后，变量x的值为（     ）。 x=3:y=77     Do      x=x+2     Loop Until x>Sqr(y)   A、7        B、8         C、9         D、1017、下列Visual Basic程序段运行后，变量s的值为（     ）。 a=2:b=1:s=0     For I=10 To 6 Step-1     s=s+a     c=a+b     a=b     b=c     Next I     A、10      B、17       C、6       D、2818、在Visual Basic中程序段是计算（     ）公式的。 s=0     For I=1 To 10     t=1for j=1 to it=t*Inext js=s+t     Next I     A、s=1+2+3+4+5+6+7+8+9+10               B、s=1*2*3*4*5*6*7*8*9*10     C、s=1!+2!+3!+4!+5!+6!+7!+8!+9!+10!     D、s=1+2*3+3*4+4*5+5*6+6*7+7*8+8*9+9*1019、下列Visual Basic程序段运行后，变量s、t的值为（     ）。s=0:t=1    For k=2 To 4    s=s+k    t=t*k    Next k    A、2 2       B、9 24       C、5 6       D、0 120、下列Visual Basic程序段运行后，变量max的值为（     ）。   a=5:b=10:max=a     IF b>max Then max =b    A、5       B、10      C、5和10      D、以上都不是二、填空题（每空1.5分，共30分）1、打印出如下图1222   33333  4444444 55555555566666666666程序如下：Private Sub Command1_Click()    For i=1 to _   print tab(20-i) For j=1 to _    Print_    Next j   Print   Next iEnd Sub2、下列程序的功能是从键盘上任意输入一个数，判断这个数是正数、负数、还是零，并输出判断结果。程序中有三处错误，请更正。程序如下：Private Sub Command1_Click()  Dim a As Single  Dim py As String  a=Val(Text1)  If a>0 Then py="正数"  If a=0 Then py="零"  If a<=0 Then py="负数"  Label3.Caption=aEnd Sub_3、完善程序，使能输出：1-2+3-4+5-6+.+99-100的值。程序如下：Private Sub Command1_Click()  s=_  For i=1 To _  s=s+(-1)(_)*i  Next i  Print sEnd Sub4、已知一元二次方程的二次项系数、一次项系数、常数项分别为a、b、c，其中a不等于0。修改程序，求方程的根。要求：如果方程无实数根，则输出“无实数根”，否则输出两个实数根。Private Sub Command1_Click()  Dim a,b,c,d As Single  Dim x1,x2 As Single  a=Val(Text1.Text)  b=Val(Text2.Text)  c=Val(Text3.Text)  d=b2-4*a*c  If d_ Then    x1=(-b+Sqr(d)/(2*a)    x2=(-b-Sqr(d)/(2*a)    Label1.Caption=x1    Label2.Caption=x2    _    Label3.Caption=_  End IfEnd Sub5、下面的程序是求7!（7!=1*2*3.*6*7）的值，并在默认窗口输出这个值。程序中有三处错误，请更正。Private Sub Command1_Click()   Dim a As Single   a=0   For i=1 to n   a=a*i   Next i   Print iEnd Sub_6、下面的程序是求100以内奇数和s的值（S=1+3+5+7.+99）。程序中有三处错误，请更正。Private Sub Command1_Click()   Dim s As Single   Dim i As Single   s=1   For i=1 to 100 Step 1   s=s*i   Next i   Print s End Sub_7、完善其中的程序，使能输出如下图形。- - * * * * * *- - - - * * * * * *- - - - - - * * * * * *- - - - - - - - * * * * * *- - - - - - - - - - * * * * * *- - - - - - - - - - - - * * * * * *-表示空格程序如下：Private Sub Command1_Click()   For i=1 To 6   Print Tab(_);   For j=1 To_   Print  *Next jPrintNext iEnd Sub三、简答题（每题10分，共30分）1、已知一个三角形的三边长分别为a,b,c ，求这个三角形的面积。设计一个算法解决这个问题。（用自然语言描述并写出伪代码）     2、设计算法求 的值，要求画出程序框图，用基本语句编写的程序。       3、某电信部门规定：拨打市内电话时，如果通话时间不超过3分钟，则收取通话费0.2元，如果通话时间超过3分钟，则超过部分以每分钟0.1元收取通话费（通话不足1分钟时按1分钟计），试设计一个计算通话费用的算法。要求写出算法，画出程序框图，编写程序。    算法与程序设计选修模块段考试题(20052006学年度第二学期)答  案  卡一、单选题（每题2分，共40分）12345678910          11121314151617181920          二、填空题（每题1.5分，共30分）1、_2、_3、_4、_5、_6、_7、_三、简答题（第一小题6分，第二、三小题各12分，共30分）1、已知一个三角形的三边长分别为a,b,c ，求这个三角形的面积。设计一个算法解决这个问题。（用自然语言描述并写出伪代码）      2、设计算法求 的值，要求画出程序框图，用基本语句编写的程序。            3、某电信部门规定：拨打市内电话时，如果通话时间不超过3分钟，则收取通话费0.2元，如果通话时间超过3分钟，则超过部分以每分钟0.1元收取通话费（通话不足1分钟时按1分钟计），试设计一个计算通话费用的算法。要求写出算法，画出程序框图，编写程序。         算法与程序设计选修模块段考试题参  考  答  案一、单选题（每题2分，共40分）12345678910BACDCAACDB1112131415161718待添加的隐藏文字内容21920ACDCCCBCBB二、填空题（每题1.5分，共30分）1、6    i     i2、Val(Text1)改为Val(Text1.Text)        a < =0改为a < 0 Label3.Caption =a改为Label3.Caption = py3、0      100      i + 14、> 0      Else       "无实数根"5、a = 0改为a = 1      n改为7        Print i改为Print a6、s = 1改为s = 0       Step 1改为Step 2        s = s * i改为s = s + I7、2*i      6三、简答题（第一小题6分，第二、三小题各12分，共30分）1、算法步骤如下：第一步，输入a,b,c的值；第二步，计算 的值；第三步，计算 的值；第四步，输出S的值.伪代码:2、解 这是一个累加求和问题，共99项相加，可设计一个计数变量，一个累加变量，用循环结构实现这一算法.程序框图如右图所示程序：S=0K=1Do s=s+1/k(k+1)k=k+1LOOP UNTIL k>99PRINT sENDINPUT  tIF t<= 3  THEN c=0.2ELSE c=0.2+0.1(t-3)END  IFPRINT cEND3、解 我们用c（单位：元）表示通话费，t（单位：分钟）表示通话时间，则依题意有  算法步骤如下：第一步，输入通话时间t；第二步，如果t3，那么c = 0.2 ；否则令 c = 0.2+0.1 (t3)；第三步，输出通话费用c