有如下程序： Function fun(ByVal aura As Integer)As Integer Dim k As Integer k=1 num=Abs(num) Do While num k=k*(num Mod 10)：n

admin2020-04-18 54

问题有如下程序：
Function fun(ByVal aura As Integer)As Integer
  Dim k As Integer k=1
  num=Abs(num)
  Do While num
k=k*(num Mod 10)：num=num＼10
  Loop
  fun=k
  End Function
  Private Sub Form_Click()
Dim n As Integer，r As Integer
  n=InputBox("请输入一个数：")：n=Int(n)：r=fun(n)：Print r
End Sub
程序运行后，单击窗体，在输入对话框中输入246，输出结果为

选项 A、120
B、48
C、24
D、60

答案B

解析在函数fun中会对传过来的参数num进行判断，如果不为0则进行循环，将各位数字乘到一起然后作为函数的返回值。

转载请注明原文地址:https://www.kaotiyun.com/show/bMTp777K

本试题收录于：二级VB题库NCRE全国计算机二级分类

二级VB

NCRE全国计算机二级

相关试题推荐

对于列表框控件List1，能够表示当前被选中列表项内容的是(　　)。
在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码：OptionBase1PrivateSubCommand1_Click()Dimaa=Array(1，2，3，4)：j=1
某个工厂有若干个仓库，每个仓库存放有不同的零件，相同零件可能放在不同的仓库中。则实体仓库和零件间的联系是
要求在程序运行时，如果按住鼠标左键不放而移动鼠标，鼠标的位置坐标同步显示在窗体右上角的标签(名称为Label1)中，如右图所示，放开鼠标左键后，停止同步显示。下面可以实现此功能的程序是(　　)。
有如下数据定义语句：DimX，YAsInteger以上语句表明(　　)。
下面程序的功能是输出100以内所有素数：PrivateSubCommand1_Click()Forn=2To100isprime=Truek=2DoWhilek
下列叙述中正确的是()。
设Label1、Command1、Text1、Check1分别为标签、命令按钮、文本框、复选框的名称，则以下属性设置语句中，运行时不会出错的是
对于计时器控件，下列叙述错误的是
某二叉树共有12个结点，其中叶子结点只有1个。则该二叉树的深度为（根结点在第1层）

随机试题

无正当理由连续_______以上未在所承租的廉租住房居住的，享受实物配租的家庭应当按合同约定退回廉租住房。()
在PowerPoint2010中，可以用拖动方法改变幻灯片顺序的视图模式是()
年年岁岁花相似，________。(刘希夷《代悲白头翁》)
下述关于梗死记述中，哪一项是错误的
背景资料：某公路隧道长2800m，穿越的岩层主要由泥岩和砂岩组成，设计采用新奥法施工，分部法开挖，复合式衬砌，洞口段由于洞顶覆盖层较薄，岩隙发育。开挖中地表水从岩石裂隙中渗入洞内，施工单位严格按照新奥法施工的程序进行施工，并对喷锚混凝土的质量进行
医生查房工作的步骤有（）。
LongbeforeManlivedontheEarth,therewerefishes,reptiles,birds,insects,andsomemammals.Althoughsomeoftheseanimal
如果一个菜单项的Enabled属性被设置为False，则程序运行时，该菜单项
火山虽然经常给人类带来巨大的灾害，但它也并非一无是处。火山资源的利用也可以带给我们生活的乐趣与便利。一般来说，火山资源主要体现在它的旅游价值、地热利用和火山岩材料方面。火山和地热是一对孪生兄弟，有火山的地方一般就有地热资源。地热能是一种廉价的新能
Inadditiontoconventionalgalaxies,theuniversecontainsverydimgalaxiesthatuntilrecentlywentunnoticedbyastronomers.

最新回复(0)

有如下程序： Function fun(ByVal aura As Integer)As Integer Dim k As Integer k=1 num=Abs(num) Do While num k=k*(num Mod 10)：n

二级VB

NCRE全国计算机二级

对于列表框控件List1，能够表示当前被选中列表项内容的是( )。

在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码：OptionBase1PrivateSubCommand1_Click()Dimaa=Array(1，2，3，4)：j=1

某个工厂有若干个仓库，每个仓库存放有不同的零件，相同零件可能放在不同的仓库中。则实体仓库和零件间的联系是

要求在程序运行时，如果按住鼠标左键不放而移动鼠标，鼠标的位置坐标同步显示在窗体右上角的标签(名称为Label1)中，如右图所示，放开鼠标左键后，停止同步显示。下面可以实现此功能的程序是( )。

有如下数据定义语句：DimX，YAsInteger以上语句表明( )。

下面程序的功能是输出100以内所有素数：PrivateSubCommand1_Click()Forn=2To100isprime=Truek=2DoWhilek

下列叙述中正确的是()。

设Label1、Command1、Text1、Check1分别为标签、命令按钮、文本框、复选框的名称，则以下属性设置语句中，运行时不会出错的是

对于计时器控件，下列叙述错误的是

某二叉树共有12个结点，其中叶子结点只有1个。则该二叉树的深度为（根结点在第1层）

无正当理由连续_______以上未在所承租的廉租住房居住的，享受实物配租的家庭应当按合同约定退回廉租住房。()

在PowerPoint2010中，可以用拖动方法改变幻灯片顺序的视图模式是()

年年岁岁花相似，________。(刘希夷《代悲白头翁》)

下述关于梗死记述中，哪一项是错误的

医生查房工作的步骤有（）。

LongbeforeManlivedontheEarth,therewerefishes,reptiles,birds,insects,andsomemammals.Althoughsomeoftheseanimal

如果一个菜单项的Enabled属性被设置为False，则程序运行时，该菜单项

Inadditiontoconventionalgalaxies,theuniversecontainsverydimgalaxiesthatuntilrecentlywentunnoticedbyastronomers.

对于列表框控件List1，能够表示当前被选中列表项内容的是(　　)。

要求在程序运行时，如果按住鼠标左键不放而移动鼠标，鼠标的位置坐标同步显示在窗体右上角的标签(名称为Label1)中，如右图所示，放开鼠标左键后，停止同步显示。下面可以实现此功能的程序是(　　)。

有如下数据定义语句：DimX，YAsInteger以上语句表明(　　)。