vb,3.求Sn=a+aa+aaa+aaaa+…+aa…aaa(n个a),其中a是一个由随机数产生的1~9(包括1、9)中的一个正整数,n是一个由随机数产生的4~9(包括4、9)中的一个正整数,产生随机数需使用Randomize语句.例如,
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/28 06:16:10
![vb,3.求Sn=a+aa+aaa+aaaa+…+aa…aaa(n个a),其中a是一个由随机数产生的1~9(包括1、9)中的一个正整数,n是一个由随机数产生的4~9(包括4、9)中的一个正整数,产生随机数需使用Randomize语句.例如,](/uploads/image/z/2994698-2-8.jpg?t=vb%2C3.%E6%B1%82Sn%3Da%2Baa%2Baaa%2Baaaa%2B%E2%80%A6%2Baa%E2%80%A6aaa%28n%E4%B8%AAa%29%2C%E5%85%B6%E4%B8%ADa%E6%98%AF%E4%B8%80%E4%B8%AA%E7%94%B1%E9%9A%8F%E6%9C%BA%E6%95%B0%E4%BA%A7%E7%94%9F%E7%9A%841%EF%BD%9E9%EF%BC%88%E5%8C%85%E6%8B%AC1%E3%80%819%EF%BC%89%E4%B8%AD%E7%9A%84%E4%B8%80%E4%B8%AA%E6%AD%A3%E6%95%B4%E6%95%B0%2Cn%E6%98%AF%E4%B8%80%E4%B8%AA%E7%94%B1%E9%9A%8F%E6%9C%BA%E6%95%B0%E4%BA%A7%E7%94%9F%E7%9A%844%EF%BD%9E9%EF%BC%88%E5%8C%85%E6%8B%AC4%E3%80%819%EF%BC%89%E4%B8%AD%E7%9A%84%E4%B8%80%E4%B8%AA%E6%AD%A3%E6%95%B4%E6%95%B0%2C%E4%BA%A7%E7%94%9F%E9%9A%8F%E6%9C%BA%E6%95%B0%E9%9C%80%E4%BD%BF%E7%94%A8Randomize%E8%AF%AD%E5%8F%A5.%E4%BE%8B%E5%A6%82%2C)
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