[填空題] 下列程序計(jì)算Sn的值。Sn=a+aa+aaa+…+aaa…a，其中最后一項(xiàng)為n個(gè)a。

例如：a=5，n=4時(shí)，則Sn=5+55+555+5555。請(qǐng)?jiān)诳瞻滋幪钊脒m當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。

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請(qǐng)輸入a的值：“)

n=InputBox請(qǐng)輸入n的值！”)

Do

Tn=Tn*10+a

Sn=Sn+Tn

Cout=Cout+1

(9)

Debug.Print a，n，Sn

End Sub

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

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