编写VB程序,求Sn=a+aa+aaa+…(n个a)的值,其中n是表示a的个数,a是【1,9】之间的随机正整数

题目

编写VB程序,求Sn=a+aa+aaa+…(n个a)的值,其中n是表示a的个数,a是【1,9】之间的随机正整数

答案

Private Sub Command1_Click()
Dim a%,n%,i%,Sn$
n = InputBox(请输入n的值)
Randomize
a = Int(9 * Rnd + 1)
Print Tab(30); "n=" & n," a = " & a; ""
Temp = a
Picture1.Print "Sn="; a;
For i = 1 To n - 1
Temp = Temp * 10 + a
Picture1.Print "+"; Temp;
Next
Print
End Sub
（这样比较合适吧）