桐乡一中_信息技术期中考试试卷及答案_算法与程序设计

（算法与程序设计模块）试卷说明：试卷满分100分，考试时间60分钟一、选择题（本大题共25个小题，每题2分，共50分）1．计算机解决问题的三个步骤中不包括下面哪一步骤……………………………………( )（A）需求分析（B）问题反思（C）算法分析（D）用计算机编写程序2．对于一个完整的算法的流程图，下列说法不正确的是…………………………………( )（A）有而且只有一对框（B）不一定有框（C）不一定有框（D）分支结构中一定有框3．下列算法展示了一台自动售货机一次售货的工作流程：步骤1：提示“请投币”步骤2：若硬币面值不是0.1元、0.5元、1元，退回硬币，并跳回步骤1步骤3：若投入货款达1.5元或以上，执行步骤4，否则执行步骤1步骤4：售出一个口香糖步骤5：从接收货款中减去1.5元步骤6：退回余额下列关于这个算法说法正确的是……………………………………………………………（）（A）上述算法采用伪代码表示（B）这台自动售货机在任何情况下也不会售出口香糖（C）上述算法包含有顺序结构（D）这台自动售货机只会在接受硬币达2元时才放出口香糖4．下列关于类、对象、属性、事件的描述中，错误．．的是……………………………………( )（A）同一类对象具有同一类属性，但同一个属性可以有不同的属性值（B）“Private Sub Command_Click()”中的“Click”属于事件（C）VB编程界面中，双击窗体中某对象，出现的是代码窗口（D）对象的属性值在程序运行过程中不可修改5．VB语句Text1.Text="Text"用于在文本框中显示字符串，该语句中的“Text1”是……（）（A）属性值（B）对象名（C）属性名（D）类名6．小张用VB做了一个小游戏，他想把自己做的程序放在因特网上供他人下载使用，他应该将自己做的程序保存为什么格式供他人下载………………………………………………( )（A）Frm （B）Exe （C）Swf （D）Vbp7．下列变量命名正确的是（A）IsTrue （B）Next （C）A-3 （D）3Str8．一个摸球游戏的流程图如右图所示(红球总数和绿球总数均大于0)。

游戏结束时，S位所代表的是………………………………………………………………………………………( )（A）摸到的绿球数（B）摸到的红球数（C）未摸到的绿球数（D）未摸到的红球数第8题图第9题图9．有如下一段VB程序段，当该程序结束后，程序中的代码“S = S * K”共被执行了多少次( )（A）6 （B）8 （C）9 （D）1210．以下变量定义错误的是（A）定义一个变量存放客户姓名：Dim Name as String（B）定义一个变量存放客户性别：Dim Addr as Boolean（C）定义一个变量存放客户电话：Dim Tel as String（D）定义一个变量存放QQ号码：Dim QQ as Integer11．Dim arr(1 to 10 , 11 to 20) as integer 该指令定义了多少个数组元素（A）10 （B）20 （C）100 （D）20012．如果x=4，那么以下运算结果为True的表达式是………………………………………( )（A） x<=4 and x>=6 （B） x>4 Or x>=6（C） x<4 or x>6 （D） not x<>413．已知整型变量X的值为-3，则VB表达式Int(x/2)的值是………………………………( )（A）-2 （B）0 （C）-1 （D）214．下列VB函数中，与Val函数作用相反的是……………………………………………( )（A）Len （B）Abs （C）Str （D）Asc15．在VB中，设X=7146，能得到其十位上数字 4 的正确表达式是………………………( )（A）x\10 mod 100 （B）x\10 mod 10（C）x\100 mod 10 （D）x mod 10\1016．VB标准函数Rnd函数的作用是返回一个大于等于0且小于1的随机实数，只产生大于等于10且小于100随机整数的VB表达式是…………………………………………………( )（A）Int(Rnd*100) （B）Int(Rnd *90 +10)（C）Int (Rnd *99 +1) （D）Int ( Rnd *99+10 )17．观察如下VB程序设计界面，选出下面说法错误的一项………………………………( )（A）该界面中共有3个标签对象，属于标签类。

（B）该界面中的命令按钮的Caption属性被设置为了“计算”。

（C）该VB程序保存时，有关窗口界面的信息被保存在“.Frm”文件中。

（D）该界面中共有4个文本框对象，它们的Text属性值在当前状态下一样。

第17题图第18-19题图18．读右边程序，程序中一共标明了8条语句，下列说法错误的是……………………( )（A）①⑤赋值语句，②④不是赋值语句（B）③是注释语句，对程序运行不产生影响（C）⑥描述的是累加器，⑦描述的是计数器（D）程序中包含了赋值语句、选择语句、循环语句和注释语句19．右边程序中，最后输出s和c的值分别是：………………………………………………( )（A）6 , 4 （B）6 , 3 （C）9 , 4 （D）9 , 320．以下是一个事件处理过程，这个过程的名称为……………………………………( )Sub C1_DblClick()Print "*"End Sub（A）C1 （B）C1_ DblClick （C）print （D）DblClick21．下列问题适合用解析算法求解的是……………………………………………………（）（A）寻找一堆彩球中所有的红球（B）计算一个球从100米高的楼顶掉下来的落地速度（C）将全班同学按身高从低到高排队（D）从电子词库中找到Infomation 这个单词22．如果一个自然数恰好等于它的因子之和，称这个数为“完数”，如：6=1+2+3。

某算法能找出1000以内所有的完数，那么这个算法主要用到的方法是（A）枚举（B）解析（C）排序（D）查找23．VB中常常需要用户自己来定义函数，下列属于定义函数的语句是…………………( )（A）Dim 函数名 as 类型名（B）Function函数名 as 类型名（C）Const 函数名 = 数值（D）Dim 函数名（a1 to a2）as 数据类型24．小明买了6个苹果，这6个苹果的重量（单位：两）分别为8.1、3.4、9.5、2.2、1.2、5.6，若采用选择排序算法对其进行从小到大排序，则需要进行数据互换的次数是…（ ） （A ） 2 （B ） 3（C ） 4（D ） 5，若采用冒泡排序算法对其进行从小到大排序，则第二趟的排序结果是 （A ） 84 90 85 93 92 （B ） 84 93 85 90 92 （C ） 84 85 93 90 92 （D ） 84 90 92 85 93 二、VB 表达式书写与求值（本大题共5个小题，每题2分，共10分） 26．sqr(25)+ len(“abc ”)的返回值是__________________________。

27．Mid(“2009乌镇欢迎你!”, 5 ,2 )的返回值是__________________。

28．把数学中的式子，ac b a ∙+--2|32|2转化为VB 中的表达式__________________________。

29．写出数学表达式c b a ≥≥并且0≠a 的VB 表达式_____________________________。

30．求下列VB 表达式9\2+1 Mod 2+Int （-11/3）的值____________________。

三、读程序（本大题共7个小题，每题2分，共14分）31. 有如下Visual Basic程序段：Private Sub Command1_Click()Dim m As string, t As integerm = "Love"t = 1314Label1.Caption = m + str(t)End sub该程序段运行后，在标签Label1上显示的是____________。

32. 有如下Visual Basic程序段：Private Sub Command1_Click()Dim a As string, b As stringDim c As Longa ="123"b ="456"If a <> b Thenc=val(a+b)Elsec = val(a)+val(b)End IfPrint cEnd sub该程序段运行后，c的值是____________。

33．有如下Visual Basic程序段：x = 1For i = 5 To 12 Step 2x = x + iNext i该程序段运行后，x的值是____________。

34. 有如下Visual Basic程序段：s = 0: i = 1Do While s < 10s = s + ii = i + 2Loop该程序段运行后，s的值是____________。

35. 有如下Visual Basic程序段：x = 3For i = 3 To 6If x < 15 Thenx = x * iElsex = x + iEnd IfNext i该程序段运行后，x的值是____________。

36．如下程序运行后输出的结果为：___________________。

Private sub test36( )Dim i as integer, j as integerDim s as integerFor i=1 to 20For j=15 to 2 step -2S=i*jNext jNext iPrint sEnd sub37．如下程序运行后，输出结果为_________。

Private sub test( )Dim i as IntegerDim Arr(1 to 10) as integerFor i =1 to 10Arr( i )= i * iNext iPrint Arr( 8 )End Sub四、程序填空或改错（本大题共5题，每空2分，共26分）38．有如下程序，缺少一变量定义语句，请补充完整：（注：输出的结果为 250000）Private Sub TestDim a as Integer‘定义变量sumSum=0For a =1 to 1000 step 2Sum=Sum+aNext aPrint SumEnd Sub39.一个酵母细胞每一分钟分裂为2个，在下一分钟，就有4个细胞，然后，8个、16个、……以此类推。