资源描述:
《高二信息技术上学期期中试题3》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
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、模拟剪刀
2、石头布的游戏,用1-3这3个数字分别代表剪刀、石头、布这三种情况,使用Rnd函数可以表示为()(A)int(Rnd(3)+1)(B)int(Rnd*2+1)(C)int(Rnd(2)+1)(D)int(Rnd*3+1)5、某VB程序的一个事件过程如下:PrivateSubCommand1_Click()DimaAsIntegera=Val(Text1.Text)Text1.Text=Str(Sqr(a))EndSub程序运行时,单击命令按钮command1后弹出如图所示的错误信息提示。出现错误的原因是()A、变量a类型定义错误B、界面缺少文本框T
3、ext1C、Command1属性设置错误D、Sqr函数计算时出错6、将数学表达式sin(e)+写成VisualBasic的表达式,其正确的形式是()A、sin(exp(3))+sqr(abs(x+y))B、sin(e^3)+sqr(abs(x+y))9C、sin(exp(3))+sqr(
4、x+y
5、)D、sin(e^3)+sqr(
6、x+y
7、)7、第1次,将1张正方形纸片沿垂直和水平中线对折后撕开,变成4张纸片,第2次,从4张纸片中取其中1张纸片也照上面方法撕开,变成7张纸片,一直这样下去。描述计算撕了n次后纸片总数s的算法部分流程图如下图所示:空白
8、矩形框中应该填入的是…………………………………………………()(A)s←s+2(B)s←s+3(C)s←s+j(D)s←s*38、设a=2,b=3,c=4,d=5,下列表达式Nota<=cOr4*c=b^2Andb<>a+c的值是()(A)-1(B)1(C)True(D)False9、有如下VisualBasic程序:PrivateSubCommand1_Click()DimsumAsDouble,xAsDoublesum=0n=0Fori=1To5x=n/in=n+1sum=sum+xNextEndSub该程序通过For循环计算一个表达式的
9、值,这个表达式是()A、1+1/2+2/3+3/4+4/5B、1+1/2+2/3+3/4C、1/2+2/3+3/4+4/5D、1+1/2+1/3+1/4+1/510.阅读如下VisualBasic程序,9Functionf(nAsInteger,rAsInteger)asintegerIfn<>0Thenf=nrEndIfEndFunctionPrivateSubCommand1_Click()Printf(10,8)EndSub程序的运行结果是…………………………………………………()A.8B.10C.2D.111、如下VB程序段:x=tex
10、t1.textp=0fori=1tolen(x)ifmid(x,i,1)=”a”thenp=p+1nextiprintp若程序运行时,在文本框Text1中输入“Areyouhappy”,则运行结果是()A.0B.1C.2D.1112、在窗体上画一个名称为Label1的标签,然后编写如下事件过程,程序运行后,单击窗体,在标签中显示的内容是()PrivateSubForm_Click() Dimarr(1to10,1to10)AsInteger DimiAsInteger,jAsInteger Fori=2To4 Forj=2To4 arr
11、(i,j)=i*j Nextj Nexti Label1.Caption=Str(arr(2,2)+arr(3,3)) EndSub9(A)12 (B)13 (C)14 (D)15二、程序设计题(共4大题,每空2分。答案写在答题纸上)1小华同学设计了一个VB程序,其功能是在text1中输入文本,点击“统计”按钮,自动统计字母a和字母b的出现次数,并显示在text2和text3中。程序设计界面如下图所示:(1)运行程序时发现窗体的标题显示为“form1”,将窗体标题显示为“字母统计”,应修改窗体form1的_____________属性
12、。(2)通过窗体的加载事件也可以修改窗体的标题属性,请补充下列代码PrivateSubForm_Load()______________