首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为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
2015-06-30
46
问题
在窗体上画一个名称为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/WyQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在C盘当前文件夹下建立一个名为StuData.txt的顺序文件。要求用InputBox函数输入5名学生的学号(StuNo)、姓名(StuName)和英语成绩(StuEng)。PrivateSubFormClick()Open"C
每个ActiveX控件都是扩展名为______的独立文件。
下面程序执行的结果是______。PrivateSubForm_Click()A$=“123”:B$=“456”C=Val(A$)+Val(B$)Print
以下语句错误的是:______。
下列关于线性表的叙述中,不正确的是______。
在用Open语句打开文件时,如果省略“For方式”,则打开的文件的存取方式是______。
如果在C盘当前文件夹下已存在名为StuDatA.dar的顺序文件,那么执行语句Open“C:StuDatA.dar”ForAppendAs#1之后将______。
在窗体上画两个文本框,其名称分别为Text1和Text2,然后编写如下事件过程:PrivateSubForm_Load()ShowText1.Text=""Text2.Text=""
假如用复制、粘贴的方法建立了一个命令按钮数组Command1,以下对该数组的说法错误的是
随机试题
移行细胞癌最好发的部位是
关于生理性黄疸描述错误的是
王某被姜某打伤致残,在开庭审判前向法院提起附带民事诉讼,并提出财产保全的申请。法院对于该申请的处理,下列哪一选项是正确的?(2013年卷二第32题)
计算机存储器是按字节进行编址的,一个存储单元是()。
外币交易应当在初始确认时,采用交易发生日的即期汇率将外币金额折算为记账本位币金额;也可以采用按照系统合理的方法确定的、与交易发生日即期汇率近似的汇率折算。()
对企业的绩效管理系统进行总体评价。应从()等内容入手。
Youwillhearfiveshortrecordings.Foreachrecording,decidewhatwayofresolvingcustomerservicecomplaintsthespeake
Economistsusuallystudymarkets.Now,twoAmericanshavewontheNobelPrizeineconomicsfornotstudyingmarkets.Theywills
A、Allsexuallyassaultedwomenareattheageof18to24.B、Universitystudentsusuallydon’treportsexualassault.C、Non-stud
Millionsofteenagersareindangerofputtingtheirhealthatriskbygettinghookedone-cigarettes,expertswarn.Leadinghea
最新回复
(
0
)