![[填空题] 下列程序计算Sn的值。Sn=a+aa+aaa+…+aaa…a，其中最后一项为n个。 例如：a=5，n=4时，则Sn=5+55+555+5555。请在空白处填入适当的内容，将程序补充完整。,第1张](/aiimages/%5B%E5%A1%AB%E7%A9%BA%E9%A2%98%5D+%E4%B8%8B%E5%88%97%E7%A8%8B%E5%BA%8F%E8%AE%A1%E7%AE%97Sn%E7%9A%84%E5%80%BC%E3%80%82Sn%3Da%2Baa%2Baaa%2B%E2%80%A6%2Baaa%E2%80%A6a%EF%BC%8C%E5%85%B6%E4%B8%AD%E6%9C%80%E5%90%8E%E4%B8%80%E9%A1%B9%E4%B8%BAn%E4%B8%AA%E3%80%82+%E4%BE%8B%E5%A6%82%EF%BC%9Aa%3D5%EF%BC%8Cn%3D4%E6%97%B6%EF%BC%8C%E5%88%99Sn%3D5%2B55%2B555%2B5555%E3%80%82%E8%AF%B7%E5%9C%A8%E7%A9%BA%E7%99%BD%E5%A4%84%E5%A1%AB%E5%85%A5%E9%80%82%E5%BD%93%E7%9A%84%E5%86%85%E5%AE%B9%EF%BC%8C%E5%B0%86%E7%A8%8B%E5%BA%8F%E8%A1%A5%E5%85%85%E5%AE%8C%E6%95%B4%E3%80%82.png "[填空题] 下列程序计算Sn的值。Sn=a+aa+aaa+…+aaa…a，其中最后一项为n个。 例如：a=5，n=4时，则Sn=5+55+555+5555。请在空白处填入适当的内容，将程序补充完整。,第1张")
[填空题] 下列程序计算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的值:")
(10)
Do
Tn=Tn*10+a
Sn=Sn+Tn
Cout=Cout+1
(11)
Debug.Print a,n,Sn
End Sub
n=InputBox("请输入n的值!")
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）