VB的FOR循环问题

Dim i As Integer
Dim a As Integer
Dim n As Integer
Dim sum As Integer
Dim s As Integer
a = 2
n = 5
sum = 0
s = 0
For i = 1 To n
sum = sum + 2 * 10 ^ (i - 1) '获得每一个数
s = s + sum '把n个数加起来
Next
Print s

====================================
'根据观察，总和可以看成有1个20000、2个2000…5个2组成

Dim i As Integer
Dim a As Integer
Dim n As Integer
Dim s As Integer
a = 2
n = 5
s = 0
For i = 1 To n
s = s + 2 * 10 ^ (i - 1) * (n - i + 1)
Next
Print s

=================================

你要那么多答案干什么，都蛮好看懂的啊，我给你简单注释一下吧

dim a as string
dim n as integer
dim k as string
dim s as integer
a="2"
n=5
s=0
for i as integer =1 to n
for j as integer=1 to i
k=k & a
next
s=s+cint(k)
next

或者 下边的容易，易理解
dim b as integer
dim a as