主观

在窗体上画一个命令按钮,然后编写如下程序:

 Function fun (ByVal num As Long) As Long

   Dim k As Long

   k=1

   num=Abs(num)

   Do While num

     k=k*(num\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)

   MsgBox r

 End Sub

 程序运行后,单击命令按钮,在输入对话框中输入234,消息框显示的结果为【 】。

参考答案
您可能感兴趣的试题
¥

订单号:

遇到问题请联系在线客服

订单号:

遇到问题请联系在线客服