当前位置:首页 >> >>

2018-2019年高中信息技术人教版《高中选修1:算法与程序设计》《第四章 算法应用举例》综合测

2018-2019 年高中信息技术人教版《高中选修 1:算法与程序 设计》《第四章 算法应用举例》综合测试试卷【1】含答案 考点及解析 班级:___________ 姓名:___________ 分数:___________ 题号 一 二 三 得分 注意事项: 1.答题前填写好自己的姓名、班级、考号等信息 2.请将答案正确填写在答题卡上 评卷人 得 分 一、选择题 四 五 总分 1.用对分查找法从数列 3,6,7,10,12,16,25,30,75 中找到数据 10 的最少查找次数是 ( ) A.2 【答案】B 【解析】 2.现在很多城市的公交车是无人售票车,车上的投币机具有假币自动识别装置,如果是真币, 它就“收取”然后显示数量,如果投入的是假币,就从假币口退回不计数,然后等待下一次投 币,下列流程图中能正确描述上述识别过程的是( ) B.4 C. 3 D.7 【答案】B 【解析】 3.下列多媒体创作工具中,属于以程序设计语言为基础的是( ) A. A.uthorwA.re IC.onA.uthor B. D.ireC.tor FlA.sh C. PowerPoint A.C.tion D. VisuA.l C.++ VisuA.l B.A.siC. 【答案】D. 【解析】 4.在 VB 中,下列能作为变量名的是( ) A.A*1 【答案】B 【解析】 5.在计算机内部,计算机能够直接执行的程序语言是。( ) A.汇编语言 【答案】A 【解析】 B.C++语言 C.机器语言 D.高级语言 B.StuName_1 C.2012_NBA D.Click 6.在描述算法的流程图中,指示流程方向的符号是( ) A.起止框 【答案】D 【解析】 7.信息的编程加工里面( )是编程的核心,是解决问题的方法和步骤 A.算法设计 【答案】A 【解析】 8.计算两个并联电阻总电阻值的算法如下: ①输入两电阻 R1,R2 的值 ②计算总电阻 R= ③输出总电阻 R 上述算法属于( ) A.枚举算法 C.排序算法 【答案】B 【解析】 9.最早出现的编程语言是 A.自然语言 B.汇编语言 C.高级语言 D.机器语言 【答案】D 【解析】 10.下列可作为 VB 变量名的是 ( A.true 【答案】C 【解析】 评卷人 得 分 二、填空题 B.we*6 ) C.dew3 D.3ABC B.解析算法 D.查找算法 B.界面设计 C.代码编写 D.调试运行 B.判断框 C.处理框 D.流程线 11.VB 是一种 程序设计语言。 【答案】可视化(面向对象或高级语言都算对) 【解析】 12.下列 VB 程序运行时,单击命令按钮 Command1 后,文本框显示的内容是 Private Sub Command1_Click() a=2 b=2 Do While a <= 4 a = a * b b = a * b Loop Text1.Text = Str(a) Text2.Text = Str(b) End Sub Text1 中显示 【答案】32、256 【解析】 13.现需计算 1*2*3*……*n=?有如下程序段,在划线处填入合适的语句或表达式,完成程序。 s=1 i=1 Do While i<=n S = s * i i = i + 1 【答案】Loop 【解析】 14.某同学设计了编写了一个 VB 程序用以计算 y 的值。由键盘输入 x。 , Text2 中显示 。 运行 VB 程序,在文本框 text1 中输入 x 值, 界面如第 2 题(1)图所示。 第 2 题(1) 单击“计算 Y”按钮后,标签 3 中显示 y 的值。 VB 程序如下: Private Sub Command1_Click() Dim x, y As Single x = Val(Text1.Text) y = (1) Label3.Caption = End Sub 则划线处填入的语句为(1) (2) (2) 【答案】(1)(10-abs(x))/(2*x);(2)str(y) 【解析】 15.下列 VB 程序的功能是:程序运行时,单击命令按钮 Commandl 后,产生 10 个[1,999]范 围内互不相同的随机整数,依次显示在列表框 List1 中,然后将它们按从小到大的顺序排序, 排序结果显示在列表框 List2 中。 数组 a 用于存储产生的 10 个随机整数,函数 f(x)用于判断随机整数 x 与已生成的整数是否有 重复,若有重复则返回 True,否则返回 False。 (1)虚线框内程序段所采用的排序算法名称是 。(填:冒泡排序/选择排序) (2)在程序(1)和(2)划线处,填入适当的语句或表达式,把程序补充完整。 Dim a(1 To 10) As Integer Function f(x As Integer) As Boolean ′代码略 End Function Private Sub Commandl_Click() Dim n As Integer Dim i As Integer.j As Integer Dim x As Integer.k As Integer Randomize n=0 List1.Clear List2.Clear Do While n<10 x=Int(Rnd*999)+1 If Not f(x) Then n=n+1 a(n)=x List1.AddItem Str( (1) ) End If Loop For i=1 To 9 For j=10 To i+1 (2) If a(j)<a(j-1) Then k=a(j):a(j)=a(j-1):a(j-1)=k End If Next j Next i For i=1 To 10 List2.AddItem Str(a(i)) Next i End Sub 【答案】(1) 冒泡排序 (2) a(n) , S