2. 计算机
  3. 在窗体上建立—个名称为Text1的文本框，用来接收一个整数。当form1_ Click事件发生时，将在窗体上显示输入整数的各位数字和。 Private Function fun(m As Integer) As Integer Dim k As Inte

在窗体上建立—个名称为Text1的文本框，用来接收一个整数。当form1_ Click事件发生时，将在窗体上显示输入整数的各位数字和。 Private Function fun(m As Integer) As Integer Dim k As Inte

admin2010-09-11  49
问题 在窗体上建立—个名称为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
选项
答案m Mod 10,fun(n)
解析 本题Fun函数的功能是求得形参m的各位数字的和，并作为函数值返回。在该函数中通过一个do... Loop循环把参数m的各位数字分离出来，加到和k中。不难得到[10]处应填“m Mod 10”。当在窗体上单击时，将调用函数Fun求得Text1中输入整数的各位数字和，因此[11]处应填“fun(n)”。
转载请注明原文地址:https://jikaoti.com/ti/Dcg0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)