- 二一组卷

题型：综合题题类：常考题难易度：普通

浙江省高中信息技术——VB基础知识

小王用VB编写了一个能自动识别浙江省固定电话号码所属地区的程序，在文本框Text1中输入固定电话全号（“0”+区号+电话号码）单击命令按钮 Command1，程序自动在标签 Label2中输出电话号码所属地区浙江省地市），程序运行界面如图所示。

浙江省电话区号和地区对应关系如下表：

地区	衢州	杭州	湖州	嘉兴	宁波	绍兴	台州	温州	丽水	金华	舟山
电话区号	570	571	572	573	574	575	576	577	578	579	580

（1）、要使程序运行后，命令按钮 Command1的Caption属性值自动变为“识别”，可在（单选，填字母：A .Label2_Click( )/B .Form_Load( )/C .Command1_Click( )）事件过程中添加语句Command. Caption= “识别”。

（2）、实现上述功能的VB程序如下，请在划线处填合适的代码。

Private Sub Command1_Click( )

Dim s As String, DH As String, qh As Integer

DH= “衢州杭州湖州嘉兴宁波绍兴台州温州丽水金华舟山”

s=Text1. Text

qh=Val (Mid (s,2,3))

If gh > = 570 And gh < = 580 Then

Label2. Caption= “该电话号码属于:”+

①

Else

Label2.Caption= “该电话号码不属于浙江省！”

②

End Sub

① ②

（3）、若在文本框Text1中输入的内容为“5720-30875121”，单击“识别”按钮，则标签Label2中显示的内容是。

举一反三

图中空白处理框①和②处应填入的是（）

s = 0

For i = 1 To 20 Step 2

If s < 15 Then

s = s + i

End If

Next i

以上程序执行结束后，变量s和i的值分别为（）

同时，对于多个地址块为 0 的情况时，可以使用“::”号，进行化简。化简原则：

①全 0 块“0000”，可以化简为“0”

②连续多个全0块，可以化简为“::”

③一个IPv6地址中只能出现一个“::”，出现多个全 0块时，“::”要化简最长的一段，没有最长的就将最左侧的一段化简为“::”

④“::”可以出现在地址开头或结尾具体示例如下：