浙江省慈溪市2020届高三上学期信息技术12月适应性考试试卷
年级： 学科：信息技术（信息科技） 类型：月考试卷 来源：91题库
一、选择题(本大题共12小题，每小题2分，共24分。) （共12小题）
①通过人脸识别登录某APP
②微信好友间通过语音通话功能进行实时聊天
③通过在线翻译网站把一段中文翻译成英文
④使用扫描仪扫描答题纸获取数字化的图像
⑤通过OCR软件识别杂志图片中的文字
Dim tmp As Integer
Dim a(1 To 10) As Integer
Private Sub Command1_Click()
For i=2 To 10
Text1.Text = ""
For i= 1 To 5
For j=i+1 To 6
If s(i) + s(i) < s(j) + s(i) Then
t= s(j): s(j)= s(i): s(i)=t
End If
Next j
Next i
For i=1 To 6
Text1.Text = s(i) + Text1.Text
Next i
If 
Then
tmp = a(i)
For j= 
To 1 Step -1 ‘依次后移
If tmp > a(j) Then Exit For
a(j+1)= a(j)
Next j
‘插入数据
End If
Next i
For i= 1 To 10
List1.Addltem a(i)
Next i
End Sub
要实现上述功能，方框①②③中的语句分别是（ ）
a(I)=68: a(2)=88: a(3)=76: a(4)= 60: a(5)=98: a(6)=100: a(7)= 64: a(8)=85: a(9)=99: a(10)=59
For i=1 To 9
b(i)=Abs(a(i+1)-a(i))
c(b(i)\10)= c(b(i)\10) + 1
Next i
For i=0 To 10
If c(i)> 0 Then Label1.Caption = Label1.Caption + "" + Str(c(i))
Next i
数组c各元素初值为0，执行该程序段，标签Label 1上显示的内容是（ ）
Dim s(1 To 6) As String
Text1.Text = ""
For i= 1 To 5
For j=i+1 To 6
If s(i) + s(j)< s(j) + s(i) Then
t= s(j): s(j)= s(i): s(i)=t
End If
Next j
Next i
For i=1 To 6
Text1.Text = s(i) + Text1.Text
Next i
如果程序运行，一开始当数组元素s(1)到s(6)的值依次为“4"，"343"，"312"，"12"，"246"，"121"，运行该段代码后，文本框Text1中显示的内容为（ ）
n=0: i= 1:j-6
key = Val(Text1.Tex1)
Do While i<=j
m=(i+j)\2
n=n+1
If key = d(m) Then Exit Do
If key> d(m) Then j=m-1 Else i=m+ 1
Loop
d(1)到d(6)的值依次为"88，77，53，47，39，23"，并且输入key值为40，下列说法正确的是（ ）
二、非选择题(本大题共4小题，4+8+7+7，共26分) （共4小题）
(提示：AVERAGEIF函数功能是返回某个区域内满足给定条件的所有单元格的平均位值(算术平均值)，形式为“=AVERAGEIF(range，criteria，[average_range])”。如公式“=AVERAGEIF(A3：A7，“原材料”，E3：E7)”将计算出3－7行中“2018Q2”季度“原材料”类别数据的平均值。)
Function chg 10(a As Integer, m As Integer) As String
Dim k As Integer, p As Integer
Dim temp As String
Dim x As String
x = "0123456789ABCDEF"
k=n
Do While ①
p=k Mod m
②
k=k\m
Loop
chg10=temp
End Function
Private Sub Cmrd1_Click()
Dim a As Integer
a= Val(Text1.Text)
Label5.Caption = chg10(a, 2)
Label6.Caption = chg10(a, 8)
Label7.Caption = chg10(a, 16)
End Sub
① ②
①全0块“0000”，可以化简为“0”
②连续多个全0块，可以化简为“：：”
③一个IPv6地址中只能出现一个“：：”，出现多个全0块时，“：：”要化简最长的一段，没有最长的就将最左侧的一段化简为“：：”
④“：：”可以出现在地址开头或结尾
具体示例如下：
程序界面如图所示：
实现上述功能的VB程序如下，请回答下列问题：
Private Sub Text1_Change()
Dim a(1 To 8) As String, ipstr As String, ips As String
Dim lenth As Integer, max_lenth As Integer, start As Integer
ipstr = Text1.Text
For i=1 To 8
① ‘将IPv6分段存储
Next i
'对数组进行处理，如果字母或非零数字开头，则不用处理；如果全是数字，则压缩成0，
如果前导为0，则去掉，处理完毕存回数组。///-----处理过程略-----/////
'如果只有一串，则将该串"0"用“：：”代替，如果不止一串，则将最长的一串"0"简化为“：：”，如果有连续0，则将左边的一串零简化，右侧保留。
max_lenth=0
For i=1 To 7
If a(i)<> "0" Then ‘②
lenth= lenth + 1
Else
If lenth > max_lenth Then
max_ lenth = lenth: start= i - lenth: lenth = 0
End If
End If
Next i
If lenth > max_ lenth Then max_lenth = lenth:start = i-lenth
‘根据连续0串的位置确定输出简化后的结果
① ② ③