资源描述：
《高中信息技术选考加试部分》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、加试部分（15分）一、选择题（本大题共4小题，每小题2分，共8分。在每小题给出的四个选项中，只有一个是符合题目要求的。1、［原创］已知x=17,y二则VB表达式x+Len（y）的值为（）A.-298B.17C.21D.〃17—315〃2、执行如下VisualBasic程序段时,出现了如下图所示的错误:MicrosoftVisualBasic实时懾误424-PrivateSubCommand1_C1ick()DimaAsInteger,bAsIntegera=5:b=8b=a+blabell.Caption二Str(
2、b)EndSub引发此错误的语句可能为()A.DimaAsInteger,bAsIntegerB.a=5:b=8C.b=a+bD.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
3、的最少査找次数是（）A.2B.4C.3D.7二、综合题（本大题共3小题，其中第5小题2分，第6小题3分，第7小题2分，共7分）5、［根据2011年9月高考题改编］下列VB程序运行时,单击命令按钮Command1后,文本框Toxtl中显示的内容是,文本框Toxt2小显示的内容是。PrivateSubCommand1click()Dima(1to3)asinteger,kasinteger,tasinteger,sasintegera(l)=15:a(2)=36:a(3)=7s=0Fork二2to3ifa(k)>a(l
4、)thent=a(l):a(l)=a(k):a(k)=ts二s+1Endif乌目細分解1«-»［［H］Nextktext1.text=str(a(l))text2.text=str(s)Endsub6、［原创］下列程序的功能是在textl中输入的自然数，分解为3个互不相同的质数(三个质数的和等于输入的自然数)，并把分解产生的质数按升序顺序显示在左边的列表框中。例如，输入20,那么在列表框中会显示如右图所示结果。其中，上述界面中“开始处理”按钮的名称是“Commemdl”，程序中函数f(x)的功能是判断x是否为质数，
5、如果是质数则返回值为true,否则返回false。请在下列程序代码的基础上按照要求设计该程序，完善程序屮的划线部分。DimnAsInteger,alAsInteger,a2AsInteger,a3AsIntegerFunctionf(x)AsBooleanf二TrueFori=2ToSqr(x)IfxModi=0ThenNextiEndFunctionPrivateSubCommandl_Click()n=Foral=2TonFora2=alTonFora3=a2TonIfAndf(al)Andf(a2)Andf(
6、a3)ThenListl.Additem(Str(al)+""+Str(a2)+""+Str(a3))EndIfNexta3Texta2NextalEndSub7、［根据2015年一点通中的试题改编］有一Access数据库“school,accdb”存放在f:2015mtU文件夹屮，英屮的“student”数据表用来存储学生的基本情况信息，包括学号(num).姓名(name).性别(sex)、分数(score),括号内的为对应字段名。下列VB程序用来实现根据学号查询并显示学生信息，运行界面如下图所示。在文本框Te
7、xtl中输入学生的学号，单击“查询”，在文本框Text2、Toxt3、Toxt4中分别显示学生姓名、性别、分数。PrivateSubCommand1Click()DimadocnAsNewadodb.ConnectionDimadorsAsNewadodb.RecordsetDimstr2AsString,strlAsStringstrl=〃Provider=Micr（）s（）ft・ACEOLEDB.12.0;datasource=f:2015mtvbadocn.Openstrlstr2二"select*fr
8、omstudentswherenum二〃+Textl-Textadors・0penstr2,adocn,adOpenDynamic,adLockOptimisticIfadors.EOF=TrueThenMsgBox〃你输入的学号不存在〃ElseText2.Text=adors.Fields（//name/，）.ValueText3.Text=adors.F
