[填空題] 下列程序計算Sn的值。Sn=a+aa+aaa+…a，其中最后一項為n個。

例如：a=5，n=4時，則Sn=5+55+555+5555。請在空白處填入適當?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的值:" )

【9】

Do

Tn =Tn * 10 + a

Sn = Sn + Tn

Cout = Cout + 1

【10】

Debug. Print a, n, Sn

End Sub

[9]n=InputBox(“請輸入n的值!”) [10]Loop While Cout＜=n或Loop Until Cout = n + 1

[命題目的] 本題考核循環(huán)控制結(jié)構(gòu)的應(yīng)用及閱讀程序的能力。[解題要點] 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=Coat+1，可見控制循環(huán)次數(shù)的變量應(yīng)是Cout。