在文本框中輸入一串表示賓館信息的二進(jìn)制代碼，不同的代碼段用“|”分割，其中奇數(shù)段的代碼為“賓館的樓層、房號(hào)、朝向”（樓層用任意位二進(jìn)制來(lái)描述，用4位二進(jìn)制表示房號(hào)，用2位二進(jìn)制表示朝向如“10110011100”其中“10110”表示樓層信息，“0111”表示房號(hào)信息，“00”表示房門朝向），偶數(shù)段表示該房間的是否住人（“0”表示空房，“1”表示入?。?，現(xiàn)將奇數(shù)代碼段和偶數(shù)代碼段分別存儲(chǔ)在數(shù)組x（i）和y（i）中，并顯示在列表框List1中，具體界面如下圖所示：
（1）結(jié)合上述功能描述和下面的程序，“獲取”按鈕的名稱是

GetInfo

GetInfo

。
（2）實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)?jiān)冖佗谔幪钊牒线m的代碼

x（k\2+1）=v

x（k\2+1）=v

、

v=v+ch

v=v+ch

。
（3）加框處的代碼有誤，請(qǐng)修改

x（k\2）

x（k\2）

。

Private Sub GetInfo_Click （　　）
Dim x（1 To 100）As String'存儲(chǔ)讀取的奇數(shù)段二進(jìn)制
Dim y（1 To 100）As String'存儲(chǔ)讀取的偶數(shù)段二進(jìn)制
Dim c As String
Dim n As Integer
Dim k As Integer
c=Text1.Text
n=Len（c）：i=1：k=1：j=1
v=““
Do While i＜=n
ch=Mid（c,i,1）
If ch=“|“Then
If k Mod 2=1 Then
①
Else
y（k\2）=v
List1.AddItem x（k\2+1）+““+y（k\2）
End If
v=““
k=k+1
Else
②
End If
i=i+1
Loop
End Sub