各位帮帮我 一到vb编程题

来源：百度知道 编辑：UC知道 时间：2024/06/21 17:20:09
求Sn=a+aa+aaa+...+aaaaaaa(n个a),其中a是一个由随机数产生的1-9(包括1,9)中的一个正数,n是一个由随机数产生的5-10(包括5,10) 中的一个数.
不行啊,没有得到效果啊,应得的结果应是象这样,例:当a=2,n=5时,Sn=2+22+222+2222+22222
谢谢两位的答案可都不对啊 可爱的小知道啊，我要的不仅是答案啊，还要如此的表达出来啊，Sn=2+22+222+2222+22222 你可以看一下下面的答案

Private Sub Form_Click()
Dim temp#
a = Int(Rnd * 9 + 1)
n = Int(Rnd * 6 + 5)

For i = 1 To n
temp = temp * 10 + a
If sn = "" Then
sn = temp
Else
sn = sn & "+" & temp
End If
Next i

Print a; n; "Sn="; sn
End Sub

Randomize
n = Int(Rnd * 6) + 5
a = Int(Rnd * 9) + 1

For s = 1 To n
k = k & a
kk = kk + Val(k)
Next s

Text1.Text = "Sn= :" & kk

ok?？？？

回：早点说明嘛，这回应对了。（已经用固定的n和a测试过了，没问题了）

怎么个不对法？比如我用你的a=2，n=5测试过了没错啊？要注意a和n是随机的！

Private Sub Form_Click()
Dim a%, n%, num$, sum$
Randomize
a = Int(Rnd * 9) + 1
n = Int(Rnd * 6) + 5
sum = Trim(Str(a))
For i = 1 To n
num = num & a
sum = sum & "+" & num
Next i
Print "a="; a, "n="; n
Print "Sn=" & sum
End Sub
'以