题型：综合题 题类：常考题 难易度：困难
浙江省慈溪市2020届高三上学期信息技术12月适应性考试试卷
①全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串的位置确定输出简化后的结果
① ② ③
试题篮
