首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序: Option Base 1 Private Sub Command1_Click() d:0 c=10 X=Array(10,12,21,32,24
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序: Option Base 1 Private Sub Command1_Click() d:0 c=10 X=Array(10,12,21,32,24
admin
2020-06-30
74
问题
在窗体上画一个名称为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/7nHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有1个名称为L,istl的列表框,其中有若干列表项,并有下面程序代码:…P—rivateSubListl—DblClick()ExchangeListl.Listl.ListIndexEndSubPrivateSubExc
为计算an的值,某人编写了函数power如下:PrivateFunctionpower(aAsInteger,nAsInteger)AsLong DimsAsLong p=a Fork=1Ton p=p*a Next
设有窗体的Form_MouseMove事件过程如下:PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle) If(Button
程序调试的任务是( )。
有如下程序:PrivateSubForm_Click()DimsAsInteger,pAsIntegerp=1Fori=1To4 Forj=1Tois=s+j Nextj p=p*sNextiP
下列程序执行后,变量a的值为()。Dima,b,c,dAsSinglea=10:b=20:c=40Ifb>aThend=a:a=b:b=dEndIfIfc>aThend=a:a=c:c=dEndIfIfc>bThe
(1)在考生文件夹下有一个工程文件sjt3.vbp,其窗体中有一个红色方框和一个计时器控件。程序运行时每隔0.5秒,方框的颜色交替变为黄色和红色(黄色值为&HFFFF&;红色值为&HFF&);若单击鼠标右键,则停止变色;若单击鼠标左键,则方框左上角移到鼠标
设有如下函数:FunctionDelSpace(chAsString)AsInteger Dimn%,st$,c$ st="" n=0 Fork=1ToLen(ch) c=Mid(ch,k,1) I
随机试题
(2015年10月第5题)南于企业自身经营失误,造成竞争地位下降、财务状况恶化而被迫采取的收缩战略属于()
肝脏药物代谢酶的特点是
下列各项中,属于他人使用本企业资产应确认的收入有()。
一义的国际金融市场包括()。
企业以分期收款方式销售货物的,应当按照合同约定的收款日期确认收入。()
(2009年考试真题)下列争议解决方式中,适用于解决平等民事主体当事人之间发生的经济纠纷的有()。
_____theytocutdownthecostofadvertising,thecostofproduction______significantlyfall.
人会受到与任务无关刺激的干扰导致注意偏离当前进行的活动,这种注意现象是()。
下列关于法律要素的表述,正确的是()(2015年法学综合课单选第1题)
Youwillhearaconversationonpublicrelations.Foreachquestion(23-30),markoneletter(A,B,orC)forthecorrectanswer
最新回复
(
0
)