下列程序计算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的值：")　　　 【 】　 　　　Do　　　　Tn=Tn * 10 + a　　　　Sn二Sn + Tn　　　　Cout=Cout+1　　　 【 】　　　　Debug．Print a，n，Sn　　End Sub

煤矿发生事故后，()煤矿事故调查工作，拒绝接受调查取证、提供有关情况和资料的，由煤矿安全监察机构给予警告，可以并处3万元以上15万元以下的罚款。

A．不积极开展

B．阻碍、干涉

C．逃避

D．掩盖