[填空題] 下列程序計算Sn的值。Sn=a+aa+aaa+…+aaa…a，其中最后一項為n個。 例如：a=5，n=4時，則Sn=5+55+555+5555。請
2021-07-20
[填空題] 下列程序計算Sn的值。Sn=a+aa+aaa+…+aaa…a，其中最后一項為n個。
例如：a=5，n=4時，則Sn=5+55+555+5555。請在空白處填入適當的內容，將程序補充完整。
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的值：")
n=InputBox("請輸入n的值!")
Do
Tn=Tn*10+a
Sn=Sn+Tn
Cout=Cout+1
______
Debug Print a，n，Sn
End Sub
正確答案：Loop While Cout＜=n或Loop Until Cout=n+1
參考解析：a和n的值必須已知，表達式才能計算。但程序中沒有給變量n賦值的語句，可見第一個空白行應該填寫給n賦值的語句。 Do循環(huán)應該有與之相對應的終端語句，可見第二個空白行應填寫Do循環(huán)的終端語句，即While語句，同時要構造出控制循環(huán)的。程序中有四個賦值語句，其中有一個計數語句Cout=Cout+1，可見控制循環(huán)次數的變量應是Cout。
詞條內容僅供參考，如果您需要解決具體問題
（尤其在法律、醫(yī)學等領域），建議您咨詢相關領域專業(yè)人士。