皮皮学，免费搜题
登录
搜题
【单选题】
有如下的一个函数过程：Function fn(ByVal num As Long) Dim k As Long k= 1 num = Abs(num) do while num k = k * (num Mod 10) num= num/10 Loop fn=kEnd Function 以下是一个调用该函数的事件过程，在运行该程序后，在输入对话框中输入数字123，该过程的运行结果是 ______。Private Sub Command1_Click() Dim n As Long Dim r As Long n = CLng(n) r = fn(n) Print rEnd SubA.
12
B.
6
C.
3
D.
1
手机使用
分享
复制链接
新浪微博
分享QQ
微信扫一扫
反馈参考答案：
举一反三
【简答题】动画的线条与标准
【单选题】假定有以下循环结构 Do Until 条件 循环体 Loop 则正确的描述是 ( )
A.
如果 " 条件 " 是一个为 0 的常数,则一次循环体也不执行
B.
如果 " 条件 " 是一个为 0 的常数,则至少执行一次循环体
C.
如果 " 条件 " 是一个不为 0 的常数,则至少执行一次循环体
D.
不论 " 条件 " 是否为 " 真 " ,至少要执行一次循环体
【单选题】假定有以下循环结构,则正确的描述是 。 Do Until 条件 循环体 Loop
A.
如果“条件”是一个为1的常数，则一次循环体也不执行
B.
如果“条件”是一个为1的常数，则无限次执行循环体
C.
如果“条件”是一个不为1的常数，则至少执行一次循环体
D.
不论“条件”是否为“真”，至少要执行一次循环体
【单选题】假定有以下循环结构,则正确的描述是 。 Do Until 条件 循环体 Loop
A.
如果“条件”是一个为0的常数，则一次循环体也不执行
B.
如果“条件”是一个为0的常数，则无限次执行循环体
C.
如果“条件”是一个不为0的常数，则至少执行一次循环体
D.
不论“条件”是否为“真”，至少要执行一次循环体
【单选题】使用画笔工具绘画时按住()键拖动鼠标可画出一条直线,若按住()键反复点击拖动鼠标。可自动画出首尾相连的折线
A.
shift alt
B.
ctrl shift
C.
shift shift
D.
ctrl alt
相关题目：
参考解析：
知识点：
题目纠错 0
发布
