首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在n个运动员中选出任意r个人参加比赛,有很多种不同的选法,选法的个数可以用公式(作图)计算,在窗体上设计3个文本框,名称依次是Text1、Text2、Text3。程序运行时在Text1、Text2中分别输入n和r的值,单击Command1按钮即可求出选法的
在n个运动员中选出任意r个人参加比赛,有很多种不同的选法,选法的个数可以用公式(作图)计算,在窗体上设计3个文本框,名称依次是Text1、Text2、Text3。程序运行时在Text1、Text2中分别输入n和r的值,单击Command1按钮即可求出选法的
admin
2010-03-22
45
问题
在n个运动员中选出任意r个人参加比赛,有很多种不同的选法,选法的个数可以用公式(作图)计算,在窗体上设计3个文本框,名称依次是Text1、Text2、Text3。程序运行时在Text1、Text2中分别输入n和r的值,单击Command1按钮即可求出选法的个数,并显示在Text3文本框中,请在空白处填入适当语句使程序完整。
Prvate Sub Command1_C1ick()
Dimr As Integer,n As Integer
n=Text1
r=TeXt2
Text3=fun(n))(______))fun(r)
End Sub
Function fun(n As Integer)As long
Dim t AS Long
For k=1 To n
t=t*k
Next k
fun=t
End Function
选项
答案
fun(n)-fun(r) t=1
解析
本题考查选择VBA程序设计的知识。本题实际上并不复杂,只要分析清楚函数fun的功能就能解决这个问题。我们在函数定义的内部和函数调用的方式上可以看出,函数fun实际上就是求阶乘的函数。因为求阶乘是一个累乘的过程,所以存放累乘积的变量t需要赋初值为1,在调用的时候只需要按照公式调用就可以了。
转载请注明原文地址:https://kaotiyun.com/show/gwwp777K
本试题收录于:
二级Access题库NCRE全国计算机二级分类
0
二级Access
NCRE全国计算机二级
相关试题推荐
下面程序的输出结果为()。#includeclassTestClass{public:TestClass(){Val++;)staticintval;};intTest
数据库应用系统中的核心问题是()。
有如下函数模板:templateTcast(Uu){returnu;}其功能是将U类型数据转换为T类型数据。已知i为int型变量,下列对模板函数cast的调用中正确的是()。
下列关于重载运算符错误的是
在C++中,编译系统自动为一个类生成默认构造函数的条件是()。
若有下面的函数调用:fun(a+b,3,max(n-1,b))则fun的实参个数是()。
使用VC6打开考生文件夹下的源程序文件modi3.cpp,其中定义了用于表示日期的类Date,但类Date的定义并不完整。请按要求完成下列操作,将类Date的定义补充完成。(1)定义私有数据成员year、month和day,分别用于表示年、月和日,它们都
下列枚举类型的定义中,包含枚举值3的是
某二叉树共有399个结点,其中有199个度为2的结点,则该二叉树中的叶子结点数为()。
随机试题
下列哪些证候能说明是顺证
呕血最常见的原因是
我国肾小球源性血尿最常见的病因是
长期使用左旋多巴导致严重肌张力障碍的帕金森病患者,可选用的治疗药物是
(2010年考试真题)2008年5月15日,某股份有限公司依股东大会决议收购了本公司部分股份用于奖励公司职工。该公司现有已发行股份总额8000万股。下列关于该公司收购本公司部分股份奖励职工的表述中,符合我国《公司法》规定的是()。
A公司经过甲介绍成功地向B公司销售了一批货物。下列属于不正当竞争行为的是()。
阅读以下文字,完成问题。陶器的产生是和农业经济的发展联系在一起的,一般是先有了农业,然后才出现陶器。这些创造发明,无疑应归功于妇女,因为在性别分工的基础上,妇女是家里的主人,必然首先从事这些活动。这在我国某些少数民族地区还保留着一定的残余,例如云
某公司拟将5百万元资金投放下属A、B、C三个子公司(以百万元的倍数分配投资),各子公司获得部分投资后的收益如下表所示(以百万元为单位)。该公司投资的总收益至多为(56)百万元。
描述“X是小于100的非负整数”的VisualBasic表达式是【】。
Duringthe1980s,unemploymentandunderemploymentinsomecountrieswasashighas90percent.Somecountriesdidnot21enough
最新回复
(
0
)