2019-2020学年浙江省台州市书生中学高二（上）第一次月考信息技术试卷

一、选择题（共12小题，每小题2分，满分24分）

• 1．在网上阅卷的大背景下，个人信息条形码使用广泛，下列有关信息的说法，正确的是（　　）

  A．生成条形码，是信息的编码过程

  B．使用条形码，是为了鉴别试卷的真伪

  C．每位学生的条形码是固定的，说明信息不可以加工和处理

  D．每位学生的条形码只能有一张，说明信息只能是一种形态
  组卷：15引用：1难度：0.7

  解析

• 2．用Ultraedit软件查看字符“2019，高考！”的内码，部分界面如图所示。下列说法正确的是（　　）
  

  A．字符“2019，高考！”全部采用GB2312编码

  B．字符“！”存储时占用1个字节

  C．字符“，”的十六进制编码为“A3”

  D．字符“0”的二进制编码为“00110000”
  组卷：5引用：2难度：0.4

  解析

• 3．某版本软件的相关信息如图所示。分析图中信息，下列说法不正确的是（　　）

  A．该软件可在安卓操作系统中运行

  B．该软件文件大小约为46653KB

  C．涉及个人推荐与统计评价的信息评价方式

  D．热门标签有助于软件被检索下载
  组卷：7引用：2难度：0.7

  解析

• 4．将一幅未经压缩的1024*768像素，256色BMP图片，转换成JPEG格式后，存储容量为76.8KB，则压缩比约为（　　）

  A．320：1

  B．8：1

  C．10：1

  D．7：1
  组卷：6引用：4难度：0.6

  解析

• 5．下列VB表达式中，值最大的是（　　）

  A．Abs（-8）+Len（“Taizhou“）

  B．Val（Mid（“Zhe2017Jiang“，6，2））

  C．Int（2*Sqr（49）+7.5）/3

  D．10^2 Mod 25\2^2
  组卷：12引用：3难度：0.7

  解析

二、解答题（共3小题，满分26分）

• 14．编写“幸运数字”程序，功能如下：在文本框Text1中输入出生日期，单击“算一算”按钮Command1，将日期中所有的数字按位相加，若结果为两位数则继续按位相加，直到结果为一位数，如出生日期为2003/08/11，数字按位相加2+0+0+3+0+8+1+1=15，15按位相加1+5=6．运行界面如图所示。
  （1）程序窗体中共有

   

  类对象。
  （2）请在横线处填入合适的代码。
  Private Sub Command1_Click （　　）
  Dim luck As Integer
  Dim sr,c As String
  luck=0
  sr=Text1．Text
  If Len（sr）=10 Then′输入的格式长度符合条件
  For i=1 To Len（sr）
  c=

   

  
  If c＞=“0“And c＜=″9″Then
  luck=luck+Val（c）
  End If
  Next i
  Do While luck＞9
  luck=luck Mod 10+

   

  
  Loop
  Label2．Caption=″你的幸运数字是：″+str（luck）
  Else
  Label2．Caption=″输入有误，请重输！″
  End If
  End Sub
  （3）若在文本框Text1中输入“2004/08/18”，Label2中显示的内容为

   

  。
  组卷：1引用：1难度：0.5

  解析

• 15．设某汉字由7×7 的0、1 点阵图案组成。依照以下规则生成压缩码：连续一组数值，从汉字点阵图案的第一行第一个符号开始计算，按书写顺序由左到右，从上到下。压缩码第一个数表示起始的数字（例如0），第二个数表示连续有几个0，第三个数表示接下来连续有几个1，第四个数表示接下来连续有几个0，第五个数表示接下来连续有几个1，以此类推……
  例如，以下汉字点阵图案：
  0001000
  0001000
  0001111
  0001000
  0001000
  0001000
  1111111
  对应的压缩码是031616431616137（第一个数是0，表示一开始时的数字为0）。
  （1）请将程序代码补充完整。
  Private Sub Command1_Click （　　）
  Dim code As String,c As Integer,res As String,k As Integer
  code=Text1．Text
  k=0
  res=″″
  c=Val（Mid（code,1，1））
  For i=2 To Len（code）
  For j=1 To Val（Mid（code,i,1））'
  res=

   

  
  

   

  
  If k=7 Then
  List1．AddItem　 res
  k=0
  res=″″
  End If
  Next j
  c=

   

  '
  Next i
  End Sub
  （2）现给出如下点阵图：
  
  则压缩码为

   

  。
  组卷：1引用：1难度：0.4

  解析