vb,3.求Sn=a+aa+aaa+aaaa+…+aa…aaa(n个a),
来源:学生作业帮 编辑:灵鹊做题网作业帮 分类:综合作业 时间:2024/05/03 02:03: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.
其中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.
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
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
vb,3.求Sn=a+aa+aaa+aaaa+…+aa…aaa(n个a),
VB求助:求Sn=a+aa+aaa+aaaa+…+aa…aaa(n个a),
求Sn=a+aa+aaa+aaaa+.
求Sn=a+aa+aaa+aaaa+aaaaaa……a的和
求Sn=a+aa+aaa+aaaa……,其中a是一个数字,n由键盘输入.
1、编写程序,求 Sn=a+aa+aaa+...+aaaa...aaa(n个a)的值,其中a是一个数字,例如,a=2,n
C语言编写:求Sn=a+aa+aaa+…+aa…a n个a之值
编写程序,求 Sn=a+aa+aaa+...+aaaa...aaa(n个a)的值,其中a是一个数字,
求Sn = a+aa+aaa+aaaa+…+aa…a的值(最后一项共有n个a),其中a为[0,9]内的一位数,a和n由键
a+aa+aaa+aaaa+……+aaaaaa……aaaa
A AA AAA AAAA含义?
求和值--C语言求和值Description求和值Sn=a+aa+aaa+……+aaaa…aa(n位)如n=5,a=3,