在窗体画一个命令按钮，然后编写如下过程: Function fun(ByVal num As Long)As Lone Dim k As Long k=1 num=Abs (num) Do

admin2010-03-30 29

问题在窗体画一个命令按钮，然后编写如下过程:
Function fun(ByVal num As Long)As Lone
      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
程序运行后，单击命令按钮，在输入对话框中输入234，输出结果为【  】。

选项

答案24

解析

转载请注明原文地址:https://jikaoti.com/ti/O9q0FFFM

本试题收录于：二级VB题库NCRE全国计算机二级分类