Question

s=2+22+222+...+222222 用vb表示

Answer 1

Private Sub Command1_Click()
Dim sum, i, t, s
i = 1
t = 1
Do
s = t * 2
sum = sum + s
Print s
t = t * 10 + 1
i = i + 1
Loop Until i > 6
Print sum
End Sub

Answer 2

不就是你写的那样差不多啊？
s=2+22+222+2222+22222+222222

Answer 3

Private Sub Form_Click()
Dim s, n, i, sum
s = "2": n = 6
For i = 1 To n
sum = sum + Val(String(i, s))
Next
Print sum
End Sub

追问

sum = sum + Val(String(i, s)) 这是什么意思