A-A+

在窗体上建立—个名称为Text1的文本框用来接收一个整数。当form1_ Click事件发

2022-08-12 20:08:08 问答库阅读 197 次

问题详情

在窗体上建立—个名称为Text1的文本框，用来接收一个整数。当form1_ Click事件发生时，将在窗体上显示输入整数的各位数字和。 Private Function fun(m As Integer) As Integer Dim k As Integer, n As Integer do n =【】 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【】 End Sub

请帮忙给出正确答案和分析，谢谢！

参考答案

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