资源描述
（算法与程序设计模块）试卷说明：试卷满分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）对象的属性值在程序运行过程中不可修改5VB语句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题图S = 1For K = 1 to 6 step 2For J = 5 to 12 Step 3S = S * KNext JNext KPrint S第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 Integer11Dim arr(1 to 10 , 11 to 20) as integer 该指令定义了多少个数组元素（A）10（B）20 （C）100（D）20012如果x=4，那么以下运算结果为True的表达式是()（A） x=6 （B） x4 Or x=6 （C） x6 （D） not x4 13已知整型变量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）x10 mod 100 （B）x10 mod 10 （C）x100 mod 10 （D）x mod 101016VB标准函数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题图Sub command1_click( )Dim s as integerDim c as integerDim k as integer s=0 : c=0 : k=1 Do while k= 3 循环开始 If s=3 then s=s*2s= s+kk=k+1c=c+1LoopPrint s,cEnd sub第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）查找23VB中常常需要用户自己来定义函数，下列属于定义函数的语句是( )（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） 525五位评委给歌手打分的成绩依次为93，85，92，84，90，原始数据9385928490第一趟8493859290第二趟第三趟8485909392第四趟8485909293若采用冒泡排序算法对其进行从小到大排序，则第二趟的排序结果是（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分）26sqr(25)+ len(“abc”)的返回值是_。27Mid(“2009乌镇欢迎你!”, 5 ,2 )的返回值是_。28把数学中的式子，转化为VB中的表达式_。29写出数学表达式并且的VB表达式_。30求下列VB表达式92+1 Mod 2+Int（-11/3）的值_。三、读程序（本大题共7个小题，每题2分，共14分）31. 有如下Visual Basic程序段：Private Sub Command1_Click()Dim m As string, t As integerm = Lovet = 1314Label1.Caption = m + str(t)End sub 该程序段运行后，在标签Label1上显示的是_。 32. 有如下Visual Basic程序段：Private Sub Command1_Click()Dim a As string, b As string Dim c As Longa =123b =456If a b Then c=val(a+b)Else c = val(a)+val(b)End IfPrint cEnd sub 该程序段运行后，c的值是_。33有如下Visual Basic程序段： x = 1 For i = 5 To 12 Step 2 x = x + i Next i该程序段运行后，x的值是_。34. 有如下Visual Basic程序段：s = 0: i = 1 Do While s 10 s = s + i i = i + 2 Loop该程序段运行后，s的值是_。35. 有如下Visual Basic程序段：x = 3 For i = 3 To 6 If x 15 Then x = x * i Else x = x + i End If Next i该程序段运行后，x的值是_。36如下程序运行后输出的结果为： _。Private sub test36( )Dim i as integer, j as integerDim s as integerFor i=1 to 20 For j=15 to 2 step -2 S=i*j Next 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个、以此类推。一个酵母细胞，经过多少分钟后数目超过250个。解决此问题的部分程序如下：Dim n as long ,x as longn = 1 : x = 2Do while x = 100n = n + 1x = x2Loop问：（1）为了实现这一目标，程序划线处的表达式应更正为_。（2）运行更正后的程序，在经过_分钟后细胞数目超过250个。40如下是计算圆面积的VB界面和所有程序代码：（1）由VB界面和程序代码可知，用于输入圆半径的文本框对象名为：_。（2）为实现圆面积的计算，用户除了点击计算按钮，还可以执行的操作有:_。41把整数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 Sub42某地出租车计价方式如下：3公里内（包括3公里）起步价10元； 超过3公里，但10公里内，则3公里内收费10元，超出部分每公里2元；如果超过10公里，则10公里内收费24元，超出部分每公里3元。其程序实现如下：Private Sub Command1_Click( )x=val( Text1.Text )if x10 then y = (2) if x=b and b=c and a0_30_1_三、 读程序（本大题共8个小题，每题2分，共16分）31_ Love1314_ _ 32_123456_33_ _33_ 34_16_35_47_ _ 36_60_37_64_ 四、 程序填空和改错（本大题共26分，每空2分）38 _ Dim sum as Long _ 把sum写成s也给分39（1）_ x = 2*x _ （2）_8_40（1）_ TextR_（2）_按回车键_41（1）_ n1=n100_（2）_n=x2_或者n=x*x_42（1）_ x3 and xd(j-1)_、 _ d(k)_ （降序）或者 _ d(j)d(j-1)_、 _ d(11-k)_ （升序）两空答案要保持一致
展开阅读全文