设变量K是一个三位整数，写出求各位数字之和的VB表达式为

我给你做个任何位数的吧！代码如下：
Private Sub Command1_Click()
Dim i$, j() As Integer, l%, y&
i = InputBox("请输入一个整数！")
x = Len(i)
ReDim j(1 To x)
For l = 1 To x
j(l) = Mid(i, l, 1)
y = y + j(l)
Next l
MsgBox "你刚才输入的数据是一个：" & x & " 位数，它是：" & i & "；把这个数据分解后各个数字的和值是：" & y, 64, "求数据分解后各个数字的和值！"
End Sub

dim k as integer
k = 234
msgbox int(k/100) + int(k/10)-10*int(k/100) + k mod 100