主观

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

Function fun (By Val 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 Command l-Click {)

Dim n As Long

Dim r As Long

n=Input Box (“请输入一个数”)

n=CLng (n)

r=fun (n)

Ms g Boxr

End Sub

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

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

订单号:

遇到问题请联系在线客服

订单号:

遇到问题请联系在线客服