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