首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有下面程序代码: Private Sub Command1_Click() Dim x As Integer, s As Integer x = 1 For k = 1 To 3 x = x + 1
有下面程序代码: Private Sub Command1_Click() Dim x As Integer, s As Integer x = 1 For k = 1 To 3 x = x + 1
admin
2018-12-20
44
问题
有下面程序代码:
Private Sub Command1_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
程序运行后,单击命令按钮Command1,输出结果是
选项
A、6
B、9
C、15
D、19
答案
B
解析
ByVal表示参数传递时是值传递。不改变实参的值。Command1_Click事件中proc x语句不改变x的值。因此可直接按照for循环的规律计算s的值。选B)。
转载请注明原文地址:https://kaotiyun.com/show/kkFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有一个名称为CD1的通用对话框控件和由四个命令按钮组成的控件数组Command1,其下标从左到右分别为0、1、2、3,窗体外观如图所示。命令按钮的事件过程如下:PrivateSubCommand1_Click(IndexAsIntege
有三个关系R、S和T如下:则由关系R和S得到关系T的操作是( )。
A、DYBEAFCZXB、YDEBFZXCAC、ABDYECFXZD、ABCDEFXYZC前序遍历是指在访问根结点、遍历左子树与遍历右子树这三者中,首先访问根结点,然后遍历左子树,最后遍历右子树;并且,在遍历左右子树时,仍然先访问根结点,然后遍历左
编写如下程序:PrivateSubCommand1_Click()DimmAsInteger,nAsIntegerm=2:n=1SelectCasemCase1
对长度为n的线性表作快速排序,在最坏情况下,比较次数为
窗体上有1个名称为Text1的文本框,1个名称为Label1的标签。程序运行后,如果在文本框中输入信息,则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程为( )。
有三个关系R,S和T如下:则由关系R和S得到关系T的操作是( )。
某二叉树有5个度为2的结点,则该二叉树中的叶子结点数是( )。
设循环队列的存储空间为Q(1:35),初始状态为front=rear=35。现经过一系列入队与退队运算后,front=15,rear=15,则循环队列中的元素个数为
对于循环队列,下列叙述中正确的是( )。
随机试题
前瞻性队列研究和回顾性队列研究的主要区别在于
具有祛风湿,补肝肾,强筋骨,安胎作用的药物是()具有祛风湿,补肝肾,强筋骨,利水作用的药物是:
依据《安全生产法》的规定,生产经营单位的主要负责人未履行本法规定的安全生产管理职责,导致发生生产安全事故,受到刑事处罚或者撤职处分的,自刑罚执行完毕或者受处分之日起()内不得担任任何生产经营单位的主要负责人。
设p为商品价格,q为销售量,则指数的实际意义是综合反映()。
某建筑物建筑面积120m2,已经过10年,重置价格为500元/m2,经济寿命为20年,残值率为5%。由此可得该建筑物成新率为()。
自制力不仅关乎自我控制,还包括排除不相关刺激的干扰和坚持完成相关任务(即使是自己不喜欢的任务)的能力。自制力是稳定不变的,还是会被消耗的,学界各派的看法不一。心理学家把实验对象分为两组,让他们同场解决难题。一组解题时只能吃萝卜,另一组还可以吃饼干。结果只吃
假如一国央行规定的法定准备金率是r=20%,流通中的现金C=3200亿美元,支票存款D=1万亿美元,超额准备金ER=600亿美元。计算新的存款D和流通中的现金水平C。
设则在点x=1处函数f(x)
Doyouforgettoturnoffthelightsandheaterswhenyougooutofaroom?In2040itwillnotmatter.Theywillturnthemselve
Oneofthemostinterestingofallstudiesisthestudyofwordsandwordorigins.Eachlanguageis(1)_____ofseveralearlierl
最新回复
(
0
)