当前位置:首页 >> 数学 >>

2018-2019年高中信息技术浙教版《高中选修1:算法与程序设计》《第四章 VB程序设计初步》课

2018-2019 年高中信息技术浙教版《高中选修 1:算法与程序 设计》《第四章 VB 程序设计初步》课后练习试卷【10】含 答案考点及解析 班级:___________ 姓名:___________ 分数:___________ 题号 一 二 三 得分 注意事项: 1.答题前填写好自己的姓名、班级、考号等信息 2.请将答案正确填写在答题卡上 评卷人 得 分 一、选择题 四 五 总分 1.有算法用流程图描述如右图:该算法的结构是:( ) A.树型结构 【答案】D 【解析】 B.选择结构 C.顺序结构 D.循环结构 2.下列可作为 VB 变量名的是( ) A.4A 【答案】B 【解析】 3.下列关于算法的描述,正确的是( ) A.同一种算法只能用一种程序语言来实现 B.描述算法的方法只有流程图 C.算法就是数值计算的方法 D.算法是描述解决问题的方法和步骤 【答案】D 【解析】 B.D_Y C.Y+ X D.And 4.为了及时更新、维护我校的学籍管理系统,减少无关数据冗余,管理员在学籍数据库中清 除了已经毕业的高三学生的信息,他采用的方法是( ) A.删除单元格 【答案】D 【解析】 5.下表记录了 7 个数据的冒泡排序过程,分析表中数据可以得知采用升序的方式,要经历多 少次数据比较( ) 原始数据 第1遍 第2遍 … A.6 【答案】C 【解析】 6.如图所示的算法的表示方法是( ) Private Sub Command1_Click() Dim s,j As Single s=Val(Text1.Text) If s<=50 Then j=s*0.538 Else j=s*0.538+(s-50)*0.03 End if Text2.Text=Str(j) End Sub A.流程图 【答案】D 【解析】 7.流程图是描述算法的一种工具,以下用于表示数据处理的图形符号是( ) A. B. B.伪代码 C.自然语言 D.计算机语言 ‘输出电费 ‘计算用电量大于 50 时的电费 ‘计算用电量小于等于 50 时的电费 ‘定义数据类型 ‘输入用电量 3 3 3 … B.7 98 5 5 … C.21 8 98 8 … D.36 88 8 98 … 5 88 88 … 78 78 78 … 28 28 28 … B.删除字段 C.删除数据库 D.删除记录 C. 【答案】C 【解析】 8.下列文件中属于工程文件的是( ) A.五子棋.frm C.五子棋.vbp 【答案】C 【解析】 9.下列 VB 函数返回值为数值的是( )。 A.Chr(x) C.Val(x) 【答案】C 【解析】 D. B.五子棋.exe D.五子棋.caption B.Str(x) D.Mid(x,n,k) 10.在 VB 中,某两个对象的属性窗口如图所示: 由图可知,这两个对象的( ) A.对象名称相同 【答案】D 【解析】 评卷人 得 分 二、填空题 B.所属类相同 C.字面内容相同 D.背景颜色相同 11.以下算法是用循环结构求数列 1,3,5,7,9…前 10 项的和。完成空缺部分。(每行只能填写一 个 VB 语句) dim i as integer dim a as integer dim sum as integer [1] i=1 do while i<=10 [2] sum=sum+a i=i+1 loop print sum 【答案】[1]sum=0 [2]a=2*i-1 【解析】 12.辗转相除法,又名欧几里德算法(Euclidean algorithm),是求两个正整数最大公约数的算 法。它是已知最古老的算法之一,其可追溯至 3000 年前。用辗转相除法来得一个分数的约 分后的最简形式的算法如下: 第一步:设两数为 a、b,且令 a>b; 第二步:a÷b,令 r 为所得余数,若 r=0,算法结束,b 即为最大公约数;若 r>0 则 a←b, b←r,并返回第二步; 第三步: 即为 约分后的最简形式。 编写 VB 程序,程序运行界面如第 6 题图 1 所示,请根据算法将下列程序补充完整。 Private Sub Command1_Click() Dim a As Integer, b As Integer, r As Integer 'a、b 为分子和分母,r 为最大公约数 a = Val(Text1.Text) b = Val(Text2.Text) If b = 0 Then c = MsgBox(分母不能为 0): Exit Sub '如果分母为 0,则提示“分母不能为 0”并退出该过程 r= ① (3 分) Text3.Text = Str(a / r) Text4.Text = Str(b / r) End Sub Function gys(ByVal m As Integer, ByVal n As Integer) As Integer 'gys 函数用于求最大公约数 Dim s As Integer If m < n Then t = m: m = n: n = t End If Do While n <> 0 s = m Mod n m=n n=s Loop ② (3 分) End Function 【答案】①gys(a, b) ②gys = m 【解析】本题以欧几里德算法为背景,来解决一个在生活中非常普遍的问题——约分。在题 意中,通过自然语言描述算法,考生可以根据题意了解该算法的基本原理,并对解题提供一 定的帮助信息。涉及到自定义函数,Do 循环语句等知识点,同时也考查考生对自然语言转换 为 VB 程序代码的能力。 13.描述算法的方法有 3 种,分别是 【答案】自然语言 伪代码 流程图 【解析】 14.编写 VB 程序,界面设计如图所示,使其具有下列功能:在文本框 Text1 中输入一个小于 20 的正整数n,单击“计算”按钮 Command