用VB編寫字符解壓程序，功能如下：在文本框Textl中輸入壓縮字符串，壓縮字符串中不含空格，其中數字可以是多位數，表示其后面的字符個數，字符為單個字符。在文本框Text2中顯示解壓結果。例如，輸入壓縮字符串“3Y5a”（表示有3個“Y”和5個“a”組成），單擊“解壓”按鈕后，輸出解壓結果“YYYaaaaa”。程序運行界面如圖所示：

（1）在設計程序界面時，要將文本框Text1和Text2中的內容清空，可以修改這兩個對象的

Text

Text

屬性實現。
（2）由代碼可知，命令按鈕“解壓”的名稱是

Comd1

Comd1

。
（3）實現上述功能的VB程序如下，請在橫線處填入合適的代碼。
Private Sub Comd1_Click

（　?。?/div>

（　?。?/div>
Dim i As Integer,j As Integer,n As Integer
Dim ch As String,s As String,ss As String
s=Text1.Text
n=0：ss=““
i=1
Do While i＜=Len（s）

ch=Mid（s,i,1）或ch=Mid（Text1.Text,i,1）

ch=Mid（s,i,1）或ch=Mid（Text1.Text,i,1）

If ch＞=“0“And ch＜=“9“Then

n=n*10+Val（ch）

n=n*10+Val（ch）

Else
For j=1 To n
ss=ss+ch
Next j
n=0
End If

i=i+1

i=i+1

Loop
Text2.Text=ss
End Sub
（4）運行程序，若文本框Text1中輸入的內容為“Y3a5”，則輸出的解壓字符串為

aaa

aaa

。