在窗体上建立—个名称为Text1的文本框 用来接收一个整数。当form1_ Click事件发生时 将
在窗体上建立—个名称为Text1的文本框，用来接收一个整数。当form1_ Click事件发生时，将在窗体上显示输入整数的各位数字和。 Private Function fun(m As Integer) As Integer Dim k As Integer, n As Integer do n =【 】 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【 】 End Sub
请帮忙给出正确答案和分析，谢谢！
参考解答
410***265
2023-07-22 16:31:56
正确答案：m Mod 10fun(n)
本题Fun函数的功能是求得形参m的各位数字的和，并作为函数值返回。在该函数中通过一个do...Loop循环把参数m的各位数字分离出来，加到和k中。不难得到[10处应填“mMod10”。当在窗体上单击时，将调用函数Fun求得Text1中输入整数的各位数字和，因此[11处应填“fun(n)”。
相似问题
如图16-10所示．在列表框List1中已经有若干人的简单信息 运行时在Text1文本框(即“查找对
如图16-10所示．在列表框List1中已经有若干人的简单信息，运行时在Text1文本框(即“查找对象”右边的文本框)输入一个姓或姓名，单击“查找”按钮，则在列
下图中 图1 图2是应用程序的部分界面。运行程序首先出现图1的对话框 要求用户输入口令 输入完毕后单
下图中，图1、图2是应用程序的部分界面。运行程序首先出现图1的对话框，要求用户输入口令，输入完毕后单击“确定”按钮。如果输入的口令正确，则显示图2
设有如下记录类型： Type student Number As String*10 Name As
设有如下记录类型： Type student Number As String*10 Name As String*8 End Type 窗体中有若干控件，单击其中的一个按钮Command1时，执行如
以下程序计算自然数e的值 要求精确到1015 阅读下列程序。已知e的计算公式为：e=1+1/1!+1
以下程序计算自然数e的值，要求精确到1015，阅读下列程序。已知e的计算公式为：e=1+1 1!+1 2! + …+1 n!。请在【 】和【 】处填上正确内容。 Privat
下列程序实现的功能是：当在窗体上单击时 将输出a1．txt 文件中的数字字符的个数。 Private
下列程序实现的功能是：当在窗体上单击时，将输出a1．txt 文件中的数字字符的个数。 Private Sub form_ Click() Dim Ch As String * 1 Dim
