在窗体画一个命令按钮，然后编写如下过程: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
题目
在窗体画一个命令按钮，然后编写如下过程:
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，输出结果为【 】。
相似考题
更多“在窗体画一个命令按钮,然后编写如下过程: Function fun(ByVal num As Long)As LoneDim k As Long ”相关问题
-
第1题：
在窗体上画一个命令按钮，然后编写如下过程，程序运行后，单击命令按钮，在输入对话框中输入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 Sub
A．20
B．24
C．9
D．28
正确答案：B
解析：此程序的功能是对输入的整数在fun函数巾求出其每位数字的积，循环结构的作用是对传来的数据进行位数的分解，分别得到个位、十位、百位等的数字，再将其累乘到变量k中，并把k的值作为函数的返回值，因此234的3位数字相乘的结果是24。 -
第2题：
在窗体上画一个名称为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.8
B．1 3 5
C．147
D．无数据输出
正确答案：B
解析：DoUntil…Loop循环采用的是先判断循环条件后执行循环体的做法。而用Until关键字表示当循环条件为False时执行循环体，直到条件为True时终止循环。代码中，Rum是整型数据，循环体共被执行3次。循环体第三次被执行后，num的值为7，故循环终止。 -
第3题：
在窗体上画一个名称为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．112
B．2
C．909090
D．1001
正确答案：A
解析：此题目主要是多次循环调用函数funl，处理过程如下：fun1(1+fun1(fun1(fun1(8)))*10=fun1(1+fun1(fun1(9))*10)=fiat(1+fun1(10)*10)=fun1(1+11*10)，fun1(111)=112。逐层计算即可返回正确结果。 -
第4题：
在窗体上画一个命令按钮，名称为Commandl，然后编写如下事件过程：
程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。
A)机床
B)车床
C)钻床
D)轴承
正确答案：C
本题考查VBA中数组的知识。数组变量由变量名和数组下标构成，我们通常使用Dim语句来定义数组，其中下标下限缺省为0。本题中的af2)就是数组的第三个元素即“钻床”。 -
第5题：
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
Sub Command1_Click()
num As Integer
= 1
Until num >6
num;
= num + 2.4
Sub
程序运行后,单击命令按钮,则窗体上显示的内容是( )
A、1 3.4 5.8
B、1 3 5
C、1 4 7
D、无数据输出
正确答案：A