首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有下面程序代码: Private Sub Commandl_Click() Dim sign As Integer sign=1 a=1 b=2 For k=1 To 5 e=a+sign*b
有下面程序代码: Private Sub Commandl_Click() Dim sign As Integer sign=1 a=1 b=2 For k=1 To 5 e=a+sign*b
admin
2020-04-18
19
问题
有下面程序代码:
Private Sub Commandl_Click()
Dim sign As Integer
sign=1
a=1
b=2
For k=1 To 5
e=a+sign*b
a=b
b=c
Print c;
sign=-sign
Next k
End Sub
程序运行后,单击命令按钮Command1,输出结果是( )。
选项
A、3 -1 2 -3 -1
B、3 5 8 13 21
C、-1 1 -2 -1 -1
D、3 4 5 6 7
答案
A
解析
For循环执行5次,按公式计算可得,结果选A。
转载请注明原文地址:https://kaotiyun.com/show/7pTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下关于键盘事件的叙述中,错误的是
以下关于图片框、图像框的叙述中,正确的是
设有如下的记录类型:PrivateTypeEmployeenumAsStringnameAsStringEndType则下列语句中正确的是()。
如果在框架中画了2个复选框,且框架的Enabled属性被设置为False,2个复选框的Enabled属性被设置为True,则下面叙述中正确的是
窗体上有一个名称为Commandl的命令按钮,单击该按钮时所实现的功能是产生10个随机整数,然后从键盘输入一个整数,查找该数在数组中的位置。若找到,输出该数的位置;若没有找到,给出相应的提示。该命令按钮的单击事件过程如下:PrivateSubComm
在窗体上画一个名称为Command1的命令按钮,编写如下事件过程:PrivateSubCommand1_Click()n=0Fori=0To10X=2*i-1IfXMod3=0Thenn=n+1NextiP
下列关于滚动条的叙述中,错误的是
在窗体上画一命令按钮和一文本框,其名称分别为Command1和Text1,然后编写如下程序:FunctionFun(xAsInteger,YAsInteger)AsIntegerFun=IIf(x
窗体上有1个名称为Command1的命令按钮,事件过程如下:PrivateSubCommand1_Click()Dimart_x(5,5)AsIntegerFori=1To3Forj=2To4
在窗体上画一个列表框和一个命令按钮,其名称分别为listl和Command1,然后编写如下事件过程:PrivateSubFormload()List1.Addltem"Iteml":List1.Addltem"Itern2":Li
随机试题
商业银行向人民银行支取现金时,现金就从央行发行库发出,进入商业银行的业务库,称为()
《安全生产法》明确了安全生产三大目标,即()。
(2006)以下哪一种室内灯具的发光效率最高?
A公司12月31日的资产负债表如下:公司收到大量订单并预期从银行取得借款。一般情况下,公司每月应收账款周转率(按期末时点数计算)保持不变。当月形成的应收账款次月收回。公司在销售的前一个月购买存货,购买数额等于次月销售额的50%,并于购买的次月付款60%
2006年8月,李某出版小说一本取得稿酬80000元,从中拿出20000元通过国家机关捐赠给受灾地区。李某8月份应缴纳个人所得税()元。(2007年)
我市某中学一研究性学习小组,在某一高速公路服务区,从小型汽车中按进服务区的先后顺序,每间隔5辆就抽取一辆的抽样方法抽取40名驾驶员进行询问调查,将他们在某段高速公路的车速(km/h)分成六段:[70,75),[75,80),[80,85),[85,90),
有一个摆地摊的摊主,他拿出3个白球,3个黑球,放在一个袋子里,让人们摸球中奖。只需2元就可以从袋子里摸3个球,如果摸到的3个球都是白球,可得10元回扣,那么中奖的概率是多少?如果一天有300人摸奖,摊主能骗走多少元?()
代码编写阶段可进行的软件测试是
Whichofthefollowingcanbestdescribehissituation?
Oldermenconsideringroboticsurgeryforprostatecancershouldn’ttrusttherosyadspromotingtheexpensivetechnologyoverl
最新回复
(
0
)