首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序代码: Private Sub Command1_Click() Call sub_pro End Sub Sub sub_pro() Static sum As Integer Dim i A
编写如下程序代码: Private Sub Command1_Click() Call sub_pro End Sub Sub sub_pro() Static sum As Integer Dim i A
admin
2020-02-27
60
问题
编写如下程序代码:
Private Sub Command1_Click()
Call sub_pro
End Sub
Sub sub_pro()
Static sum As Integer
Dim i As Integer
For i=1 To 10 Step 2
sum=sum+i
Next
Print sum
End Sub
程序运行后,第三次单击命令按钮Command1时,输出结果为( )。
选项
A、25
B、75
C、55
D、165
答案
B
解析
在过程sub—pro中定义了一个静态整型变量sum,与Dim定义变量不同的是,用Static定义的变量,过程在被多次被调用时,其值可以继续保留。过程中使用的for循环的功能是:对1到10之间的所有奇数进行求和,将结果保留到变量sum中。程序3次单击按钮,则过程sub_pro过程被调用3次,第1次静态变量sum的值为25;第2次调用sub_pro过程时,第1次sum的值被保留,静态变量sum第2次的值为50;第3次调用sub_pro过程时,第2次sum的值被保留,静态变量sum第3次的值为75;故最终变量sum的值为75,B选项正确。本题选择B选项。
转载请注明原文地址:https://www.kaotiyun.com/show/4XTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
语句:PrintAsc(Chr$(Mid$("98765432",4,2)))的输出是
定时器的Interval属性的值是一个整数,它表示的是( )。
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:OptionBase1PrivateSubCommand1_Click() d=0 c=10 x=Array(10,12,21,32,24) Fori=
窗体上有名称为Commandl的命令按钮,名称分别为Labell、Label2、Label3的标签。编写如下程序:PrivateXAsIntegerPrivateSubCommandl_Click()Sta
在考生文件夹中有一个工程文件sjt5.vbp,如图6所示。运行程序时,从文件中读入矩阵数据并放入二维数组a中。单击“计算”按钮时,将统计矩阵两个对角线的元素中能被3整除的个数,统计结果显示在标签lblFirst中;同时计算矩阵主对角线的元素之和,计算结果显
为组合框Combol增加一个列表项“电脑”,下列语句正确的是()。
考生文件夹下有工程文件sjt5.vbp和数据文件in5.txt。in5.txt中有多条记录,每条记录占一行,含4个数据项,数据项的含义依次是:姓名、数学成绩、语文成绩、英语成绩。窗体上按钮“读取数据”的功能是把in5.txt中的所有记录读到数组a中(每个数
层次型、网状型和关系型数据库划分原则是( )。
下列方法中,能够使对象获得焦点的是()。
如果一个顶级菜单项的访问键为D,则以下等同于单击该菜单项的操作为
随机试题
下列对党的纪律处分中的“实事求是”原则的理解正确的有()。
中年患者,左侧上后牙诊断为牙隐裂引起的急性根尖炎,其隐裂为近远中走向,现已作完根管治疗,下一步必须做的治疗是
畸形中央尖的临床表现如下,除外
证券()是指证券公司代发行人发售证券,在承销期结束时,将未售出的证券全部退还给发行人的承销方式。
金融市场上,决定纯利率高低的因素有()。
共通的意义空间在传播中的作用是什么?
国际传播(南昌大学2017年研;厦门大学20l0年研)
王某与赵某于2000年5月结婚。2001年7月,王某出版了一本小说,获得20万元的收入。2002年1月,王某继承了其母亲的一处房产。2002年2月,赵某在一次车祸中,造成重伤,获得6万元赔偿金。在赵某受伤后,其朋友为其捐助假肢费用10万元。对此,下列表述正
Kerberos是一种网络认证协议,它采用的加密算法是________。
Researcherssaiditwasclearthattheworld’soceansplayamajorroleinqueuinguprapidclimatechanges,butthatthusfart
最新回复
(
0
)