Private Sub From_Click( )
Dim a$(1 to 9),i%,s%
For i=1 to 9
a(i)=(str(i)&i)/i
Next i
S=0
For i=9 to 1 Step-2
s=s+a(i)*i
Next i
Print s
End Sub
为什么输出结果是275？
我猜你不知道(str(i)&i)/i到底是在干啥
str(i)将i转换为字符串
str(i)&i，将两个字符串拼接，如果i是1，那么它是11，如果i是2，那么是22，类推
再除以i，那么11/1=11,22/2=11,...99/9=11，所以数组a里面存的其实就是9个11
后面的循环，i从9到1，step是-2，那么其实就是9,7,5,3,1
s=11*9+11*7+11*5+11*3+11*1