首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为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
12
问题
在窗体上画一个名称为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全国计算机二级
相关试题推荐
PrivateSubForm_Activate()Forj=1to3x=3ForI=1to2x=x+6NextINextjPrintxEndSub程序运行后,窗体上显示的结
下述关于数据库系统的叙述中正确的是______。
下面不属于软件工程过程的4种基本活动
对长度为10的线性表进行冒泡排序,最坏情况下需要比较的次数为
窗体上有一个名称为Optionl的单选按钮数组,程序运行时,当单击某个单选按钮时,会调用下面的事件过程PrivateSubOptionl_click(IndexAsInteger)EndSub下面关于此过程的参数Index的叙述中正确的是(
执行下面的程序段后,变量S的值为()。S=5Fori=2.6To4.9Step0.6S=S+lNexti
(1)在考生文件夹下有一个工程文件sjt3.vbp。窗体上有名称为Timerl的定时器,以及名称为Linel和Line2的两条水平直线。请用名称为Shapel的形状控件,在两条直线之间画一个宽和高都相等的形状,其显示形式为圆,并设置适当属性使其满足以下要求
在学校中,“班级”与“学生”两个实体集之间的联系属于()关系。
若实体A和B是一对多的联系,实体B和C是一对一的联系,则实体A和C的联系是
一间宿舍可住多个学生,则实体宿舍和学生之间的联系是( )。
随机试题
油冷离心式压缩机中的润滑油在被喷入气缸压缩完之后,直至在油分离器中与压缩空气分离之前,基本上均以()状存在。
妊娠合并肝炎,下述处理哪项正确
我国目前最常见的缩窄性心包炎病因是
退休养老规划是理财规划中至关重要的部分,()是对退休养老规划中所持原则的错误描述。
甲企业与20×7年1月1日支付银行存款1925340元(包括甲企业支付的手续费2740元),在交易所购买了20000张乙企业发行的5年期公司债券(市值96.13元),该公司债券每张票面金额100元,票面利率4%,实际利率4.86%。乙企业于每年年底支付利息
下列有关中国近代史上不平等条约对应关系不正确的是()。
某高层楼宇巡楼员在例行的巡检过程中,发现了某户业主未经申报擅自违章更换了一套铝合金门窗。于是巡楼员马上开出违章整改单,要求其进行整改。【问题】本案例从表面上看是在巡查中发现了问题,但仔细分析,此案例中存在的哪些问题需要引起注意?
《中华人民共和国义务教育法》的基本属性有_______、免费性、平等性。
MyprofessorbrotherandIhaveanargumentaboutheadandheart,aboutwhetherheovervaluesIQwhileIleanmoretowardEQ.We
Nogovernmentisperfect.Oneofthechiefvirtusofademocracy,however,S1.______isthatitsdefectsarealwaysvisib
最新回复
(
0
)