首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有下面程序代码: Private Sub Command l_Click() Dim x As Integer,s As Integer x=1 For k=1 To 3 x
有下面程序代码: Private Sub Command l_Click() Dim x As Integer,s As Integer x=1 For k=1 To 3 x
admin
2013-10-16
34
问题
有下面程序代码:
Private Sub Command l_Click()
Dim x As Integer,s As Integer
x=1
For k=1 To 3
x=x+1:proc x:s=s+x
Next k
Print s
End Sub
Private Sub proc(ByVal a As Integer)
Static x As Integer
x=x+1:a=a+x
End Sub
程序运行后,单击命令按钮Commandl,输出结果是
选项
A、6
B、9
C、1 5
D、19
答案
B
解析
本题中首先要区分在命令按钮的单击事件中定义的x是局部变量,仅能在过程内部起作用:在子过程proc中定义的静态变量x也是局部变量,也只能在本过程中起作用。在VB的过程调用时,参数有两种传递方式:传址传递和传值传递。如果在过程声明时形参用ByVal声明,说明此参数为传值调用;若用ByRef声明,说明此参数为传址调用;没有说明传递类型,则默认为传址传递。即形参的结果会传递给实参。本题中proc过程的参数a用的是值传递,因此形参的改变不会影响到实参,所以在命令按钮的单击事件中循环累加的是2+3+4=9。
转载请注明原文地址:https://kaotiyun.com/show/tGQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()DimArr(3,3)AsIntegerFori
在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码:OptionBase1PrivateSubCommand1_Click()Dimaa=Array(1,2,3,
在窗体上画一个名称为Connand1的命令按钮,然后编写如下程序:PrivateSubCommand1_Click()DimiAsInteger,jAsIntegerDima(10,10)AsI
面向对象的程序设计方法中涉及的对象是系统中用来描述客观事物的一个______。
结构化程序设计方法的主要原则可以概括为自顶向下、逐步求精、______和限制使用goto语句。
下列程序是将数组a的元素倒序交换,即第一个变为最后一个,第二个变为倒数第二个,依此类推。设数组中有8个元素。完成下列程序。PrivateSubOrderChange(a())DimiAsInteger,TempAsIntegerFor
随机试题
离合器分离不彻底的原因有哪些?
资产或负债的账面价值与其计税基础之间的差额,称为
女,55岁。因外阴瘙痒就诊,组织病理学诊断为外阴白色病变。下列治疗措施中不正确的是
某男性患者,37岁,体检查出空腹血糖9.79mmol/L,尿糖(++),本人无明显不适。入院复查餐后血糖、糖化血红蛋白等,医师诊断为2型糖尿病,并给予磺酰脲类降糖药。患者考虑到使用上述药物的副作用,想改用胰岛素,那么不宜用胰岛素的病症是
给水铸铁管埋地管道在垂直或水平方向转弯时,应根据( )等因素设置支墩,支墩不得修在松土上。
下列()渠道无法为内地投资人实现境外资产配置。
下列属于证券、期货投资咨询人员申请取得证券、期货投资咨询从业资格,应当提交的文件的是()。
请仔细阅读给定资料,并按要求完成作答。1.近一年来,银行不时犯一下“钱紧”病,去年曾发生过两次流动性紧张事件,6月26日数据显示,上海银行问利率全线上涨,达到惊人的13.44%,创下历史新高,就在银行间市场“钱紧”同时,沪深股市全线下跌,投资者开
附着力法则:流行点的引爆有赖于流行信息的有效传播,流行信息的附着力则在很大程度上决定了信息传播的有效性。信息附着力取决于信息与受众之间关联程度的高低和信息实用性的大小,关联度高、实用性大的流行信息具有更强的附着力,成为流行的引爆点。以下做法不符合
NoEnglishmanbelievesinworkingfrombooklearning.Hesuspectseverythingnew,anddislikesit,unlesshecanbecompelledb
最新回复
(
0
)