题目内容

下列程序计算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

查看答案

搜索结果不匹配？点我反馈

更多问题

下面账户中借方表示减少的账户是______。

A. 资产类账
B. 成本类账户
C. 费用支出类账户
D. 所有者权益类账户

下列程序运行后的输出结果是______。 Private Sub f(k,s) s=1 For j=1 To k S=S*j Next End Sub Private Sub Command1_Click() Sum=0 For i=1 To 3 Call f(i,s) Sum=Sum+s Next Print Sum End Sub

原始凭证有错误的，应当由出具单位重开或更正的原始凭证在更正处应当______。

A. 加盖单位负责人印章
B. 加盖单位会计印章
C. 加盖单位财务主管印章
D. 加盖出具单位印章

某合伙企业与某集体企业之间的纠纷早已超过诉讼时效期间，该合伙企业在得知该情况后，主动向该集体企业履行债务，该集体企业无权接受其清偿。( )

A. 对
B. 错