算法模块检测卷(2)

信息技术高考模拟卷二(算法与程序设计部分)第一部分：选择题（每小题只有一个选项符合题意，共30题，每题2.5分，共75分）1、算法的三种基本结构是…………………………………………………………… ( ) （A）顺序结构、模块结构、条件结构（B）顺序结构、循环结构、模块结构（C）顺序结构、分支结构、循环结构（D）模块结构、条件结构、循环结构2、下面是关于“剥毛豆”的算法描述：①检查篮中是否有剩余毛豆；②若无，则算法结束；③若有，将毛豆剥壳，豆粒放入碗中，壳放入垃圾箱；再回到①。

该算法的表示方法是………………………………………………………………（）（A）自然语言（B）伪代码（C）流程图（D）程序设计语言3、若用国家颁布的标准中规定的图示及方法来画流程图，则用来表示数据输入或计算结果输出所用的图示是………………………………………………………………………（）（A）（B（C（D4、模块化程序设计方法主要通过（）来实现。

…………………………………（）5、下图是VB设计环境中的工具箱（部分），每个图标代表VB的一个基本类，将鼠标指针移到图标上就会显示类的名称。

那么，当鼠标指针移到图中圈内的图标时，则会显示（）6、以下操作中能够实现在文本框T ext1中显示”中国加油！”的语句是………………（）（A）Text1.Caption=”中国加油！”（B）=”中国加油！”（C）Text1.Text=”中国加油！”（D）Text1.Font=”中国加油！”7、变量a的值为-33000~30000 内的整数，则a 的数据类型应定义为……………（）A. 递归算法和递归程序B. 程序的循环结构C. 过程和函数的定义和调用D. 对象（A）Label （B）TextBox（C）ListBox （D）CommandButton（A）Integer （B）Long （C）Single （D）String8、常量是指在程序执行过程中其值不能改变的存储单元或数据。

下列选项中不是．．VB常量的是………………………………………………………………………………………（）（A）2008 （B）”BeiJing”（C）True （D）China9、下列变量名命名错误的是…………………………………………………………（）（A）abc （B）a123bc （C）abc_123 （D）a+123bc10、下面声明语句中，错误的是…………………………………………………………（）（A）Dim x As Integer （B）Dim b(1 to 50) As String（C）Dim True As Boolean （D）Const pi=3.1411、Visual Basic表达式Len(Mid(“Beijing2008lucky!”,8,4))的计算结果是…………（）（A）”2008”（B）”2008luck”（C）8 （D）412、在Visual Basic中表达式11\3+11 mod 3 的运算结果值是……………………（）（A）3 （B）4 （C）5 （D）613、以下函数运算中结果不是．．4的是．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．（）（A）Int(4.6) （B）Fix(4.1) （C）Abs(Int(-4.1)) （D）Len(＂北京奥运＂)14、Str(Sqr(b^2-4*a*c))运算结果的数据类型是…………………………………….（）（A）String （B）Integer （C）Double （D）Boolean15、随机数函数RND（）可以产生一个大于等于0且小于1的随机数，现在想产生一个[6,24]的随机整数，可行的表达式是…………………………………………………………（）（A）RND（）*24 （B）int（6+RND（）*18）（C）6+int（RND（）*18+1）（D）6+ int（RND（）*19）16、下列Visual Basic运算符优先级最高的是………………………………………（）（A）/ （B）\ （C）Not （D）Mod17、a=2,b=3,c=4,则表达式2*a=c and a+b<c or a^b mod 4=0的运算结果是………（）（A）1 （B）False （C）-1 （D）True18、能正确表示数学表达式的VB表达式是…………………………（）（A）Exp(b*b-4*a*c)/(Abs(x+3)-y) （B）Exp(b*b-4*a*c)/Abs(x+3)-y（C）Sqr(b*b-4*a*c)/(Abs(x+3)-y) （D）Sqr(b*b-4*a*c)/Abs(x+3)-y19、下列不属于．．．赋值语句的是…………………………………………………………( ) （A）d=b^2-4*a*c （B）s=2*pi*r （C）x+y=5 （D）Text1.text=“olympic”20、下面的程序段执行后变量x、y的值为……………………………………………（）x=10:y=20temp=x:x=y:y=temp（A）x值为10，y值为10 （B）x值为10，y值为20（C）x值为20，y值为20 （D）x值为20，y值为1021、下面程序段执行后x,y分别是…………………………………………………（）x=1:y=-10If Not(x>0) Then x=y+3 Else y=x+6（A）1，-10 （B）-7，-10 （C）1，7 （D）-7，722、下面程序段执行后s,i的值分别是………………………………………………（）s=0for i=1 to 5 step 2s=s+inext i（A）15，5 （B）9，7 （C）15，7 （D）9，523、下面程序段运行后，变量sum的值为……………………………………………（）sum=0 : d=0Do While d<=10d=d+3sum=sum+dLoop（A）3 （B）9 （C）18 （D）3024、下面Visual Basic自定义函数的返回值的数据类型是…………………………（）Function myf(x As Integer) As LongDim m As SingleDim n As Doublem = 1.2 ：n = 3.4myf = Int( x – m – n )End Function（A）整数型（B）长整数型（C）单精度实型（D）双精度实型25．要使下列Visual Basic程序在命令按钮Command1上产生单击事件时被驱动执行，则填在横线处最合适的是………………………………………………………………… ( ) Private SubMsgBox(“好运北京！”)End Sub（A）Command1_Click() （B）Command1_DblClick()（C）Command1_单击（D）Command1_KeyPress()26、下列叙述不正确．．．的是………………………………………………………………（）（A）类是对相同性质的对象的一种抽象，而一个对象则是类的一个“实例”。

（B）程序中的注释不仅增加了程序的可读性，还对程序执行的效果产生了影响。

（C）Visual Basic中可以在一行上写多个语句，相邻的两个语句之间用冒号（：）分隔。

（D）列表框是Viual Basic常用对象之一，适合用来输出多行信息。

27、如果一个三位正整数等于它的每个数字的立方和，则此数称为“水仙花”数(如：153＝１３＋５３＋３３)。

下列算法用于求出三位正整数中的所有“水仙花”数，该算法属于（）①将100 赋值给变量i；②判断i 是否是“水仙花”数，若是，输出该数；③将变量i 加1，若i 还小于或等于999，转②，否则转④；④结束。

（A）枚举算法（B）解析算法（C）递归算法（D）排序算法28、在游戏中经常有开数字密码锁的场景，已知一个6位的密码锁，正确的数字顺序组合是由下面一组数字426815经过两次冒泡排序得到，请问开锁的正确数字组合可能是（) （A）842651 （B）826415 （C）864251 （D）12468529、下列问题适合用解析算法求解的是………………………………………………（）（A）寻找一堆彩球中的所有红球。

（B）计算n个电阻并联的总电阻值。

（C）将全班同学根据身高从低到高排队。

（D）统计10000以内各位数字之和是18的偶数的个数。

30、由10个数组成的数列：12、5、15、20、46、98、75、36、13、57，从中查找数据20时，较快的查找方式是…………………………………………………………………（）（A）顺序查找（B）对分查找（C）一样快（D）都不对第二部分、程序填空（共25分）31.（2分）有如下Visual Basic程序段：Private Sub Command1_Click()s = 0I = 1Do While I <= 5s = s + I * II = I + 1LoopPrint SEnd Sub该程序段运行后S的值为：。

32.（3分）如下VB程序段执行后，变量sum的值是。

Private Sub Command1_Click()Dim m As Integer, n As Integer, sum As IntegerDim Arr(1 To 10) As IntegerFor m = 1 To 10If m Mod 2 = 0 Then Arr(m) = 0 Else Arr(m) = 1Next mFor n = 1 To 10 Step 2sum = sum + Arr(n)Next nPrint sumEnd Sub33、（6分）以下Visual Basic程序（运行结果如右图所示）为了实现这一目标，请补充程序中划线处的语句。

为了实现这一目标，程序中划线处应填入的合适语句是：①____________________,②___________________程序如下：Private Sub Form_Click()Dim i as integer,j as integerHeight = 4000Width = 10000Print Tab(35); "九九乘法表" …Print Tab(35)是打印空格Print Tab(33); "-----------------------"For i = 1 To 9For j=1 to ①Print i; "*"; j; "="; ②;Next jPrintNext iEnd Sub34．(6分)意大利数学家菲波拉契,在1202年出版的一书里提出了这样的一个问题:一对兔子饲养到第二个月进入成年,第三个月生一对小兔,以后每个月生一对小兔,所生小兔能全部存活并且也是第二个月成年,第三个月生一对小兔,以后每月生一对小兔.问这样下去到年底应有多少对兔子? 为了实现这一目标，请完善下列程序代码。