加试部分(15分)一、选择题（本大题共4小题，每小题2分，共8分。在每小题给出的四个选项中，只有一个是符合题目要求的。1、[原创]已知x=17，y="-315"，则VB表达式x+Len(y)的值为（）A．－298B．17C．21D．"17－315"2、执行如下VisualBasic程序段时，出现了如下图所示的错误：PrivateSubCommand1_Click()DimaAsInteger,bAsIntegera=5:b=8b=a+blabel1.Caption=Str(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的最少查找次数是（）A．2B．4C．3D．7二、综合题(本大题共3小题，其中第5小题2分，第6小题3分，第7小题2分，共7分)5、[根据2011年9月高考题改编]下列VB程序运行时,单击命令按钮Command1后,文本框Text1中显示的内容是______，文本框Text2中显示的内容是_______。PrivateSubCommand1_click()Dima(1to3)asinteger,kasinteger,tasinteger,sasintegera(1)=15:a(2)=36:a(3)=7s=0Fork=2to3ifa(k)>a(1)thent=a(1):a(1)=a(k):a(k)=ts=s+1EndifNextktext1.text=str(a(1))text2.text=str(s)Endsub6、[原创]下列程序的功能是在text1中输入的自然数，分解为3个互不相同的质数（三个质数的和等于输入的自然数），并把分解产生的质数按升序顺序显示在左边的列表框中。例如，输入20，那么在列表框中会显示如右图所示结果。其中，上述界面中“开始处理”按钮的名称是“Command1”，程序中函数f(x)的功能是判断x是否为质数，如果是质数则返回值为true，否则返回false。请在下列程序代码的基础上按照要求设计该程序,完善程序中的划线部分。DimnAsInteger,a1AsInteger,a2AsInteger,a3AsIntegerFunctionf(x)AsBooleanf=TrueFori=2ToSqr(x)IfxModi=0Then_____________NextiEndFunctionPrivateSubCommand1_Click()n=_________________Fora1=2TonFora2=a1TonFora3=a2TonIf____________________Andf(a1)Andf(a2)Andf(a3)ThenList1.AddItem(Str(a1)+""+Str(a2)+""+Str(a3))EndIfNexta3Nexta2Nexta1EndSub7、[根据2015年一点通中的试题改编]有一Access数据库“school.accdb”存放在f:\2015mt\vb文件夹中，其中的“student”数据表用来存储学生的基本情况信息，包括学号(num)、姓名(name)、性别(sex)、分数(score)，括号内的为对应字段名。下列VB程序用来实现根据学号查询并显示学生信息，运行界面如下图所示。在文本框Text1中输入学生的学号，单击“查询”，在文本框Text2、Text3、Text4中分别显示学生姓名、性别、分数。PrivateSubCommand1_Click()DimadocnAsNewadodb.ConnectionDimadorsAsNewadodb.RecordsetDimstr2AsString,str1AsStringstr1="Provider=Microsoft.ACE.OLEDB.12.0;datasource=f:\2015mt\vb\_____________"adocn.Openstr1str2="select*fromstudentswherenum="+Text1.Textadors.Openstr2,adocn,adOpenDynamic,adLockOptimisticIfadors.EOF=TrueThenMsgBox"你输入的学号不存在"ElseText2.Text=adors.Fields("name").ValueText3.Text=adors.Fields("sex").Value________________________________________EndIfadors.Closeadocn.CloseEndSub4.某餐厅在团购网站上推出了98元享原价198元的套餐团购活动，但规定每天接受团购券数量是有限制的，表示此餐厅是否接受团购券的算法如下：①number＝0′团购券数量用变量number表示。②DoWhilenumber<=29③读入用餐顾客的情况④If使用团购券顾客then变量number增加1允许使用团购券进行消费EndIf⑤Loop对于上述算法，下列说法错误的是()A．每天允许使用团购券数量最多是30B．代码“变量number增加1”和“允许使用团购券进行消费”互换位置是可行的C．此算法的循环结构可以用For语句来实现D．此算法是用自然语言来描述的【根据信息技术学业水平测试综合模拟卷（3）...
