在窗体画一个命令按钮,然后编写如下过程:Function fun(ByVal num As Long)As LoneDim k As Longk=1num=Abs (num)Do While numk=k*(num Mod 10)num=num\10Loopfun=kEnd FunctionPrivate Sub Command1_Click()Dim n As LongDim r As Longn= InputBox (“请输入一个数”)n=CLng (n)r=fun (n)Print rEnd Sub程序运行后,单击命令按钮,在输入对话框中输入234,输出结果为【 】。

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

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,输出结果为【 】。


相关考题:

在窗体上画一个命令按钮,其名称为Commandl,然后编写如下事件过程:程序运行后,单击命令按钮,其输出结果为__________。

在窗体画一个命令按钮,然后编写如下过程,程序运行后,单击命令按钮,在输入对话框中输入234,输出结果为 ______。 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=In put Box("请输入一个数") n=CLng(n) r=Fun(n) Print r End SubA.20B.24C.9D.28

在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim num As Integer num=1 Do UntiL num>6 Print num; num=num+2.4 Loop End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是 ______。A.13.45.8B.1 3 5C.1 4 7D.无数据输出

在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private SubCommand1_Click() Dim num As Integer num=1 DO Until mum>6 Print num; num=num+2.4 Loop End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是 ______。A.1 3.4 5.8B.1 3 5C.1 4 7D.无数据输出

在窗体上画一个命令按钮,然后编写如下过程,程序运行后,单击命令按钮,在输入对话框中输入234,输出结果为 ______。 Function fun(ByVal num As Long) As Long Dim k As Long k=1 mum=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 SubA.20B.24C.9D.28

在窗体上画一个命令按钮,名称为Commandl,然后编写如下事件过程:程序运行后,如果单击命令按钮,则在窗体上显示的内容是( )。A)机床B)车床C)钻床D)轴承

在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Commandl_click() Dim num As Integer num=1 Do Until num>6 Print num; num=num+2.4 Loop End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是______。A.13.45.8B.1 3 5C.147D.无数据输出

在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Sub Command1_Click()num As Integer= 1Until num >6num;= num + 2.4Sub程序运行后,单击命令按钮,则窗体上显示的内容是( )A、1 3.4 5.8B、1 3 5C、1 4 7D、无数据输出

在窗体上画一个名称为Commandl的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() y = 8 Print fun1(1 + fun1(fun1(fun1(y)))*10) End Sub Private FLinctiOn fUnl(A)funl(A)= 1 + a End Function 程序运行后,单击命令按钮,则窗体上显示的内容是A.112B.2C.909090D.1001