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

加试部分(15分) 一、选择题（本大题共4小题，每小题2分，共8分。在每小题给出的四个选项中，只有一个是符合题目要求的。 1、[原创]已知x=17，y= "-315"，则VB表达式x+Len(y)的值为（ ） A．－298 B．17 C．21 D．"17－315" 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 引发此错误的语句可能为（　　） A．Dim a As Integer, b As Integer B．a = 5: b = 8 C．b = a + b D．label1.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． 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) 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。 请在下列程序代码的基础上按照要求设计该程序, 完善程序中的划线部分。 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) And 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:\2015mt\vb文件夹中，其中的“student”数据表用来存储学生的基本情况信息，包括学号(num)、姓名(name)、性别(sex)、分数(score)，括号内的为对应字段名。下列VB程序用来实现根据学号查询并显示学生信息，运行界面如下图所示。在文本框Text1中输入学生的学号，单击“查询”，在文本框Text2、Text3 、Text4中分别显示学生姓名、性别、分数。 Private Sub C