首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序代码: 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
37
问题
编写如下程序代码:
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://kaotiyun.com/show/4XTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
语句:PrintAsc(Chr$(Mid$("98765432",4,2)))的输出是
下列关于通用对话框CommonDialog1的叙述中,错误的是( )。
某系统结构图如下图所示该系统结构图的最大扇出数是
窗体上有1个名称为Textl的文本框,1个名称为Timerl的计时器,且已在属性窗口将Timerl的Interval属性设置为2000、Enabled属性设置为False。以下程序的功能是,单击窗体,则每隔2秒钟在Textl中显示一次当前时间。Priva
有下面程序代码:OptionBase1PrivateSubCommand1_Click()Dima(10)AsInteger,x,bx=InputBox("请输入一个多位整数")
设有如图所示窗体和以下程序:PrivateSubCommand1_Click()Text1.Text="VisualBasic"EndSubPrivateSubText1_LostFoeus()IfText1.Text<>"BAS
在VisualBasic中,表达式3*2\5Mod3的值是()。
以下关于VB对象属性的叙述中,错误的是()。
下面不属于软件工程过程的4种基本活动
软件工程的理论和技术性研究的内容主要包括软件开发技术和()。
随机试题
驾驶人在驾驶证有效期满前多长时间申请换证?
存货的可变现净值等于企业预计的销售存货的售价。()
GraffitiisacommonfeatureofmostWesterncities.Theword"graffiti"wasfromtheGreekword"graphein"whichonlymeantwri
A.σ70因子B.TATA盒结合蛋白(TBP)C.C端结构域(CTD)D.起始子(Inr)识别大肠杆菌基因启动子的是
以下权利中属于有益物权的是()。
下列关于((EPC交钥匙合同》的表述,错误的是()。
某施工单位承接了_一座公路隧道的土建及交通工程施工项目,该隧道为单洞双向行驶的两车道浅埋隧道,设计净高5m,净宽12m,总长1600m,穿越的岩层主要由页岩和砂岩组成,裂隙发育,设计采用新奥法施工、分部开挖和复合式衬砌。进场后,项目部与所有施工人员签订了安
天津A建筑公司从韩国进口了800台起重机,货物到上海后办理了相关的进口报关纳税手续。运回公司后,开箱发现其中50台不符合规定的型号,经与外方协商,外商同意给予补偿,后又运进80台同等型号的起重机,但50台不符合规定型号的起重机没有办理退运。在这种情况下,该
通过浏览器打开因特网上的网站属于_____服务。
Myteacher’steachinghadaprofound______onmyclassmatesandme.
最新回复
(
0
)