首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: Private Sub Command1_Click() Dim k As Integer x = 1 For k = 1 To 3 x = x * fun(k) Next k Pri
编写如下程序: Private Sub Command1_Click() Dim k As Integer x = 1 For k = 1 To 3 x = x * fun(k) Next k Pri
admin
2015-06-30
54
问题
编写如下程序:
Private Sub Command1_Click()
Dim k As Integer
x = 1
For k = 1 To 3
x = x * fun(k)
Next k
Print x
End Sub
Function fun(x As Integer) As Integer
Static a
a = a + 1
fun = a * x
End Function
程序运行后,单击命令按钮Command1,输出结果为
选项
A、6
B、36
C、3
D、30
答案
B
解析
函数fun中a是静态变量,在没有退出程序前,每次引用静态变量后,其值会继续保留,作为下次引用时该变量的初始值。在For 循环中,当k为1时,调用fun函数,a为1,返回值为1,x=1*1=1;当k为2时,调用fun函数,a为2,返回值为2*2为4,x=1*4=4;当k为3时,调用fun函数,a为3,返回值为3*3,x=9*4=36。故输出结果为36,B项正确。
转载请注明原文地址:https://kaotiyun.com/show/UgQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名称为Commandl的命令按钮,然后编写如下程序:PrivateSubCommand1_Click()DimiAsInteger,jAsIntegerDima(10,10)AsInteg
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()DimiAsInteger,nAsIntegerFori
执行以下程序段DimxAsInteger,iAsIntegerx=0Fori=20ToStep-2x=x+i\5Nexti后,x的值为
结构化分析方法是面向()的自顶向下逐步求精进行需求分析的方法。
已知代数式eXSin(30°)2x/(x+y)Lnx,则正确的VisualBasic表达式为()。
在新建一个VisualBasic工程时,将新建窗体的Name属性设置为TheFirst,则默认的窗体文件名为()。
由Array函数建立的数组的名字必须是【】类型。
执行下列程序后,变量a的值为()DimiAsIntegerDimaAsIntegera=0Fori=lTo100Step2a=a+lNexti
随机试题
管理的二重性是指管理的()。
The"standardofliving"ofanycountrymeanstheaverageperson’sshareofthegoodsandserviceswhichthecountryproduces.
患儿,10个月,方颅,多汗,胸骨肋膈沟,血钙正常,血磷低,X线可见骨骺软骨增宽,干骺端临时钙化带模糊,并呈毛刷状改变,最可能的诊断是
刚性角较小的基础是()。【2016年真题】
与固定资产扩张相关的借款需求,其关键信息主要来源于公司管理层。()
M公司采用累计发生成本占预计合同总成本的比例确定完工进度,采用完工百分比法确认合同收入。2013年M公司签订一项承担A工程建造任务的合同,该合同为固定造价合同,合同金额为1000万元。工程自2013年5月开工,预计2015年3月完工。M公司2013年实际发
步骤1单击[样式]组中的[套用表格格式]按钮,单击[表样式浅色13],如图4—10所示。[*]步骤2在[套用表格格式]对话框中选中[表包含标题]复选框,单击[表数据来源]右侧的折叠对话框按钮,如图4—11所示。[*]步骤3选中单元格区域
网络商务信息收集后,需要进行整理,(42)不属于信息整理工作。
请编写一个函数voidfun(char*tt,intpp[]),统计在tt所指字符串中“’a’”到“’z’”26个小写字母各自出现的次数,并依次放在pp所指数组中。例如,当输入字符串:abcdefgabcdeabc后,程序的输出结果应该是:
Seariseasaresultofglobalwarmingwouldimmediatelythreatenthatlargefractionoftheglobelivingatsealevel.Nearlyo
最新回复
(
0
)