急求一个VB编好的程序-_- 帮帮忙吧

来源：百度知道 编辑：UC知道 时间：2024/05/15 06:50:59
我们考查课 所以没怎么听过
要考试了 交作业交不上....求求各位大虾门给做个 简单的就行
最好是 个 数学程序之类的
最好是与基础会计有关的 计算程序 就行了
其他的也行 只要能运行出来 不是特别EASY 就行 求求大家啦~~

Private Sub Form_click()
Dim a As Integer
Dim n As Integer
Dim f(1 To 10) As Integer
a = InputBox("请输入a值", "输入框")
n = InputBox("请输入n值", "输入框")
s = 0
x = 1
Do
m = 0
For i = 0 To x - 1
m = m + a * 10 ^ i
Next i
s = s + m
x = x + 1
If x <= n Then
Print m; "+";
Else
Print m; "=";
End If
Loop While x <= n
Print s
End Sub

计算a+aa+aaa+aaaa+…… 其中a由自己输入，项数也由自己输入。