作业帮vb,3.求Sn=a+aa+aaa+aaaa+…+aa…aaa(n个a),其中a是一个由随机数产生的1～9（包括1、9）中的一个正整数,n是一个由随机数产生的4～9（包括4、9）中的一个正整数,产生随机数需使用Randomize语句.例如,
来源：学生作业帮助网 编辑：作业帮 时间：2024/11/09 09:31:49
vb,3.求Sn=a+aa+aaa+aaaa+…+aa…aaa(n个a),其中a是一个由随机数产生的1～9（包括1、9）中的一个正整数,n是一个由随机数产生的4～9（包括4、9）中的一个正整数,产生随机数需使用Randomize语句.例如,
vb,3.求Sn=a+aa+aaa+aaaa+…+aa…aaa(n个a),
其中a是一个由随机数产生的1～9（包括1、9）中的一个正整数,n是一个由随机数产生的4～9（包括4、9）中的一个正整数,产生随机数需使用Randomize语句.例如,当a=2,n=5时,Sn=2+22+222+2222+22222.要求：单击窗体时,在窗体上逐个显示S的结果,效果如图4-3所示.所有控件字体默认、大小为小四,窗体宽度设置为9000Twip.
vb,3.求Sn=a+aa+aaa+aaaa+…+aa…aaa(n个a),其中a是一个由随机数产生的1～9（包括1、9）中的一个正整数,n是一个由随机数产生的4～9（包括4、9）中的一个正整数,产生随机数需使用Randomize语句.例如,
Private Sub Form_Click()
Dim a As Integer
Dim n As Integer
Dim s As String
s = ""
Randomize
a = Int(Rnd() * 9) + 1
n = Int(Rnd() * 6) + 4
For i = 1 To n
s = s + String(i,CStr(a))
If i n Then s = s + "+"
Next
Print "当a=" & a & "时,n=" & n & "时,S=" & s
End Sub
Private Sub Form_Load()
Me.Width = 9000
Me.FontSize = 12
End Sub