首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有下面程序代码: Private Sub Command l_Click() Dim sign As Integer sign=1 a=1:b=2 For k=1 To 5
有下面程序代码: Private Sub Command l_Click() Dim sign As Integer sign=1 a=1:b=2 For k=1 To 5
admin
2013-10-16
51
问题
有下面程序代码:
Private Sub Command l_Click()
Dim sign As Integer
sign=1
a=1:b=2
For k=1 To 5
c=a+sign*b
a=b:b=c
Print c;
sign=-sign
Next k
End Sub
程序运行后,单击命令按钮Commandl,输出结果是
选项
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
解析
在每次循环中sign的值在1和-1之间来回变化,第一次循环时sign的值为1;在循环中c的值为a+sign*b,然后将b赋值给a,c赋值给b;因此第一次循环结束后c的值为3,a的值为2,b的值为3;第二次循环结束后c的值为-1,a的值为3,b的值为-1;第三次循环结束后c的值为2,a的值为-1,b的值为2:第四次循环结束后c的值为-3,a的值为2,b的值为-3;第五次循环结束后c的值为-1,a的值为-3,b的值为-1。
转载请注明原文地址:https://kaotiyun.com/show/rLQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画两个文本框(其名称分别为Text1和Text2)和一个命令按钮(其名称为Commandl),然后编写如下两个事件过程:PrivateSubCommand1_Click()Text1.Text="Computer
关于MsgBox函数,以下说法不正确的是______。
在窗体上画一个命令按钮,其名称为command1,然后编写如下代码:OptionBase1PrivateSubCommand1_Click()DimArrArr=Array(43,68f-25,65,-78,12
函数Int(Rnd(0)*10)的取值范围是______。
下列可作为VisualBasic中所允许的形式的数是______。
编写如下事件过程:PrivateSubFOrm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSinglE
以下叙述中错误的是______。
在名为Form1的窗体上绘制一个命令按钮,名为Cmd1,标题为“复制”;再绘制一个文本框,名为Text1。请编写适当的事件过程,使得在运行时,若单击命令按钮,则把按钮上的标题复制到文本框中(如下图所示)。注意:程序中不得使用任何变量;文件
窗体上有一个名称为Picturel的图片框控件,一个名称为Label1的标签控件,如下图所示。现有如下程序:PublicSubdisplay(xAsControl)IfTypeOfxIsLabe
若变量a未事先定义而直接使用(例如:a=0),则变量a的类型是
随机试题
EXCEL中,每一个工作簿系统都隐含______个工作表。()
患者,男性,50岁。一天前患者骑摩托车时不慎摔倒,头部着地,摩托车砸中其腰部。患者伤后有短暂的昏迷,醒后自觉腰痛,双下肢胀痛,麻木。腰部活动受限。大小便障碍。既往史、个人史无特殊。查体:体温36.5℃,心率84次/分,呼吸18次/分,血压142/93mmH
A.一侧肢体抽搐B.全身抽搐,意识丧失C.无意识搓手、解扣D.猝倒伴意识丧失E.短暂性遗忘症癫痫强直阵挛发作
A.0.5寸B.1.5寸C.2寸D.4寸E.6寸足太阴脾经在胸部的循行为旁开前正中线
“法官除了法律就没有别的上司。”答题要求:(1)请从司法制度的角度,分析马克思的这句名言的含义及对当今中国法治建设的现实意义;(2)说理充分、逻辑严密、语言流畅、表达准确;(3)字数不少于500字。
服务质量特性可分为( )。
瓦楞纸板有各种瓦楞形状,其中什么形状能适应大多数瓦楞包装的要求,使用较为普遍()
下列选项中不属于危害公共安全罪的是()。
SirRichardFriendisatoughmantotrackdown.PhonecallstohistwolabsatCambridgeUniversitygounanswered,andsodoe-
Americanculturehasbeenenrichedbythevaluesandbeliefsystemsofvirtuallyeverypartoftheworld.Theonevaluethat
最新回复
(
0
)