浙江省东阳高级中学2018-2019学年高一6月月考信息技术试题

东阳中学2019年上学期阶段考试卷 （高一 技术） [来源:学科网ZXXK] （说明：本试题卷包括信息技术与通用技术两部分，满分100分，考试时间60分钟。） 第一部分 信息技术 一、单选题（本大题共10小题，每小题2分，共20分。） （ ）1．二进制数1▊101▊0，其中有两位数字模糊不清，下列可能与其值相等的是 A．84D B．64H C． 53H D．52D （ ）2.将二制数11B，十进制数15D和十六进制数12H，按从大到小排序的结果正确的是 A．12H，15D，11B B．12H，11B，15D C．15D，12H，11B D．15D，11B，12H （ ）3.使用UltraEdit软件观察字符内码，结果如下图所示。 下列说法正确的是 A.字符“2022杭州亚运”存储容量是12位 B.字符“杭”存储容量为4字节 C.字符“2017”的内码为32 30 31 37 D.字符“运”的内码为CB （ ）4.某字符编码规则如下： （1）将3个字母的 ASCII 值转换成二进制，连接后得到24位二进制数； （2）将得到的24位二进制数字按每6位一组分成4组； （3）在每组数字前补上两个0，得到4个字节的二进制数。 现有“air”3个字符的内码如下所示。 3 个字符按上述规则进行转换，若转换后的编码用十六进制表示，则前两位是 A. 61 69 B. 18 16 C. 25 32 D.97 105 （ ）5．将数学表达式a≤b≤c写成Visual Basic表达式，正确的是 A.a<=b<=c B.a<=b Or b<=c C.a<=b And b<=c D.a<=b Not b<=c （ ）6. 在 Visual Basic 中，关系表达式 x/y=xy 为真，则说明 A.x不能被y整除 B.x与y一定不相等 C.x与y一定相等 D.x 能被y整除 （ ）7．某算法的部分流程图如第7题图所示，执行流程后，变量a，b的值分别是 A.3,3 B.3,4 C.6,6 D.7,11 （ ）8.某算法的部分流程图如第8题图所示，执行这部分流程后输出a,b的值分别是 A.5,8 B.4,8 C.5,11 D.4,11 （ ）9．有如下VB程序段： x=1 : a=x : b=x+1 x=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. 有如下Visual Basic程序： Private Sub Command1_Click() Dim sum As Double, x As Double sum=0 n=0 For i=1 To 5 x=n/i n=n+1 sum=sum+x Next i End Sub 该程序计算了一个表达式的值，这个表达式是 A. 1/2+2/3+3/4+4/5 B.1+1/2+2/3+3/4 C. 1+1/2+2/3+3/4+4/5 D.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）为实现上述功能，请在划线处填入合适的代码。 Private Sub Command1_Click() Dim y As Integer, r As Integer Dim s As String, t As String[来源:Z*xx*k.Com] t = "0123456789ABCDEF" s = "" y = ① Do While y>0[来源:学科网ZXXK] r = y Mod 16 s = ② y = ③ Loop Label2.Caption = Text1.Text + "转化成十六进制数为：" + str(s) End Sub 12.删除字符串中的非字母字符，并查找出ASCII码值最大的字母。程序功能如下: 在文本框Text1中输入一个字符串，单击命令按钮Command1，在文本框Text2中显示删除非字母字符后的字符串，在文本框Text3中显示ASCII码值最大的字母，运行界面如图所示。 （1）程序中的Command1_Click()属于_____。（单选，填代码:A. 对象名/B. 事件名/C. 属性名/ D. 事件处理过程名） （2）实现上述功能的VB程序如下，请在划线处填入合适代码。 Private Sub Command1_Click() Dim result As String, s ... ...