首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序: Option Base 1 Private Sub Command1_Click() d=0 c=10 x=Array(10, 12, 21, 32, 24) For i=
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序: Option Base 1 Private Sub Command1_Click() d=0 c=10 x=Array(10, 12, 21, 32, 24) For i=
admin
2018-05-08
14
问题
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:
Option Base 1
Private Sub Command1_Click()
d=0
c=10
x=Array(10, 12, 21, 32, 24)
For i=1 To 5
If x(i)>c Then
d=d+x(i)
c=x(i)
Else
d=d-c
End If
Next i
Print d
End Sub
程序运行后,如果单击命令按钮,则在窗体上输出的内容为( )。
选项
A、89
B、99
C、23
D、77
答案
C
解析
程序中Option Base 1语句指定数组下标下限从1开始。程序通过赋初值定义变量x为含有5个元素的数组,元素值依次为10, 12, 21, 32, 24。For循环的功能是把这5个元素中大于10且大于前一个元素的值累加到变量d中,如果小于等于10或前一个元素则从变量d减去10或前一个元素的值。因此d=0-10+12+21+32-32=23。
转载请注明原文地址:https://kaotiyun.com/show/icGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
为了在按下Esc键时执行某个命令按钮的Click事件过程,需要把该命令按钮的一个属性设置为True,这个属性是______。
下面程序的运行结果是()。PrivateSubForm_Click()i=0DoUntil0i=i+1Ifi>10ThenExitDo
在一个窗体上有一个命令按钮,CmdMax。单击CmdMax时,窗体上显示“字体由小变大”,字号每次增加2。请填空。PrivateSubForm_Load()Form1.Caption=“字体变化示范”CmdMax
下面程序的运行结果是在窗体中显示的:运行后窗体上显示的是______。
在窗体中添加一个列表框(listBox1)和一个命令按钮,并编写如下代码:PrivateSubCommand1_Click()DimEntry,I,MsgMsg="ChooseOktoadd100itemsto
在窗体上画一个命令按钮,名称为Command1。单击命令按钮时,执行如下事件过程:PrivateSubCommand1_Click() a$="softwareandhardware" b$=Right(a$,8)
下列叙述中正确的是
下列数据结构中,能够按照“先进后出"原则存取数据的是
目录列表框的Path属性的作用是()。
若实体A和B是一对多的联系,实体B和C是一对一的联系,则实体A和C的联系是
随机试题
根据领导者运用职权的方式不同,可以将领导方式分为专制、民主与放任三种类型。其中民主式领导方式的主要优点是()。
(2005)BynextJuly,Tom_____hereforfiveyears.
A、用于肺胃蕴热所致的咽部红肿、咽痛、失音声哑B、用于阴虚火旺、虚火上浮C、用于肺热阴伤所致的咽部红肿D、用于肺胃热盛所致的咽红肿痛E、用于外感风热所致的咽痛、咽干玄麦甘桔颗粒主治
根据我国票据法的规定,现金支票与转账支票的关系是()。
对经海关审定应征关税、增值税、消费税和监管手续费、船舶吨税的货物或船舶,纳税义务人应当在海关填发税费款缴纳证的次日起7日内(星期六、星期日和法定节日除外),向指定银行缴纳税费款。()
股市中常说的黄金交叉是指()。
甲公司是一家在境内外同时上市的企业,自2018年1月1日起执行财政部于2017年发布的新修订的《企业会计准则22号——金融工具确认和计量》等金融工具系列会计准则(以下简称“新准则”)。为确保新准则的有效执行,该公司于2017年11月组织会计人员进行了新准则
接收来自AaronK@sina.com的邮件。并回复该邮件,主题:来信己收到。正文内容为:来信收到,你所托之事一定办好,放心。祝好!
Mostyoungpeopleenjoysomeformofphysicalactivity.Itmaybewalking,cycling,orswimming,orinwinter,skatingorskiing
Whatisthemaintopicoftheconversation?
最新回复
(
0
)