资源描述：
《浙江省诸暨市牌头中学2016-2017学年高二信息技术上学期期中试题》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、牌头中学2016学年第一学期中考试卷高二信息技术(总分50分)一、选择题(每题2分，共24分)选择题填涂在答题卡1-121、下列冇关算法的描述，正确的是()(A)一个完整的算法必须有输出(B)一个完整的算法至少冇一个输入(C)算法只能用白然语言或者流程图这两种方式表示(D)用流程图表示算法的好处是形象直观，但容易产生歧义2、小周定义了一个变虽rs来存储超市里商品条形码，变量的数据类型应是()A.IntegerB.StringC・LongD・Date3、下列可作为VB变量名的是()(A)true(B)we*6(C)dew3(D)3ABC4、模拟剪丿J石头布的游戏，用1-3这3个数字分别
2、代表剪刀、石头、布这三种情况，使用Rnd函数可以衣示为()(A)int(Rnd(3)+1)(B)int(Rnd*2+1)(C)int(Rnd(2)+1)(D)int(Rnd*3+1)5、某VB程序的一个事件过程如下：PrivateSubCommand1Click()DimaAsIntegera=Vai(Textl.Text)Textl.Text=Str(Sqr(a))EndSub程序运行时,单击命令按钮command1后弹出如图所示的错误信息捉示。出现错误的原因是()A、变量a类型定义错误B、界面缺少文本框TextlC、Command1屈性设置错误D、Sqr函数计算时出错6>将数学表
3、达式sin(e')+J"./1写成VisualBasic的表达式,其正确的形式是()A、sin(exp(3))+sqr(abs(x+>0)B、sin(e"3)+sqr(abs(x+y))C、sin(exp(3))+sqT(
4、x+y
5、)D、sin(e"3)+sqr(
6、x+y
7、)7、第1次，将1张正方形纸片沿垂直和水平中线对折后撕开，变成4张纸片，第2次，从4张纸片中取其中1张纸片也照上而方法撕开，变成7张纸片，一直这样下去。描述计算撕了n次后纸片总数s的算法部分流程图如下图所示：空白矩形框中应该填入的是()(A)s—s+2(B).s—s+3(C)s—s+j(D)s—s*38、设a=2,
8、b二3,c=4,d二5,下列表达式Nota<=cOr4*c=b"2Andb<>a+c的值是()(A)-1(B)1(C)True(D)False9、有如下VisualBasic程序：PrivateSubCommand1Click()DimsumAsDouble,xAsDoublesum=0n=0Fori=1To5x=n/in=n+1sum=sum+xNextEndSub该程序通过For循环计算一个表达式的值，这个表达式是()A、1+1/2+2/3+3/4+4/5B、1+1/2+2/3+3/4.C、1/2+2/3+3/4+4/5D、1+1/2+1/3+1/4+1/510•阅读如下Visu
9、alBasic程序，Functionf(nAsInteger,rAsInteger)asintegerIfn◊0Thenf=nrEndIfEndFunctionPrivateSubCommandl_Click()Printf(10,8)EndSub程序的运行结果是（）A.8B.10C.2D.111、如下VB程序段：x二textl.textp二0fori=ltole.n(x)ifmid(x,i,1)="a”thenp=p+lnextiprintp若程序运行时,在文本框Textl中输入“Areyouhappy”,则运行结果是()A.0B.1C.2D.1112、在窗体上画一个名称为Lab
10、e11的标签，然后编写如下事件过程，程序运行后，单击窗体,在标签中显示的内容是()PrivateSubForm_Click()Dimart仃to10,1to10)AsIntegerDimiAsInteger,jAsIntegerFori=2To4Forj=2To4arr(i,j)二i*jNextjNextiLabel1.Caption=Str(arr(2,2)+arr(3,3))EndSub(A)12(B)13(C)14(D)15二、程序设计题（共4大题，每空2分。答案写在答题纸上）1小华同学设计了一个VB程序,其功能是在text1中输入文本，点击“统计”按钮,自动统计字母a和字母b
11、的出现次数,并显示在text2和text3中。程序设计界面如下图所示:(1)运行程序吋发现窗体的标题显示为"forml”，将窗体标题显示为“字母统计”，应修改窗体forml的属性。(2)通过窗体的加载事件也可以修改窗体的标题属性，请补充下列代码PrivateSubFormLoad()=”字母统计”EndSub(3)根据题意，将下-列程序补充完整PrivateSubCommand1_Click()DimsAsString,iAsTnteger,taAsInt
