高中信息技术选考加试部分.pdf

《高中信息技术选考加试部分.pdf》由会员分享，可在线阅读，更多相关《高中信息技术选考加试部分.pdf（21页珍藏版）》请在三一文库上搜索。

1、加试部分 (15 分 ) 一、选择题（本大题共4 小题，每小题2 分，共8 分。在每小题给出的四个选项中，只有 一个是符合题目要求的。 1、 原创 已知 x=17，y= “-315“，则 VB表达式 x+Len(y) 的值为（） A 298 B 17 C 21 D “17315“ 2、执行如下Visual Basic程序段时，出现了如下图所示的错误： Private Sub Command1_Click() Dim a As Integer, b As Integer a = 5: b = 8 b = a + b label1.Caption = Str(b) End Sub 引发此错误的语句

2、可能为（） ADim a As Integer, b As Integer Ba = 5: b = 8 Cb = a + b Dlabel1.Caption = Str(b) 3、原创 国内特快专递每200 克为一个计费单位，200 克以内 22 元，200 克以上每续重200 克（不足200 克以 200 克计算） 8 元，现在要编写一个程序输入包裹重量自动计算出价格。 解决上述问题，最合适的算法是（） A解析算法 B枚举算法 C排序算法 D递归算法 4、 原创 用对分查找法从数列3，6，7，10，12，16，25，30，75中找到数据 10的最少查找 次数是（） A 2 B 4 C 3 D

3、 7 二、综合题 ( 本大题共 3 小题， 其中第 5 小题 2 分，第 6 小题 3 分，第 7 小题 2 分，共 7 分) 5、 根据 2011 年 9 月高考题改编 下列 VB程序运行时 ,单击命令按钮Command1 后,文本框 Text1 中显示的内容是_，文本框Text2 中显示的内容是_。 Private Sub Command1_click( ) Dim a(1 to 3) as integer,k as integer,t as integer,s as integer a(1)=15: a(2)=36: a(3)=7 s=0 For k=2 to 3 if a(k)a(1)

4、 then t=a(1):a(1)=a(k):a(k)=t s=s+1 End if Next k text1.text=str(a(1) text2.text=str(s) End sub 6、 原 创 下 列程序的功能是在 text1中输入的自然数，分解为3 个互不相同的质数（三个质数的和等于输入的自然数），并把分解产生的质数按升序顺序显 示在左边的列表框中。例如，输入20，那么在列表框中会显示如右图所示结果。其中，上 述界面中“开始处理”按钮的名称是“Command1 ” ，程序中函数f(x) 的功能是判断x 是否为 质数，如果是质数则返回值为true ，否则返回false 。 请在下列

5、程序代码的基础上按照要求设计该程序, 完善程序中的划线部分。 Dim n As Integer, a1 As Integer, a2 As Integer, a3 As Integer Function f(x) As Boolean f = True For i = 2 To Sqr(x) If x Mod i = 0 Then _ Next i End Function Private Sub Command1_Click() n = _ For a1 = 2 To n For a2 = a1 To n For a3 = a2 To n If _ And f(a1) And f(a2) A

6、nd f(a3) Then List1.AddItem (Str(a1) + “ “ + Str(a2) + “ “ + Str(a3) End If Next a3 Next a2 Next a1 End Sub 7、 根据2015 年一点通中的试题改编 有一Access数据库“ school.accdb”存放在 f:2015mtvb文件夹中，其中的“student ”数据表用来存储学生的基本情况信息，包括学号 (num)、姓名 (name)、性别 (sex) 、分数 (score)，括号内的为对应字段名。下列VB程序用来 实现根据学号查询并显示学生信息，运行界面如下图所示。在文本框 Tex

7、t1 中输入学生的学 号，单击“查询” ，在文本框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.12.0;data source=f:2015mtvb_“ adocn.Open str1 str2 = “select * from s

8、tudents where num=“ + Text1.Text adors.Open str2, adocn, adOpenDynamic, adLockOptimistic If adors.EOF = True Then MsgBox “你输入的学号不存在“ Else Text2.Text = adors.Fields(“name“).Value Text3.Text = adors.Fields(“sex“).Value _ End If adors.Close adocn.Close End Sub 4. 某餐厅在团购网站上推出了98 元享原价 198 元的套餐团购活动， 但规定每天

9、接受团购券 数量是有限制的，表示此餐厅是否接受团购券的算法如下： number 0 团购券数量用变量number 表示。 Do While number 0.5 Then n = n + 1 Else m = m + 1 Next i 小金仔细分析该程序段后，发现其中缺少了（） AFor BEnd If C Next DIf 参考答案：B 预设难度： 0.55 命题意图：考核 VB基本控制结构及语句实现，考生只要知道选择语句，If开始 必须用End If结束，就可以选出本题答案。 4 【原创】有6 位学生的身高分别为165，170，172，175，176，180。其中，小民的身高 为 175，

10、若老师采用对分查找法想要找到小民，则需要找多少次才能够找到（） A2 B3 C4 D5 参考答案：B 预设难度：0.75 命题意图：本题考核考生对对分查找算法原理的掌握，依据原理便可算出所需查找 第 3 题图 第 1 题图 次数为 3次。 二、综合题（本大题有3题，第 5题 2分，第 6题6分，第 7题6分，共 14分） 5.【根据网上免费下载试题改编】下列VB程序运行时，在文本框Text1 中输入“ h”后，单 击命令按钮Command1 后，标签框Label1 中显示的内容是_ _。 Private Sub Command1_Click（） Dim a As String a = Text

11、1.Text a = Chr （ Asc（a） - 32 ） Label1.Caption = a End Sub 参考答案：H 预设难度：0.7 命题意图：本题考核VB基本语句含义的理解，通过理解每个VB语句的含义可以得 知， 本题实现的是把小字字母转换成大写字母的功能，故根据题意可得出答案是H。 6.【根据零距离模拟卷试题改编】素数：只能被1 和它本身整除的自然数。要求编写VB 程 序找出任意两个整数之间中所有的素数及个数，程序运行界面如下图所示。 请根据算法将下列程序补充完整。 Function prime（a As Integer） As Boolean Dim j As Intege

12、r prime = True j = 2 Do While prime And j = 2000 And jf 20000 And jf 50000 And jf 100000 And jf 150000 Then Cash = jf2000*14 End If End Function Private Sub Form_Load（） Dim conn As New ADODB.Connection, rs As New ADODB.Recordset Dim intSQL As Long conn.ConnectionString = “Provider=Microsoft.ACE.OLED

13、B.12.0;Data Source=“ + App.Path + “ customer.accdb“ conn.Open intSQL = “SELECT score FROM Integral“ Set rs.ActiveConnection = conn rs.CursorType = adOpenStatic rs.Open intSQL sc = 0 Do While Not rs.EOF sc = sc + 1 total（ sc） = rs.Fields（“score“ ） rs.MoveNext Loop rs.Close conn.Close Set rs = Nothing

14、 Set conn = Nothing End Sub （1）加框处有错，应改为_ 。 （2）加框处有错，应改为_ 。 参考答案：（1）q = cash （jf ）（2）ElseIf jf 150000 Then 预设难度：0.55 命题意图：本题考核VB基本语句含义的理解、修改，自定义函数的理解，VB访问 Access 数据库的理解。 第 II卷加考模块（ 15 分） 一、选择题 （本大题4 小题， 每小题 2 分，共 8 分。选出各题中一个符合题意的正确选项， 不选、多选、错选均不给分） 1三个正整数a、b、c 满足等式a 2+b2=c2，a、b、c 称为“勾股数” ，求出 100 以内所

15、有“勾 股数”可采用的算法是【原创】（） A.枚举算法 B.解析算法 C.冒泡排序 D.顺序查找 2 以下语句运行后变量c的值是【 原创】（） a=” 2009” b=” 2008” c=Val(a)+Val(b) A.2009+2008 B.4017 C.” 20092008” D.20092008 3 表达式 Len(“doodluck ”)+2 Mod 3+Int(3.9999)的值为 【原创】（） A.12 B.13 C.14 D.表达式运算出错 4某校 5名学生会推荐成员网络人气得票数依次为1201，2120，1009，1987，2009， 若采用选择排序算法对其进行从大到小排序，则

16、第二趟的排序结果是（） 【根据 2010年会考选择题改编】 A. 2120 2009 1009 1987 1201 B. 2120 2009 1009 1201 1987 C. 1009 1201 2120 1987 2009 D. 1009 1201 2009 2120 1987 二、综合题（本大题2小题，其中第1题2分，第 2题第（ 1）小题 1分，（ 2）（ 3）题各 2分， 原始数据1201 2120 1009 1987 2009 第一趟2120 1201 1009 1987 2009 第二趟 第三趟2120 2009 1987 1009 1201 第四趟2120 2009 1987

17、1201 1009 共7分） 1下列程序的功能是从键盘上任意输入一个数，判断这个数是正数，负数，还是零， 并输出判断结果。 程序中加框处有错误，请改正。【根据 2011年高考总复习填空题改编】 Private sub Command1_Click() Dim a As Single Dim py As String a= Val (Text1) （1） If a0 Then py =”正数” If a=0 Then py=”零” If a 0 Then s = s + j End If Next j Label1.Caption = Str(s) End Sub 2. 原创 小王设计了一个程序

18、来列举仁川亚运会的奖牌前三的国家。下列VB程 序实现如下功能：单击命令按钮Command1 后，在列表框 List1中按奖牌数由多 到少显示国家名称，如第2 题图。 请根据算法将下列程序补充完整。 Dim a(1 To 45) As String Dim b(1 To 45) As Integer Private Sub Form_Load() a(1) = “中国“ b(1) = 308 45 个代表团名称及奖牌数分别放在a(1) 到 a(45) 及 b(1) 到 b(45) 中 End Sub Private Sub Command1_Click() Dim i As Integer,j

19、As Integer 第 2 题图 Dim t As Integer,f As Integer List1.Clear For i = 1 To 3 For j = To 2 Step -1 If Then f = a(j): a(j) = a(j - 1): a(j - 1) = f t = b(j): b(j) = b(j - 1): b(j - 1) = t End If Next j Next i For i = 1 To 3 List1.AddItem “第“ + Str(i) + “名“ + a(i) + “ 奖牌数 “ + Str(b(i) Next i End Sub 3. 改

20、编自一点通算法与程序设计第五章综合题 王五为学生们设计了学校食堂 学生校园卡查询系统， 在终端机上输入学生的校园卡卡号，可以查出该卡对应的 学生姓名及相应的余额。 校园卡信息存储在一个综合的数据库“school.mdb ”, 其中的“Yue”数据表用来 存储学生的校园卡基本信息，包括学号（num ） 、姓名（ name ） 、余额（ money ）, 括号内的为对应字段名。下列VB程序用来实现根据学号查询并显示学生姓名及 余额，运行界面如第3 题图所示： 数据库文件与应用程序在同一文件夹中，在文本框 Text1 中输入学生的学号， 单 击“查询”按钮，在标签Label4 、Label5 中分别

21、显示学生姓名和余额。 Private Sub Command1_Click() Dim adocn As new connection Dim adors As new recordeset Dim str1 As string,str2 as string Str1= ”driver=microsoft access driver(*.mdb);dbq=” 第三步：求出x 被除 16 的商 x1; 第四步：对x1 重复（ 1）、（ 2）、（ 3）过程，直至商为0； 第五步：最后的S即为所求的十六进制数； 下列 Visual Basic 程序的功能是将一个十进制 正整数 x 转换成十六进制数。

22、界面如图所示，在文 本框 Text1 中输入一个十进制数制，单击“十进制 转十六进制按钮” （Command1 ）后，在文本框Text2 中输出转换的结果。相应的 Visual Basic程序如 下： Private Sub Command1_Click() Dim s As String, r As Integer dec = val(Text1.Text) dec 得到一个十进制整数，例如：255； base = 16 base 表示 16 s = “ s 变量存放要转换到的十六进制整数； Do While dec = 10 Then 如果 base10 进制， r 可能 10； s =

23、Chr(65 + (r - 10) + s Chr (65)=“A“, 16进制数 A对应 10； Else Chr (66)=“B“, 16进制数 B对应 11； s = Str(r) + s 余数 r10 时，十进制数和十六进制基数相同； End If Chr (65 +( r - 10)或 str(r)在 s 左边，实现了反次序输出； dec = Loop Text2.Text = s End Sub （1）在应填入（） A.base ModdecB. dec / baseC.dec Mod baseD. dec base （2） 在应填入（） A. base Moddec B. dec / baseC.dec Mod baseD.dec base