首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有如下事件过程: Private Sub Form_Click() Dim f1 As Integer, f2 As Integer, i As Integer Dim s As Integer f1 = 1: f2 = 1 s = f1
设有如下事件过程: Private Sub Form_Click() Dim f1 As Integer, f2 As Integer, i As Integer Dim s As Integer f1 = 1: f2 = 1 s = f1
admin
2018-05-08
44
问题
设有如下事件过程:
Private Sub Form_Click()
Dim f1 As Integer, f2 As Integer, i As Integer
Dim s As Integer
f1 = 1: f2 = 1
s = f1 + f2
For i = 1 To 3
f1 = f1 + f2
f2 = f2 + f1
s = s + f1 + f2
Next i
Print s
End Sub
运行程序,单击窗体,则输出结果为
选项
A、2
B、20
C、54
D、52
答案
C
解析
程序开始执行时,f1=1,f2=1,s=f1+f2=2。For循环变量i的取值从1到3,当i=1时,f1=f1+f2=2,f2=f2+f1=1+2=3,s=s+f1+f2=2+2+3=7;当i=2时,f1=f1+f2=2+3=5,f2=f2+f1=3+5=8,s=s+f1+f2=7+5+8=20;当i=3时,f1=f1+f2=5+8=13,f2=f2+f1=8+13=21,s=s+f1+f2=20+13+21=54;故本题正确答案为C。
转载请注明原文地址:https://kaotiyun.com/show/LeGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在设计阶段,如果双击窗体上的一个文本框控件,则在代码窗口中显示该控件的事件过程所对应的事件是
在窗体上画一个命令按钮(名称为Commandl),并编写如下代码:FunctionFun1(ByValaAsInteger,bAsInteger)AsIntegerDimtAsInteger
假定有如下程序:PrivateSubForm_Click()DimNAsInteger,JAsIntegerN=0J=1DoUntilN>2
已知a=6,b=15,c=23,则语句PrintSgn(a+bMod6-c\a)&a+b的输出结果为
在窗体上画一个名称为Textl的文本框和一个名称为Commandl的命令按钮,然后编写如下事件过程:PrivateSubCommandl_Click()DimiAsInteger,nAsInteger
在窗体上画一个命令按钮,名称为Commandl,然后编写如下代码:OptionBase0PrivateSubCommandl_Click()DimAl(4)AsInteger,A2(4)AsInteg
要将单选按钮Optl设为被选中,应设置的属性是
要想使列表框只允许单选列表项,应设置的属性为
按条件f对关系R进行选择,其关系代数表达式为()。
在VisualBasic中,表达式3*2\5Mod3的值是()。
随机试题
城市居民生活用水量标准按我国行政地区和城市规模分类正确的是()。
阅读《冯谖客孟尝君》中的一段文字,回答下列问题:后期年,齐王谓孟尝君日:“寡人不敢以先王之臣为臣。”孟尝君就国于薛。未至百里,民扶老携幼,迎君道中。孟尝君顾谓冯谖日:“先生所为文市义者,乃今日见之。”冯谖曰:“狡兔有三窟,仅得免其死耳。今君有一窟
A.实验对照B.空白对照C.安慰剂对照D.标准对照E.历史对照某医师研究丹参预防冠心病的作用,实验组用丹参,对照组用无任何作用的糖丸,属于
王某于2008年6月取得证券从业资格证书,并随后从业至2009年5月底,如果他在( )前未继续从事证券业务活动,若要重新成为证券业从业人员,需要重新申请。
下列关于我国理财师队伍扩张迅速的因素的说法中,错误的是()。
某企业开发出一种新产品,单位成本为1000元根据以上资料,回答下列问题:假如该产品在行业中类似产品的价格为1300元,若采取渗透定价,则该产品价格可为()元。
下列消费品种,我国对其征收消费税的有()。
当x→0时下列无穷小是x的n阶无穷小,求阶数n:(I)(Ⅱ)(1+tan2x)sinx一1;(Ⅲ)(Ⅳ)∫0xsint.sin(1一cost)2dt.
设表的长度为n。在下列算法中,最坏情况下时间复杂度最高的是
Readthearticlebelowaboutplayinggamesatwork.Foreachquestion31-40writeonewordinthespaceonyourAnswerSheet.Th
最新回复
(
0
)