·谁给一个用VB编写的最小程序源码

Private Sub Command1_Click()
Dim a As Integer, n As Integer, s As Single, m(1 To 20) As Single
'以上定义四个变量，其中a，n为整型，s为实型，m为容量为20的一维实型数组
a = InputBox("请输入a值", "输入框") '输入数字a，代表每项由哪个数字组成
n = InputBox("请输入n值", "输入框") '输入运算的项数
s = 0 '预设各项和=0
m(1) = a '第一项为a
For i = 2 To n
m(i) = m(i - 1) * 10 + a '计算各项值
Next
For i = 1 To n - 1
s = s + m(i) '计算1至n-1项之和
Print m(i); "+"; '输出各项
Next
s = s + m(n) '再加上最后一项，之所以先前没加是出于格式上的考虑
Print m(n); "="; s '输出最后一项
End Sub