2. 计算机
  3. 在窗体上画一个命令按钮，然后编写如下程序： Function funl(ByVal Bum As Long)As Long Dim k As Long k = 0 Bum=Abs(Bum) Do Whi

在窗体上画一个命令按钮，然后编写如下程序： Function funl(ByVal Bum As Long)As Long Dim k As Long k = 0 Bum=Abs(Bum) Do Whi

admin2013-04-11  61
问题 在窗体上画一个命令按钮，然后编写如下程序：    Function funl(ByVal Bum As Long)As Long       Dim k As Long       k = 0       Bum=Abs(Bum)       Do While Bum          k=k+(Bum Mod 10)          Bum=Bum\10       Loop       fun1=k    End Function    Private Sub Command1_Click()       Dim n As Long       n=InputBox("请输入一个数")       Print fun1(n)    End Sub    程序运行后，单击命令按钮，在对话框中输入234，输出的结果为
选项 A、3
B、4
C、9
D、10
答案4
解析 变量n接受234值后，通过调用函数过程fun1，实参与形参结合后传送给形参变量 Bum。在函数的计算过程中，Bum的值234从个位至百位数被分解得4、3、2，然后计算4+3+2=9，其结果给变量k，函数过程运行结束后再由k赋值给函数过程名funl，最后打印结果为9。
转载请注明原文地址:https://kaotiyun.com/show/YzQp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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