[填空題] 下列程序計算Sn的值。Sn=a+aa+aaa+…+aaa…a，其中最后一項為n個。 例如：a=5，n=4時，則Sn=5+55+555+5555。請在空白處填入適當?shù)膬热?，將程序補充完整?！　rivate 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的值：")　　　 【 】　 　　　Do　　　　Tn=Tn * 10 + a　　　　Sn二Sn + Tn　　　　Cout=Cout+1　　　 【 】　　　　Debug．Print a，n，Sn　　End Sub

n = InputBox(“請輸入n的值！”)

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