填空题

在窗体上建立—个名称为Text1的文本框，用来接收一个整数。当form1_ Click事件发生时，将在窗体上显示输入整数的各位数字和。
Private Function fun(m As Integer) As Integer
Dim k As Integer, n As Integer
do
n = 【10】
k=k+ n
m= m\10
Loop until m = 0
fun = k
End Function
Private Sub form_ Click()
Dim n As Integer
n = Val(Text1. Text)
Print 【11】
End Sub