《桐乡一中信息技术期中考试试卷及答案算法与程序设计1350.pdf》由会员分享，可在线阅读，更多相关《桐乡一中信息技术期中考试试卷及答案算法与程序设计1350.pdf（9页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、 桐乡一中信息技术期中考试试题卷 第 1 页 共 8 页 桐乡一中信息技术期中考试试卷密（算法与程序设计模块）试卷说明：试卷满分 100分，考试时间 60 分钟 一、选择题（本大题共 25 个小题，每题 2 分，共 50 分）1 计算机解决问题的三个步骤中不包括下面哪一步骤()（A）需求分析 （B）问题反思 （C）算法分析 （D）用计算机编写程序 2 对于一个完整的算法的流程图，下列说法不正确的是()（A）有而且只有一对 框 （B）不一定有 框 （C）不一定有 框 （D）分支结构中一定有 框 3 下列算法展示了一台自动售货机一次售货的工作流程：步骤 1：提示“请投币”步骤 2：若硬币面值不是
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()”中的“Clic
3、k”属于事件（C）VB 编程界面中，双击窗体中某对象，出现的是代码窗口（D）对象的属性值在程序运行过程中不可修改 5 VB 语句 Text1.Text=Text用于在文本框中显示字符串，该语句中的“Text1”是（）（A）属性值 （B）对象名 （C）属性名 （D）类名 6 小张用 VB 做了一个小游戏，他想把自己做的程序放在因特网上供他人下载使用，他应该将自己做的程序保存为什么格式供他人下载()（A）Frm （B）Exe （C）Swf （D）Vbp 桐乡一中信息技术期中考试试题卷 第 2 页 共 8 页 7 下列变量命名正确的是（A）IsTrue （B）Next （C）A-3 （D）3Str
4、8 一个摸球游戏的流程图如右图所示(红球总数和绿球总数均大于 0)。游戏结束时，S位所代表的是()（A）摸到的绿球数（B）摸到的红球数（C）未摸到的绿球数（D）未摸到的红球数 第8 题图 第9 题图 9 有如下一段VB程序段，当该程序结束后，程序中的代码“S=S*K”共被执行了多少次()（A）6 （B）8 （C）9 （D）12 10以下变量定义错误的是（A）定义一个变量存放客户姓名：Dim Name as String（B）定义一个变量存放客户性别：Dim Addr as Boolean（C）定义一个变量存放客户电话：Dim Tel as String（D）定义一个变量存放 QQ 号码：Dim
5、 QQ as Integer 11Dim arr(1 to 10,11 to 20)as integer 该指令定义了多少个数组元素（A）10 （B）20 （C）100 （D）200 12 如果 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）2 14下列 VB 函数中，与 Val函数作用相反的是()（A）Len （B）Abs （C）Str （D）Asc S=1 For K=1 to 6 step 2 For
6、J=5 to 12 Step 3 S=S*K Next J Next K Print S 桐乡一中信息技术期中考试试题卷 第 3 页 共 8 页 15 在 VB 中，设 X=7146，能得到其十位上数字 4 的正确表达式是()（A）x10 mod 100 （B）x10 mod 10 （C）x100 mod 10 （D）x mod 1010 16VB 标准函数 Rnd函数的作用是返回一个大于等于 0 且小于 1 的随机实数，只产生大于等于 10 且小于 100随机整数的 VB 表达式是()（A）Int(Rnd*100)（B）Int(Rnd*90+10)（C）Int(Rnd*99+1)（D）Int
7、(Rnd*99+10)17观察如下 VB 程序设计界面，选出下面说法错误的一项()（A）该界面中共有 3 个标签对象，属于标签类。（B）该界面中的命令按钮的 Caption属性被设置为了“计算”。（C）该 VB 程序保存时，有关窗口界面的信息被保存在“.Frm”文件中。（D）该界面中共有 4 个文本框对象，它们的 Text属性值在当前状态下一样。第 17 题图 第 18-19题图 18读右边程序，程序中一共标明了 8 条语句，下列说法错误的是()（A）赋值语句，不是赋值语句 （B）是注释语句，对程序运行不产生影响（C）描述的是累加器，描述的是计数器（D）程序中包含了赋值语句、选择语句、循环语句
8、和注释语句 19 右边程序中，最后输出s 和c 的值分别是：()（A）6,4 （B）6,3 （C）9,4 （D）9,3 Sub command1_click()Dim s as integer Dim c as integer Dim k as integer s=0:c=0:k=1 Do while k=3 循环开始 If s=3 then s=s*2 s=s+k k=k+1 c=c+1 Loop Print s,c End sub 桐乡一中信息技术期中考试试题卷 第 4 页 共 8 页 20以下是一个事件处理过程，这个过程的名称为()Sub C1_DblClick()Print*End S
9、ub （A）C1 （B）C1_ DblClick （C）print （D）DblClick 21下列问题适合用解析算法求解的是（）（A）寻找一堆彩球中所有的红球（B）计算一个球从 100米高的楼顶掉下来的落地速度（C）将全班同学按身高从低到高排队（D）从电子词库中找到 Infomation 这个单词 22如果一个自然数恰好等于它的因子之和，称这个数为“完数”，如：6=1+2+3。某算法能找出 1000以内所有的完数，那么这个算法主要用到的方法是（A）枚举 （B）解析 （C）排序 （D）查找 23VB 中常常需要用户自己来定义函数，下列属于定义函数的语句是()（A）Dim 函数名 as 类型名
10、（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 25五位评委给歌手打分的成绩依次为93，85，92，84，90，原始数据 93 85 92 84 90 第一趟 84 93 85 92 90 第二趟 第三趟 84 85 90 93 92 第四趟 84 85 90 92 93 若采用冒泡排序算法
11、对其进行从小到大排序，则第二趟的排序结果是（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把数学中的式子，acba2|32|2转化为 VB 中的表达式_。29写出数学表达式cba并且0a的 VB 表达式_。30求下列 VB 表达式 92+1 Mod 2+Int（-11/3）的值_。桐乡一中信息技术期中考试试题
12、卷 第 5 页 共 8 页 三、读程序（本大题共 7 个小题，每题 2 分，共 14 分）31.有如下 Visual Basic程序段：Private Sub Command1_Click()Dim m As string,t As integer m=Love t=1314 Label1.Caption=m+str(t)End sub 该程序段运行后，在标签 Label1上显示的是_。32.有如下 Visual Basic程序段：Private Sub Command1_Click()Dim a As string,b As string Dim c As Long a=123 b=456
13、If a b Then c=val(a+b)Else c=val(a)+val(b)End If Print c End 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+
14、i End If Next i 该程序段运行后，x 的值是_。36 如 下 程 序 运 行 后输 出 的 结 果 为：_。Private sub test36()Dim i as integer,j as integer Dim s as integer For i=1 to 20 For j=15 to 2 step-2 S=i*j Next j Next i Print s End sub 37 如下程序运行后，输出结果为_。Private sub test()Dim i as Integer Dim Arr(1 to 10)as integer For i=1 to 10 Arr(i)=
15、i*i Next i Print Arr(8)End Sub 桐乡市高中信息技术模块测试试题卷 第 6 页 共 8 页 四、程序填空或改错（本大题共 5 题，每空 2 分，共 26 分）38有如下程序，缺少一变量定义语句，请补充完整：（注：输出的结果为 250000）Private Sub Test Dim a as Integer 定义变量 sum Sum=0 For a=1 to 1000 step 2 Sum=Sum+a Next a Print Sum End Sub 39.一个酵母细胞每一分钟分裂为2 个，在下一分钟，就有4 个细胞，然后，8 个、16个、以此类推。一个酵母细胞，经过
16、多少分钟后数目超过250个。解决此问题的部分程序如下：Dim n as long,x as long n=1:x=2 Do while x=100 n=n+1 x=x2 Loop 问：（1）为了实现这一目标，程序划线处的表达式应更正为_。（2）运行更正后的程序，在经过_分钟后细胞数目超过250个。40如下是计算圆面积的 VB 界面和所有程序代码：（1）由 VB 界面和程序代码可知，用于输入圆半径的文本框对象名为：_。（2）为实现圆面积的计算，用户除了点击计算按钮，还可以执行的操作有:_。桐乡市高中信息技术模块测试试题卷 第 7 页 共 8 页 41把整数 3025从中剪开分为 30 和 25，
17、将这两个数之和平方：（30+25）2=3025，则其计算结果又等于原数。求所有符合 这样条件 的四位数，将下面程序中画线处填写完整。（1）_（2）_ Private Sub Command1_Click()Dim n as Integer,a as Integer,x as Integer Dim n1 as Integer,n2 as Integer List1.Clear For a=32 to 99 n=a*a (1)n2=n mod 100 x=n1+n2 if (2)then List1.AddItem Str(n)Next a End Sub 42某地出租车计价方式如下：3 公里内
18、（包括 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)_ （升序）两空答案要保持一致 学校_班级_学号_准考证号_