2. 计算机
  3. 先在 窗体上添加一个命令按纽，然后编写如下程序： Function fun(ByVal nm As Long)As Long Dim k As Long k=1 num=Abs(

先在 窗体上添加一个命令按纽，然后编写如下程序： Function fun(ByVal nm As Long)As Long Dim k As Long k=1 num=Abs(

admin2010-03-30  25
问题 先在 窗体上添加一个命令按纽，然后编写如下程序：    Function fun(ByVal nm As Long)As Long             Dim k As Long             k=1             num=Abs(num)             Do While num                   k=k*(num Mod 10)                   num=num\10             Loop             fun=k    End Function        Private Sub Command1_Click()                Dim n As Long                Dim r As Long                n=InputBox(“请输入一个数”)                n=CLng(n)                r=fun(n)                Print r    End Sub    则在程序运行后，单击命令按纽，在对话框中输入“100”，输出结果是______。
选项 A、 0
B、100
C、200
D、300
答案1
解析
转载请注明原文地址:https://kaotiyun.com/show/Gzmp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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