在窗体上画一个命令按钮 然后编写如下程序： Function fun(ByVal num As Lo
在窗体上画一个命令按钮，然后编写如下程序： Function fun(ByVal num 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 程序运行后，单击命令按钮，在输入对话框中输入"345"，输出结果为【 】。
请帮忙给出正确答案和分析，谢谢！
参考解答
482***265
2023-07-23 00:41:25
正确答案：60
程序首先要求用户输入一个数，然后将这个数转化为长整型传递入函数fun。本题中传入的数字是345。函数fun中首先将传入的参数取绝对值，然后进入循环：第一次循环结束的时候：k=5num=34第二次循环结束的时候：k=20num=3第三次循环结束的时候：k=60num=0
相似问题
在窗体上画一个命令按钮 其名称为Command1 然后编写如下程序： Function M(x As
在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序： Function M(x As Integer, y As Integer) M=IIf(x＞y, x, y) End Function
Visual Basic中的控件分为3类 它们是标准控件 【 】和可插入对象。请帮忙给出正确答案和分
Visual Basic中的控件分为3类，它们是标准控件、【 】和可插入对象。请帮忙给出正确答案和分析，谢谢！
若有一个动态数组a有两个元素a(0)和a(1) 现要令数组a有三个元素a(0) a(1)和a(2)
若有一个动态数组a有两个元素a(0)和a(1)，现要令数组a有三个元素a(0)、a(1)和a(2)，则应当使用【 】语句。请帮忙给出正确答案和分析，谢谢！
编写一个程序把一维数组的各元素反序存放。在主过程中调用subl过程把从键盘上输入的10个元素反序存放
编写一个程序把一维数组的各元素反序存放。在主过程中调用subl过程把从键盘上输入的10个元素反序存放后再输出。根据题意，请完善下列程序。 Private Su
以下程序的功能是：求x的y次方。根据题意 请完善下列程序。 Private Function fun
以下程序的功能是：求x的y次方。根据题意，请完善下列程序。 Private Function funl(x As Double, y As Integer)As Double Dim i As Intege
