UC知道请帮忙做VB题
来源：百度知道 编辑：UC知道 时间：2024/06/30 21:48:18
求Sn=a+aa+aaa+aaaa+......+aa....aaa(n个a），其中a是一个由随机数产生的1——9（包括1，9）中的一个正整数，n是一个由随机数产生的5--10（包括5，10）中的一个数。列如，当a=2,n=5时，Sn=2+22+222+2222+22222. 提示：该题的关键是通项T是一个不断在原有基础上增加1位的过程，通项关系式为：Ti+1=Ti*10+a(需代码完整）
Private Sub Command1_Click()
Dim n As Integer, a As Integer, s As Double, b As Double, i As Integer
Randomize
a = Int(9 * Rnd() + 1)
Randomize
n = Int(6 * Rnd() + 5)
b = a
For i = 2 To n
s = s + b
b = b * 10 + a
Next
Print "a=" & a, "n=" & n, "S=" & s
End Sub
Private Sub cmd1_Click()
dim T(200) as integer '可以再大些
dim s,a,b ,n as integer
dim i as integer
a=Int((9 - 1 + 1) * Rnd + 1)
n=Int((10 - 5 + 1) * Rnd + 5)
for i =0 to n
T（i+1）=T(i)*10+a
s=s + T（i+1）
next i
end sub
Private Sub Command1_Click()
Dim sn As Double, a As Long, n As Long, i As Long, j As Long, t As Double
Randomize
a = Int(9 * Rnd + 1)
Randomize
n = Int((10 - 5 + 1) * Rnd + 5)
sn = 0
For i = 1 To n
t = 0
For j = 1 To i
t = t + 10 ^ (j - 1)
Next
sn = sn + t * a
Next
Print &q