首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: 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
28
问题
编写如下程序:
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全国计算机二级
相关试题推荐
有如下程序:PrivateSubCommand1_Click()s=0Dos=(s+1)((s+2)N=N+1LoopUntils>=10P
以下叙述中错误的是
在窗体上画一个名称为Commandl的命令按钮,然后编写如下代码:OptionBase1PrirateSubCommand1Click()d=0c=10x=Array(10,
在窗体上建立一个单选按钮组Option1和一个图片框Picture1,如图所示。当选择不同的单选按钮时,图片框中填充不同的图案,请填写程序的空白处,使程序完整。PrivateSubOption1_Click(______)DimH
数据库DB、数据库系统DBS、数据库管理系统DBMS之间的关系是()。
以下叙述中正确的是
假定建立了一个名为Command1的命令按钮数组,则以下说法中错误的是
以下关于变量作用域的叙述中,正确的是
表达式Fix(-68)+Int(-02)的值为【】。
随机试题
如果在C盘当前文件夹下已存在名为StuData.dat的顺序文件,那么执行语句Open"C:StuData.dat"ForAppendAs#1之后将()。
男,28岁,3年来反复乏力、纳差、肝区隐痛。血清转氨酶反复升高,胆红素偏高。血清球蛋白升高。类风湿因子阳性。体检:面色灰暗、肝掌及蜘蛛痣.肝右肋下2cm。质地中等,脾肋下0.5cm。对此病例的诊断应是
水喷雾系统的水雾滴平均直径随喷头工作压力变化而变化,其太大或太小都会影响灭火效果,一般水雾的粒径为()mm。
内部有可悬挂衣服的设备,适合装运服装类商品的集装箱称为()。
郭宁最近被所在地的生产机电产品的公司聘任为总裁。在准备接任此职位的前一天晚上,他浮想联翩,回忆起在该公司工作20多年的情况。他在大学学的是工业管理,到该公司工作最初担任液压装配单位的助理监督,开始感到手忙脚乱,由于他的好学,加上监督长的指点,很快
对于OSI参考模型的低三层,TCP/IP参考模型内对应的层次有()。
某单位每逢年底会针对全体员工进行评优,评优奖项有5个,分别是最佳敬业奖、最佳创意奖、最佳协作奖、最佳写作奖、年度明星奖。其中如果评选了年度明星奖则不能再评选最佳创意奖和最佳敬业奖;如果评选了协作奖,就不能再获得写作奖;如果评选了敬业奖,则不能再获得协作奖。
Everyoneknowsthattoomuchtimeinthesuncanexposeyoutoexcessiveultravioletradiation,whichcanleadtoskincancers.【
Twotruckswerereportedtohave______head-onyesterday.
WhenwasLongmanGroupUKLtdwasfounded?
最新回复
(
0
)