首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
下面程序的功能是找出这样一个三位整数:它等于每位数字的阶乘之和,例如145就是这样的数(即145 = 1!+ 4!+ 5!) Private Sub Command1_Click() Dim x As Integer, i As Integer,
下面程序的功能是找出这样一个三位整数:它等于每位数字的阶乘之和,例如145就是这样的数(即145 = 1!+ 4!+ 5!) Private Sub Command1_Click() Dim x As Integer, i As Integer,
admin
2020-06-30
52
问题
下面程序的功能是找出这样一个三位整数:它等于每位数字的阶乘之和,例如145就是这样的数(即145 = 1!+ 4!+ 5!)
Private Sub Command1_Click()
Dim x As Integer, i As Integer, j As Integer, k As Integer
For i = 1 To 9
For j = 0 To 9
For k = 0 To 9
a = ___________________
If a = fact(i) + fact(j) + fact(k) Then
Print a
End If
Next k
Next j
Next i
End Sub
Function fact(n As Integer) As Long
Dim x As Long
x = 1
For k = 1 To n
x = x * k
Next k
fact = x
End Function
程序不完整,在横线上应填写的是
选项
A、i * 100 + j * 10 + k
B、i * 1000 + j * 100 + k * 10
C、i * 10 + j * 10 + k * 10
D、fact(0) + fact(1) + fact(9)
答案
A
解析
本题中fact()过程表示求得n的阶乘,即n!;程序中,i、j、k分别表示该整数的百、十、个位上的数,旨在使得100 * i + 10 * j + k = i!+ j!+ k!。故正确答案为选项A。
转载请注明原文地址:https://kaotiyun.com/show/r6Hp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名称为Command1的命令按钮,一个名称为Label1的标签,然后编写如下事件过程:PrivateSubCommand1_Click() s=0 Fori=1To15 x=2*i-1 IfxMod
设有如下通用过程:PublicFunctionf(xAsInteger) DimyAsInteger x=20 y=2 f=x*yEndFunction在窗体上画一个命令按钮,其名称为Command1,然后编写如下
下面程序运行时,若输入395,则输出结果是()。PrivateSubCmdl_Click()Dima%a=InputBox("请输入一个3位整数")PrintaMod10,a\100,(aMod100)\10E
下面不是键盘事件的是( )。
窗体上有一个名称为Combo1的组合框,为了引用Combo1中最后一个列表项,应使用的表达式是
下列过程定义语句中,形参数量可变的是()。
产生100以内(不含100)2位随机整数的VisualBasic表达式是
用树形结构表示实体之间联系的模型是
如果列表框List1中有一个项目被用户选定,则执行Debug.PrintList1.Selected(List1.ListIndex)语句后的输出结果是
随机试题
利润表项目一般按照相关科目的发生额填列,但例外的是
正常升主动脉的横径为3~4cm,约为降主动脉的
小儿头皮静脉穿刺如果误入动脉,局部可表现为
背景资料:A公司中标某热力管道工程,局部采用暗挖施工。暗挖长度426m。断面尺寸为3.8m×3.2m,埋深3.3m。隧道穿越地层为砂土层,局部为砂卵石。地下水位在地表下8m。A公司将暗挖隧道开挖、支护工程分包给B专业公司。B公司进场后,编制了施工方案,报
未经授权擅自进出口实行国营贸易管理的货物的,国务院对外贸易主管部门或者国务院其他有关部门可以处5万元以下罚款。
对于银行已经收款而企业尚未人账的未达账项,企业应作的处理为()。
MMPI-2量表类型包括()。
中国的格律诗,总体上在唐代________,达到无法超越的地步。宋诗其实是唐诗的延续,宋代有一些优秀的诗人,他们的创作可与唐人媲美,譬如苏东坡、王安石、陆游等。宋诗中,写得情景交融、意境优美的作品,可以说________。依次填入划横线部分最恰当的一项是:
面向对象方法中,继承是指()。
Access中,可与Like一起使用,代表0个或者多个字符的通配符是
最新回复
(
0
)