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
編程實現(xiàn)如下功能：在文本框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）實現(xiàn)上述功能的VB程序如下，請在橫線處填入合適的代碼。
Private Sub Command1_Click

（　　）

（　?。?/div>
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

。