首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: Private Sub Command1_Click() Dim m As Integer, n As Integer n=2 For m=1 To 3 Print proc(n); Next m End Sub F
编写如下程序: Private Sub Command1_Click() Dim m As Integer, n As Integer n=2 For m=1 To 3 Print proc(n); Next m End Sub F
admin
2018-12-20
75
问题
编写如下程序:
Private Sub Command1_Click()
Dim m As Integer, n As Integer
n=2
For m=1 To 3
Print proc(n);
Next m
End Sub
Function proc(i As Integer)
Dim a As Integer
Static b As Integer
a=a+1
b=b+1
proc=a * b+i
End Function
程序运行后,单击命令按钮Command1,输出结果为( )。
选项
A、3 3 3
B、3 4 5
C、3 5 6
D、1 2 3
答案
B
解析
变量b定义为Static即静态变量,它的特点是每次调用都会保留上次的值。程序click事件中调用了3次proc(n),即proc(2):
第一次,a=a+1=0+1=1, b=b+1=0+1=1 , proc=a*b+i=1*1+2=3;
第二次,a=a+1=0+1=1, b=b+1=1+1=2 , proc=a*b+i=1*2+2=4;
第三次,a=a+1=0+1=1, b=b+1=2+1=3 , proc=a*b+i=1*3+2=5;
因此输出的结果为3 4 5。
转载请注明原文地址:https://kaotiyun.com/show/qyFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click() DimiAsInteger,nAsInteger Fori=0To
下面哪个属性肯定不是框架控件的属性( )。
在窗体上画一个名称为Command1的命令按钮,再画两个名称分别为Label1、Label2的标签,然后编写如下程序代码:PrivateXAsIntegerPrivateSubCommand1_Click() X=5:Y=3
窗体上有一个名称为VScroll1的垂直滚动条,要求程序运行时,滚动块的初始位置在最下端,应该使VScroll1.Value的值等于( )。
下面属于黑盒测试方法的是
现有如下一段程序:PrivateSubCommand1_Click() x=UCase(InputBox("输入:")) SelectCasex Case"A"To"C" Print"考核通过!"
VisualBasic中的"启动对象"是指启动VisualBasic应用程序时,被自动加载并首先执行的对象。下列关于VisualBasic"启动对象"的描述中,错误的是( )。
窗体上有1个Timer1计时器,1个Shape1形状控件,还有下面程序代码:DimflagAsBooleanPrivateSubForm_Load()flag=TrueTimer1.En
下列选项中不属于软件生命周期开发阶段任务的是
下面不属于软件工程过程的4种基本活动
随机试题
什么是走向线和走向?走向标志着什么?它有几个值?相差的度数是多少?
一个流程由流程线、物料流向、名称及物料的来源和去向构成。
患者男,57岁。因严重肝病导致昏迷,呼吸微弱,浅而慢。护士为其测量呼吸的正确方法是()
下列项目中不属于营业外支出的是()。
商业银行在理财工作中必须建立健全有关规章制度和内部审核程序,并对()进行全面规范。
宏观经济政策的目标是()。
下列有关书法艺术的表述,正确的是()。
一种产品的价值由其质量与价格之间的比率决定。一种产品的价值越高,其会处于越好的竞争地位。所以对于既定产品而言或者通过提高质量,或者通过降低价格,都会提高消费者选择这种产品而不选择竞争性产品的概率。下面哪项,如果正确,最能支持以上得出的结论?
空想社会主义思潮经历了若干个历史发展阶段,其中成为科学社会主义的直接思想来源的是
Howmenfirstlearnedtoinventwordsisunknown;inotherwords,theoriginoflanguageisamystery.Allwereallyknowistha
最新回复
(
0
)