首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有下面程序代码: 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
54
问题
有下面程序代码:
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://www.kaotiyun.com/show/tGQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
数据库管理系统(DBMS)提供数据操纵语言(DML)及它的翻译程序,实现对数据库数据的操作,包括数据插入、删除、更新和【】。
在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码:OptionBase1PrivateSubCommand1_Click()Dimaa=Array(1,2,3,
在窗体上画一个名称为Connand1的命令按钮,然后编写如下程序:PrivateSubCommand1_Click()DimiAsInteger,jAsIntegerDima(10,10)AsI
在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,然后编写如下事件过程:PrivateSubCommand1Click()Dimarr1(10),arr2(10)Fori=1
在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Text1、Labell和Commandl,然后编写如下两个事件过程;PrivateSubCommand1_Click()S$=InputBox("请输入1个字符串")Text1.T
面向对象的程序设计方法中涉及的对象是系统中用来描述客观事物的一个______。
结构化程序设计方法的主要原则可以概括为自顶向下、逐步求精、______和限制使用goto语句。
下列程序是将数组a的元素倒序交换,即第一个变为最后一个,第二个变为倒数第二个,依此类推。设数组中有8个元素。完成下列程序。PrivateSubOrderChange(a())DimiAsInteger,TempAsIntegerFor
随机试题
2003年某县发生急性出血性结膜炎流行,当地有关部门采取了相应措施,其措施有效的是
关于施工企业安全费用的说法,正确的是()。
阅读下列程序,给出运行结果。main(){intk=8:switch(k){case?9:k+=1:case10:k+=1:case11:k+=1;break:default:k+=1:}printf(“%dkn”,k
"Igotcancerinmyprostate."DetectiveAndySipowiczofthefictional15thPrecinct,astoic,bigbearofaman,isclearlyin
动物采食后血糖浓度()
国际多式联合运输是以至少两种不同的运输方式将货物从一国境内接受货物的地点运至另一国境内指定交付货物的地点的运输,它由()。
“情人眼里出西施”反映了决策过程中常见的()。
现在很多人的名片上有很多头衔.对于这种头衔膨胀的现象你怎么看?
新形势下党的思想宣传工作的使命任务是:
Mr.Smithisbookingatourforaladyandhimselfatatravelagency.
最新回复
(
0
)