[填空题] 在窗体上建立—个名称为Text1的文本框，用来接收一个整数。当form1_ Click事件发生时，将在窗体上显示输入整数的各位数字和。Private

[填空题] 在窗体上建立—个名称为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= m10

Loop until m = 0

fun = k

End Function

Private Sub form_ Click()

Dim n As Integer

n = Val(Text1. Text)

Print 【11】

End Sub

[10] m Mod 10[11]fun(n)

本题Fun函数的功能是求得形参m的各位数字的和，并作为函数值返回。在该函数中通过一个do... Loop循环把参数m的各位数字分离出来，加到和k中。不难得到[10]处应填“m Mod 10”。当在窗体上单击时，将调用函数Fun求得Text1中输入整数的各位数字和，因此[11]处应填“fun(n)”。