IPV6的地址长度为128 bit,采用十六进制表示。格式为X：X：X：X：X：X：X：X，其中每个X表示地址中的16 bit,以十六进制表示，例如：2001：0DB8：00BA：0023：0008：080B：202C：417A这种表示法中，每个X的前导0是可以省略的，例如：
2018：0DB8：00BA：0023：0008：080B：202C：417A→2018：DB8：BA：23：8：80B：202C：417A
编程实现如下功能：在文本框Text1中输入原始32位十六进制IPV6地址，单击“去前导零”按钮Command1，在文本框Text2中输出去前导0后的IPV6地址，程序运行界面如图所示。

（1）要使程序运行时，窗体Form1标题显示“IPV6去前导零”，可在Form_Load事件过程中添加语句

C

C

（单选，填字母：A.Form1=“IPV6去前导零“/B.Form1.Text=“IPV6去前导零“/C.Form1.Caption=“IPV6去前导零“）。
（2）实现上述功能的VB程序如下，请在横线处填入合适的代码。
Private Sub Command1_Click

（　　）

（　　）

Dim ipv6 As String,c As String
Dim i As Integer'l As Integer
Dim flag As Boolean‘前导0判断，false表示前导0，true表示非前导0
ipv6=Text1.Text
l=Len（ipv6）
i=1：flag=False：Text2.Text=““
Do While i＜1
c=Mid（ipv6，i,1）

i=i+1

i=i+1

If c=“：“Then
Text2.Text=Text2.Text+c
flag=False
ElseIf c＜＞“0“Then
Text2.Text=Text2.Text+c
flag=True
ElseIf

flag

flag

Then‘以下为判断0是否需要去除
Text2.Text=Text2.Text+c
ElseIf Mid（ipv6'i,1）=“：“Then
Text2.Text=Text2.Text+c
End If
Loop
Text2.Text=Text2.Text+Mid（ipv6，i,1）
End Sub
（3）若文本框Text1中输入原始IPV6地址：2018：0608：0000：0000：0000：0000：0000：417A，单击“去前导零”按钮后，在Text2中显示的内容是

2018：608：0：0：0：0：0：417A

2018：608：0：0：0：0：0：417A

。