首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有如下程序: Function fun(ByVal hum As Integer)As Integer Dim k As Integer k=1 num=Abs(num) Do While num
有如下程序: Function fun(ByVal hum As Integer)As Integer Dim k As Integer k=1 num=Abs(num) Do While num
admin
2020-01-02
72
问题
有如下程序:
Function fun(ByVal hum 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://kaotiyun.com/show/KhTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下叙述中错误的是
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画1个名称为Cbol的组合框,组合框的列表项分别是:北京、天津、上海。请设置组合框的参数,使其外观如图3—6所示。窗体的标题是“用组合框
下面程序计算并输出的是()。PrivateSubCommand1_Click()Num=10:Sum=0DoSum=Sum+Num*Num*NumNum=Num-1LoopUnti1N
窗体上有两个名称分别为Text1、Text2的文本框,一个名称为Command1的命令按钮。设有如下的类型声明:TypePersonnameAsString*8majorAsString*20EndTyp
下面4个选项中,不是窗体属性的是()。
结构化程序设计的3种结构是()。
某人编写如下函数来判断a是否为素数,若是,则函数返回True;否则返回False。Functionprime(aAsInteger)AsBooleanDimkAsInteger,isprimeAsBoolean
己知A$="Welcome",下列语句操作能够正确执行的是()。
下列数组定义中错误的是()。
设A、B、C是三角形的3条边,则以下表示“任意两边之和大于第三边”的布尔表达式是()。
随机试题
Word2010提供了多种字体特效,其中还有轮廓、阴影、________、发光四种具体设置供用户精确设计字体特效,可以让用户制作更加具有特色的文档。
依据《执业药师资格制度暂行规定》,执业药师继续教育实行
下列选项中,属于证券登记结算公司法定职能的有()。I.证券账户、结算账户的设立和管理Ⅱ.证券的存管和过户Ⅲ.证券持有人名册登记及权益登记Ⅳ.证券交易所上市证券交易的清算、交收及相关管理
某农机厂2009年2月发生下列业务:(1)购入农机专用零件一批,取得防伪税控增值税专用发票,注明不含税价款100000元;(2)向小规模纳税人购入电吹风200个,取得税务机关代开的增值税发票一张,注明价款4000元,增值税240元;(3)将100个电
下列关于苗族民俗文化的表述,错误的是()。
“君子欲化民成俗,其必由学乎”和“古之王者,建国君民,教学为先”体现了()的教育目的观。
Cisco路由器执行showaccess-list的命令显示如下一组信息StandardIPaccesslistblockdeny10.0.0.0,wildcardbits0.255.255.255logdeny172
软件的调试方法主要有:强行排错法、【】和原因排除法。
Alllivingthingsneedairtolive.Peopleneedcleanairtobreathe.Butsometimespeoplemaketheairdirty.Theydrivesoman
FrictionbetweenAmerica’smilitaryanditscivilianoverseersisnothingnew.America’s220-yearexperimentinciviliancontrol
最新回复
(
0
)