Question

用BASIC或VB编写一个简单程序

S=a+aa+...+aaaa...a(最后一项有n个a)。如a=3,n=4,则S=3+33+333+3333,其中a和n由用户输入。

Answer 1

Private Sub Form_Click()
Dim a, n As Integer
Dim i As Integer
Dim curn As Long
Dim S As Long

a = InputBox("请输入你要循环相加的数字", "提示")
n = InputBox("请输入你想要相加的个数", " 提示")
S = 0
curn = 0
For i = 1 To n
curn = CLng(String(i, a))
S = S + curn
Next
Me.Print S
End Sub

Answer 2

Dim a, n, s, i
a = InputBox("请输入 A 值", "提示")
n = InputBox("请输入 N 值", " 提示")
For i = 1 To n
s = s + a ^ i
Next i
MsgBox "答案为:" & s,,"结果"

不知道这个是不是你要的。