首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上厕一个名称为Command1的命令按钮,然后编写如下程序: Private Sub Command1_Click() Dim a As Integer a=2 s=0 For i=1 To 3 s=s
在窗体上厕一个名称为Command1的命令按钮,然后编写如下程序: Private Sub Command1_Click() Dim a As Integer a=2 s=0 For i=1 To 3 s=s
admin
2019-03-14
32
问题
在窗体上厕一个名称为Command1的命令按钮,然后编写如下程序:
Private Sub Command1_Click()
Dim a As Integer
a=2
s=0
For i=1 To 3
s=s+Fun(a)
Next i
Print s
End Sub
Function Fun(a As Integer)
Static C
b=0
b=b+1
c=c+1
Fun=a+b+C
End Function
程序运行后,单击命令按钮,输出结果是( )。
选项
A、6
B、9
C、11
D、15
答案
D
解析
Function过程和Sub过程有一个很重要的区别,Function过程可以带返回值,而Sub过程不可以。本题的Command1_Click()过程中,使用。For循环结构调用函数过程Fun,并将Fun带回的计算结果进行累加,Command1_Click()事件过程中For循环共执行3次,循环执行情况及各变量的值如下表所示。
本题中Fun函数过程中定义的变量c是静态局部变量,可以保留上次程序执行后的结果,最后输出变量s的值为15,所以D选项正确。
转载请注明原文地址:https://jikaoti.com/ti/BFm0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
(1)在考生文件夹下有一个工程文件sjt3.vbp。窗体上有名称为Timer1的定时器,以及两条水平直线,名称分别为Line1和Line2。请用名称为Shape1的形状控件,在两条直线之间画一个宽和高都相等的形状,设置其形状为圆,并设置适当属性使
窗体上有一个Text1文本框,一个Command1命令按钮,并有以下程序:PrivateSubcommand1_Click() Dimn IfText1.Text"123456"Then n=n+1 Print"口令输入
在窗体上画1个命令按钮和1个文本框,其名称分别为Command1和Text1,再编写如下程序:DimssAsStringPrivateSubText1_KeyPress(KeyAsciiAsInteger) IfChr(KeyAsc
有两个关系R和S如下:则由关系R得到关系S的操作是
(1)在名称为Form1的窗体上添加一个图片框,名称为Pic,通过属性窗口将考生文件夹下的文件Tu1—1.jpg添加到图片框,然后编写适当的事件过程。运行程序时,单击窗体,在图片框中显示“VB等级考试”,如图所示。注意:要求程序中不得使用变量,事
有下面程序代码:PrivateSubCommand1_Click()Fork=5To1Step-1x=k+x*10NextkPrintxEndSub程序运行后,单击命
下面为单精度实型(即单精度浮点型)变量的是
8.6787E+8写成普通的十进制数是()。
8.6787E+8写成普通的十进制数是()。
下面的数写成普通十进制数是()。8.6787E+8
随机试题
生活作风的内容不包括
对急性胰腺炎的治疗下列哪种措施不恰当?
手术缝合组织时常用肠线的类型为()。
()路面不宜分期修建,但位于软土、高填方等施工后沉降较大的局部路段,可按“一次设计、分期实施”的原则实施。
下列关于二氧化碳灭火器的作用与适用范围的叙述正确的是()。
甲公司在2017年1月1日将某项管理用固定资产的折旧方法从年限平均法改为年数总和法,预计使用年限从20年改为10年。在未进行变更前,该固定资产每年计提折1日230万元(与税法规定相同);变更后,2017年该固定资产计提折旧350万元。假设甲公司适用企业所得
各省的银行业协会是中国银行业协会的会员单位。()
2013年6月5日,甲公司股东会通过决议增加公司注册资本;2013年6月15日,各股东认缴的出资额全部到账;2013年6月20日,受托会计师事务所出具了验资报告:2013年6月25日,甲公司就该事项办理了工商变更登记。根据税收征收管理法律制度的规定.该公司
在国内旅游团的各接待环节中,全陪还须承担领队的职责。()
C语言中当说明一个结构体变量时系统分配给它的内存是结构中第一个成员所需的内存量。()
最新回复
(
0
)