首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为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
20
问题
在窗体上画一个名称为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全国计算机二级
相关试题推荐
有如下程序:OptionBase1PrivateSubForm_Click()Dimarr,SumSum=0arr=Array(1,3,5,7,9,11,13,15,
在窗体上画一个命令按钮Command1,然后编写如下程序:PrivateSubCommand1_Click()Dimarr()AsIntegerReDimarr(3)Fori=0To3
结构化程序设计包含3种基本控制结构,其中SCAN-ENDSCAN语句属于______结构。
下列关于菜单的说法错误的是()。
一个教师讲授多门课程,一门课程由多个教师讲授。则实体教师和课程间的联系是
下面程序运行后,语句”Printi”执行的次数是()。PrivateSubForm_Click()DimiAsInteger,jAsIntegeri=0Doi=i+1Forj=10To1Step-3
在设计阶段,如果双击窗体上的一个文本框控件,则在代码窗口中显示该控件的事件过程所对应的事件是
在考生文件夹中有一个工程文件sjt5.vbp,其功能是:找出矩阵元素的最大值,并求出矩阵对角线元素之和,窗体外观如图2-165所示。程序运行时,矩阵数据被放入二维数组a中。当单击”找矩阵元素最大值”按钮时,找出矩阵中最大的数,并显示在标签Label3中。当
在考生文件夹中有一个工程文件Sjt=5.vbp。该程序的功能是:分别统计7*7数组四周元素之和及四周元素中能够被7整除的元素的个数,并将统计结果在相应的标签中显示。请仔细阅读已有程序,然后在标出的位置编写适当的程序,实现上述的功能。 要求:不得修改原有
下列排序方法中,最坏情况下比较次数最少的是()。
随机试题
高二(3)班的一些学生因热爱打篮球,自发组织成立了篮球运动小组,并约定在每周五放学后进行篮球比赛,以提高打篮球的水平。这种群体组织属于()。
治疗风火牙痛选用:治疗胃火牙痛选用:
患者,男性,36岁。胃穿孔合并腹膜炎手术后第7天,体温39℃,伤口无红肘一,大便次数频繁,有黏液,伴里急后重,该患者可能并发了
通过和解协议,由出席会议的有表决权的债权人过半数同意并且其所代表的债权额占无财产担保债权总额的多少比例以上的,方为通过?( )。
完善的货币政策工具体系的组成不包括()。
股票实质上代表了股东对股份公司的()
根据“营改增”的规定,下列适用5%的征收率包括()。
下列关于教学模式特点的表述,不正确的是()
甲乙丙三人合作开发一项技术,合同中未约定权利归属。该项技术开发完成后,甲、丙想要申请专利,而乙主张通过商业秘密来保护。对此,下列选项错误的是
Everyonewouldhaveheardthefamousphrase"Angerisoneshortofdanger".Itisanage-oldadage,butitis【C1】______andstill
最新回复
(
0
)