vb怎样编程计算S=1+22+333+444+···+N···N。其中N＜＝9

这个才是巧妙又正确的，嘻嘻：

Private Sub Command1_Click()
N = Val(InputBox("请输入不大于9的自然数N：","计算" , 0))

s = 0
For i = 1 To N
a = Trim(Str(i))
s = s + Val(String(i, a))
Next
Print s

End Sub

另外，给个常规的程序，也是正确的：
Private Sub Command1_Click()
Dim N As Integer, S As Double, x As Double, y As Double
Dim i As Integer, j As Integer

N = Val(InputBox("请输入不大于9的自然数N：", "计算", 0))

S = 0
For i = 1 To N
x = 1
y = 1
For j = 1 To i - 1
x = x * 10
y = y + x
Next j
S = S + i * y
Next i
Print S

End Sub

恩恩~，是个循环的问题，作为新手的我就把阁下这道题当作练习题，这里用到了4个函数，和一个while(当）循环

Private Sub Command1_Click()
Dim N As Integer, s As Long '声明变量N作为项数，s作为N项累加后的最终结果
N = 0 '初始化N为0
While N < 9 '当N小于9的时候才执行以下操作
N = N + 1
s = s + Val(String(N, Trim(Str(N)))) '这里用了4个函数来表示第N项的N的值<