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

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

Text

Text

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

Comd1

Comd1

。
（3）實現(xiàn)上述功能的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）運(yùn)行程序，若文本框Text1中輸入的內(nèi)容為“Y3a5”，則輸出的解壓字符串為

aaa

aaa

。