作业帮 > 综合 > 作业

vb,3.求Sn=a+aa+aaa+aaaa+…+aa…aaa(n个a),

来源:学生作业帮 编辑:百度作业网作业帮 分类:综合作业 时间:2024/04/30 14:29:58
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),
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 Su