2010年信息技术学业水平模拟考试题

2010年信息技术学业水平模拟考试题算法与程序设计模块一、选择题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．以下变量定义错误的是（A）定义一个变量存放客户姓名：Dim Name as String（B）定义一个变量存放客户性别：Dim Addr as Boolean（C）定义一个变量存放客户电话：Dim Tel as String（D）定义一个变量存放QQ号码：Dim QQ as Integer9．Dim arr(1 to 10 , 11 to 20) as integer 该指令定义了多少个数组元素（A）10 （B）20 （C）100 （D）20010．一个摸球游戏的流程图如右图所示(红球总数和绿球总数均大于0)。

游戏结束时，S位所代表的是 ( )（A）摸到的绿球数（B）摸到的红球数（C）未摸到的绿球数（D）未摸到的红球数第10题图第11题图11．有如下一段VB程序段，当该程序结束后，程序中的代码“S = S * K”共被执行了多少次( )（A）6 （B）8 （C）9 （D）1212．如果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）Asc 15．在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 , 3 20．以下是一个事件处理过程，这个过程的名称为……………………………………( ) 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. 有如下Visual Basic程序段：Private Sub Command1_Click()Dim m As string, t As integerm = "Love"t = 1314Label1.Caption = m + str(t)End sub该程序段运行后，在标签Label1上显示的是____________。

25. 有如下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的值是____________。

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

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

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

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

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 sub30．如下程序运行后，输出结果为_________。

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分）31．有如下程序，缺少一变量定义语句，请补充完整：（注：输出的结果为 250000）Private Sub TestDim a as Integer‘定义变量sumSum=0For a =1 to 1000 step 2Sum=Sum+aNext aPrint SumEnd Sub32.一个酵母细胞每一分钟分裂为2个，在下一分钟，就有4个细胞，然后，8个、16个、……以此类推。

一个酵母细胞，经过多少分钟后数目超过250个。

解决此问题的部分程序如下： Dim n as long ,x as longn = 1 : x = 2Do while x <= 100n = n + 1x = x^2Loop问：（1）为了实现这一目标，程序划线处的表达式应更正为____________。

（2）运行更正后的程序，在经过________________分钟后细胞数目超过250个。

33．如下是计算圆面积的VB界面和所有程序代码：（1）由VB界面和程序代码可知，用于输入圆半径的文本框对象名为：________________。

（2）为实现圆面积的计算，用户除了点击计算按钮，还可以执行的操作有:______________。

34．把整数3025从中剪开分为30和25，将这两个数之和平方：（30+25）^2=3025，则其计算结果又等于原数。

求所有符合这样条件的四位数，将下面程序中画线处填写完整。

（1）__________________________（2）__________________________Private Sub Command1_Click()Dim n as Integer, a as Integer, x as IntegerDim n1 as Integer, n2 as IntegerList1.ClearFor a=32 to 99n=a*a(1)n2=n mod 100x=n1+n2if (2) then List1.AddItem Str( n )Next aEnd Sub35．某地出租车计价方式如下：3公里内（包括3公里）起步价10元；超过3公里，但10公里内，则3公里内收费10元，超出部分每公里2元；如果超过10公里，则10公里内收费24元，超出部分每公里3元。