资源描述：
《浙江省东阳中学2018_2019学年高一信息技术6月月考试题》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、浙江省东阳中学2018-2019学年高一信息技术6月月考试题（说明：本试题卷包括信息技术与通用技术两部分，满分100分，考试时间60分钟。）第一部分信息技术一、单选题（本大题共10小题，每小题2分，共20分。）（）1．二进制数1▊101▊0，其中有两位数字模糊不清，下列可能与其值相等的是A．84DB．64HC．53HD．52D（）2.将二制数11B，十进制数15D和十六进制数12H，按从大到小排序的结果正确的是A．12H，15D，11BB．12H，11B，15DC．15D，12H，11BD．15D，11B，12H（）3.使用UltraEdit软件观察
2、字符内码，结果如下图所示。下列说法正确的是A.字符“2022杭州亚运”存储容量是12位B.字符“杭”存储容量为4字节C.字符“2017”的内码为32303137D.字符“运”的内码为CB（）4.某字符编码规则如下：（1）将3个字母的ASCII值转换成二进制，连接后得到24位二进制数；（2）将得到的24位二进制数字按每6位一组分成4组；（3）在每组数字前补上两个0，得到4个字节的二进制数。现有“air”3个字符的内码如下所示。3个字符按上述规则进行转换，若转换后的编码用十六进制表示，则前两位是A.6169B.1816C.2532D.97105（）5．将
3、数学表达式a≤b≤c写成VisualBasic表达式，正确的是A.a<=b<=cB.a<=bOrb<=cC.a<=bAndb<=cD.a<=bNotb<=c（）6.在VisualBasic中，关系表达式x/y=xy为真，则说明A.x不能被y整除B.x与y一定不相等C.x与y一定相等D.x能被y整除（）7．某算法的部分流程图如第7题图所示，执行流程后，变量a，b的值分别是A.3,3B.3,4C.6,6D.7,11第8题图第7题图（）8.某算法的部分流程图如第8题图所示，执行这部分流程后输出a,b的值分别是A.5,8B.4,8C.5,11D.4,11（
4、）9．有如下VB程序段：x=1:a=x:b=x+1x=x+1:c=x:d=x+1该程序段运行后，下列说法正确的是A.a与b的值相同，c与d的值相同B.a与b的值相同，c与d的值不同C.a与b的值不同，c与d的值相同D.a与b的值不同，c与d的值不同（）10.有如下VisualBasic程序：PrivateSubCommand1_Click()DimsumAsDouble,xAsDoublesum=0n=0Fori=1To5x=n/in=n+1sum=sum+xNextiEndSub该程序计算了一个表达式的值，这个表达式是A.1/2+2/3+3/4+4
5、/5B.1+1/2+2/3+3/4C.1+1/2+2/3+3/4+4/5D.1+1/2+1/3+1/4+1/5二、非选择题（本大题共4小题，其中第11题和第12题各7分，第13小题和第14小题各8分，共26分）11.编写VB程序，实现如下功能：在文本框Text1中输入一个十进制整数，单击命令按钮Command1,在标签Label2上显示转换成十六进制数的结果，运行效果如图所示。（1）在设计程序界面时，要使按钮Command1上的文字显示为“转化成十六进制”，应修改按钮Command1的属性。（2）为实现上述功能，请在划线处填入合适的代码。Privat
6、eSubCommand1_Click()DimyAsInteger,rAsIntegerDimsAsString,tAsStringt="0123456789ABCDEF"s=""y=①DoWhiley>0r=yMod16s=②y=③LoopLabel2.Caption=Text1.Text+"转化成十六进制数为："+str(s)EndSub12.删除字符串中的非字母字符，并查找出ASCII码值最大的字母。程序功能如下:在文本框Text1中输入一个字符串，单击命令按钮Command1，在文本框Text2中显示删除非字母字符后的字符串，在文本框Text
7、3中显示ASCII码值最大的字母，运行界面如图所示。（1）程序中的Command1_Click()属于____________。（单选，填代码:A.对象名/B.事件名/C.属性名/D.事件处理过程名）（2）实现上述功能的VB程序如下，请在划线处填入合适代码。PrivateSubCommand1_Click()DimresultAsString,sAsString,cAsString,cmaxasstringDimiAsInteger,jAsIntegers=Text1.TextText2.Text=""Fori=1ToLen(s)①Ifc>="A"A
8、ndc<="Z"Orc>="a"Andc<="z"Thenresult=②EndIfNextiText2.T
