《高中信息技术选考加试部分》由会员分享，可在线阅读，更多相关《高中信息技术选考加试部分（22页珍藏版）》请在金锄头文库上搜索。
1、加试部分加试部分(15(15 分分) ) 一、选择题（本大题共一、选择题（本大题共 4 4 小题，每小题小题，每小题 2 2 分，共分，共 8 8 分。在每小题给出的四个选项中，只有分。在每小题给出的四个选项中，只有 一个是符合题目要求的。一个是符合题目要求的。 1、原创已知 x=17，y= “-315“，则 VB 表达式 x+Len(y)的值为（ ） A298 B17 C21 D“17315“2、执行如下 Visual Basic 程序段时，出现了如下图所示的错误：Private Sub Command1_Click()Dim a As Integer, b As Integera = 5:
2、 b = 8b = a + blabel1.Caption = Str(b)End Sub引发此错误的语句可能为（ ）ADim a As Integer, b As Integer Ba = 5: b = 8Cb = a + b Dlabel1.Caption = Str(b)3、原创国内特快专递每 200 克为一个计费单位，200 克以内 22 元，200 克以上每续重 200 克（不足 200 克以 200 克计算）8 元，现在要编写一个程序输入包裹重量自动计算出价 格。解决上述问题，最合适的算法是（ ） A解析算法 B枚举算法 C排序算法 D递归算法 4、原创用对分查找法从数列3，6，7
3、，10，12，16，25，30，75中找到数据10的最少查 找次数是（ ） A 2 B 4 C 3 D 7 二、综合题二、综合题( (本大题共本大题共 3 3 小题，其中第小题，其中第 5 5 小题小题 2 2 分，第分，第 6 6 小题小题 3 3 分，第分，第 7 7 小题小题 2 2 分，共分，共 7 7 分分) ) 5、根据 2011 年 9 月高考题改编下列 VB 程序运行时,单击命令按钮 Command1 后,文本框 Text1 中显示的内容是_，文本框 Text2 中显示的内容是_。Private Sub Command1_click( )Dim a(1 to 3) as int
4、eger,k as integer,t as integer,s as integera(1)=15: a(2)=36: a(3)=7s=0For k=2 to 3 if a(k)a(1) thent=a(1):a(1)=a(k):a(k)=ts=s+1 End ifNext ktext1.text=str(a(1)text2.text=str(s) End sub6、原创下列程序的功能是在text1 中输入的自然数，分解为 3个互不相同的质数（三个质数的和等于输入的自然数） ，并把分解产生的质数按升序顺序显示在左边的列表框中。例如，输入 20，那么在列表框中会显示如右图所示结果。其中，上述界
5、面中“开始处理”按钮的名称是“Command1” ，程序中函数 f(x)的功能是判断 x 是否为质数，如果是质数则返回值为 true，否则返回 false。请在下列程序代码的基础上按照要求设计该程序, 完善程序中的划线部分。Dim n As Integer, a1 As Integer, a2 As Integer, a3 As Integer Function f(x) As Boolean f = TrueFor i = 2 To Sqr(x)If x Mod i = 0 Then _ Next i End Function Private Sub Command1_Click() n =
6、 _ For a1 = 2 To nFor a2 = a1 To nFor a3 = a2 To nIf _ And f(a1) And f(a2) And f(a3) ThenList1.AddItem (Str(a1) + “ “ + Str(a2) + “ “ + Str(a3)End IfNext a3Next a2 Next a1 End Sub 7、根据 2015 年一点通中的试题改编有一 Access 数据库“school.accdb” 存放在 f:2015mtvb文件夹中，其中的“student”数据表用来存储学生的基本情况信息，包括学 号(num)、姓名(name)、性别(s
7、ex)、分数(score)，括号内的为对应字段名。下列 VB 程序 用来实现根据学号查询并显示学生信息，运行界面如下图所示。在文本框 Text1 中输入学 生的学号，单击“查询” ，在文本框 Text2、Text3 、Text4 中分别显示学生姓名、性别、 分数。Private Sub Command1_Click()Dim adocn As New adodb.Connection Dim adors As New adodb.Recordset Dim str2 As String, str1 As String str1 = “Provider=Microsoft.ACE.OLEDB.1
8、2.0;data source=f:2015mtvb_“ adocn.Open str1 str2 = “select * from students where num=“ + Text1.Text adors.Open str2, adocn, adOpenDynamic, adLockOptimistic If adors.EOF = True ThenMsgBox “你输入的学号不存在“ElseText2.Text = adors.Fields(“name“).ValueText3.Text = adors.Fields(“sex“).Value_ End Ifadors.Close
9、adocn.Close End Sub4. 某餐厅在团购网站上推出了 98 元享原价 198 元的套餐团购活动，但规定每天接受团购券数量是有限制的，表示此餐厅是否接受团购券的算法如下：number0 团购券数量用变量 number 表示。Do While number 0.5 Thenn = n + 1Elsem = m + 1Next i 小金仔细分析该程序段后，发现其中缺少了（ ）AFor BEnd If CNext DIf参参考考答答案案：B预设难度：预设难度：0.55命题意图：命题意图：考核 VB 基本控制结构及语句实现，考生只要知道选择语句， If 开始必须用 End If 结束，就
10、可以选出本题答案。4 【原创】有 6 位学生的身高分别为 165，170，172，175，176，180。其中，小民的身高为 175，若老师采用对分查找法想要找到小民，则需要找多少次才能够找到（ 第 3 题图第 1 题图）A2 B3 C4 D5参参考考答答案案： B预预设设难难度度： 0.75命命题题意意图图： 本题考核考生对对分查找算法原理的掌握，依据原理便可算出所需查找次数为3次。二、综合题（本大题有二、综合题（本大题有3 3题，第题，第5 5题题2 2分，第分，第6 6题题6 6分，第分，第7 7题题6 6分，共分，共1414分）分）5.【根据网上免费下载试题改编】下列 VB 程序运行时
11、，在文本框 Text1 中输入“h”后，单击命令按钮 Command1 后，标签框 Label1 中显示的内容是_ _。Private Sub Command1_Click（）Dim a As Stringa = Text1.Texta = Chr（Asc（a） - 32）Label1.Caption = aEnd Sub参参考考答答案案： H预预设设难难度度： 0.7命命题题意意图图： 本题考核 VB 基本语句含义的理解，通过理解每个VB 语句的含义可以得知，本题实现的是把小字字母转换成大写字母的功能，故根据题意可得出答案是H。6.【根据零距离模拟卷试题改编】素数：只能被 1 和它本身整除的
12、自然数。要求编写 VB程序找出任意两个整数之间中所有的素数及个数，程序运行界面如下图所示。请根据算法将下列程序补充完整。Function prime（a As Integer） As BooleanDim j As Integerprime = True第 6 题图j = 2Do While prime And j = 2000 And jf 20000 And jf 50000 And jf 100000 And jf 150000 Then Cash = jf2000*14 End If End FunctionPrivate Sub Form_Load（）Dim conn As New
13、ADODB.Connection, rs As New ADODB.RecordsetDim intSQL As Longconn.ConnectionString = “Provider=Microsoft.ACE.OLEDB.12.0;Data Source=“ + App.Path + “ customer.accdb“conn.OpenintSQL = “SELECT score FROM Integral“ Set rs.ActiveConnection = connrs.CursorType = adOpenStaticrs.Open intSQLsc = 0Do While No
14、t rs.EOFsc = sc + 1total（sc） = rs.Fields（“score“）rs.MoveNextLoop rs.Closeconn.CloseSet rs = NothingSet conn = Nothing End Sub （1）加框处有错，应改为_。 （2）加框处有错，应改为_。参参考考答答案案：（1）q = cash（jf） （2）ElseIf jf 150000 Then 预预设设难难度度： 0.55 命命题题意意图图： 本题考核 VB 基本语句含义的理解、修改，自定义函数的理解， VB 访 问 Access 数据库的理解。第第 IIII 卷卷 加考模块（加考模块（1515 分）分）一、选择题（本大题一、选择题（本大题 4 4 小题，每小题小题，每小题 2 2 分，共分，共 8 8 分。选出各题中一个符合题意的正确选项，分。选出各题中一个符合题意的正确选项， 不选、多选、错选均不给分）不选、多选、错选均不给分） 1三个正整数 a、b、c 满足等式 a2+b2=c2，a、b、c 称为“勾股数” ，求出 100 以内所有 “勾股数”可采用的算法是 【原创】 （ ） A.枚举算法 B.解析算法 C.冒泡排序 D.顺序查找2以下语句运行后变量c的值是 【原创】 （ ）a=”2009”b=”2008”c=Val(a)+Val(b)A.2009+2008
