[填空題] 下列程序計算Sn的值。Sn=a+aa+aaa+…+aaa…a，其中最后一項為n個。
例如：a=5，n=4時，則Sn=5+55+555+5555。請在空白處填入適當(dāng)?shù)膬?nèi)容，將程序補充完整。
Private Sub Command1_Click()
Dim a As Integer，n As Integer，Cout As Integer
Dim Sn As Long，Tn As Long
　 　Cout=1
　　 Sn=0
　　Tn=0
　　a=InputBox("請輸入a的值:")
　　 (10)
　　Do
　　　Tn=Tn*10+a
　　　Sn=Sn+Tn
　　　Cout=Cout+1
　　 (11)
　　Debug.Print a,n,Sn
End Sub

Loop while Cout＜=n或Loop Until Cout=n+1

a和n的值必須已知，表達式才能計算。但程序中沒有給變量n賦值的語句，可見第一個空白行應(yīng)該填寫給n賦值的語句。 Do循環(huán)應(yīng)該有與之相對應(yīng)的終端語句，可見第二個空白行應(yīng)填寫Do循環(huán)的終端語句，即While語句，同時要構(gòu)造出控制循環(huán)的＜條件＞。程序中有四個賦值語句，其中有一個計數(shù)語句Cout=Cout+1，可見控制循環(huán)次數(shù)的變量應(yīng)是Cout。