主观

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

 Function fun(By Val num As Long) AS Long

 Dim k As Long

 k=1

 num=Abs(num)

 Do While num

 k=k*(hum\10)

 num=num\10

 Loop

 fun=k

 End Function

 Private Sub Commandl_Click()

 Dim n As Long

 Dim r As Long

 n=InputBox("请输入一个数")

 n=CLng(n)

 r=fun(n)

 MsgBox r

 End Sub

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

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

订单号:

遇到问题请联系在线客服

订单号:

遇到问题请联系在线客服