[填空題] 下列程序計算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的值：")

　【11】　

Do

Tn=Tn * 10 + a

Sn二Sn + Tn

Cout=Cout+1

　【12】　

Debug．Print a，n，Sn

End Sub

【11】n = InputBox(“請輸入n的值！”)【12】 Loop While Cout ＜ = n或 Loop Until Cout = n + 1

【命題目的】本題考核循環(huán)控制結(jié)構(gòu)的應(yīng)用及閱讀程序的能力?！窘忸}要點】a和n的值必須已知，表達(dá)式才能計算。但程序中沒有給變量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。