[填空題] 下列程序計(jì)算Sn的值。Sn=a+aa+aaa+…a，其中最后一項(xiàng)為n個(gè)。 例如：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的值:" ) 【9】 DoTn =Tn * 10 + aSn = Sn + TnCout = Cout + 1 【10】 Debug. Print a, n, Sn End Sub

[9]n=InputBox(“請(qǐng)輸入n的值!”)

[10]Loop While Cout＜=n或Loop Until Cout = n + 1[命題目的] 本題考核循環(huán)控制結(jié)構(gòu)的應(yīng)用及閱讀程序的能力。[解題要點(diǎn)] a和n的值必須已知，表達(dá)式才能計(jì)算。但程序中沒(méi)有給變量n賦值的語(yǔ)句，可見(jiàn)第一個(gè)空白行應(yīng)該填寫給n賦值的語(yǔ)句。 Do循環(huán)應(yīng)該有與之對(duì)應(yīng)的終端語(yǔ)句，可見(jiàn)了第二個(gè)空白行應(yīng)填寫Do循環(huán)的終端語(yǔ)句，即While語(yǔ)句，同時(shí)要構(gòu)造出控制循環(huán)的＜條件＞。程序中有四個(gè)賦值語(yǔ)句，其中有一個(gè)計(jì)數(shù)語(yǔ)句Cout=Coat+1，可見(jiàn)控制循環(huán)次數(shù)的變量應(yīng)是Cout。