学进去

手机上的9键输入键盘如图1所示，要按出英文字母就必须要按数字键多下。例如要按出“X”就得按9两下，第一下会出“W”，而第二下会把“W”变成“X”。请设计一个程序，读入用户输入的9键输入码，解析出对应的英文字符串，具体要求如下：
①输入码中只包含数字字母“0~9”，且以“*”代表输入结束
②按键词数采用循环计数，如输入“2222”代表“A”，“55555”代表“K”。
③输入“1”表示分词，如“555555”代表“L”，但改为“5551555”就代表“LL”。

图1

图2
（1）若输入码是“333338883377799966616666633*”，则对应的字符文本是_______________。
（2）程序界面如图2，请在下方画线处填上合适代码，使程序完整
Private Sub Command1_Click()
本题使用的函数:Asc(c)得到字符c的ASCII码数值,Asc("A")=65
Chr(n)得到数值n对应的ASCII字符,如chr(65)="A"
Dim s As String, s1 As String, ch As String, ch1 As String
Dim i As Integer, t As Integer, t1 As Integer, n As Integer
s=Text1.Text
i=1:t=1:s1=""
ch=Mid(s,i,1)
Do While ch<>"*"
Ch1=①________
If ch<>ch1 Then
If ch>"2"And ch<="6"Then
t1=Asc("A")+(Val(ch)-2)*3
n=3
Else If ch="7"Then
t1=Asc("A")+15
n=4
Else If ch="8"Then
t1=Asc("A")+19
n=3
Else If ch="9"Then
t1=Asc("A")+22
n=4
End If
If ch>"2"Then
s1=s1+Chr(②__________)'得到该串数字表示的字母并加到s1中
Else If ch="0"Then
s1+s1+""
End If
t=1
Else
t=t+1
End If
③________
i=i+1
Loop
Label2.Caption="解析结果:"+s1
End Sub