首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序: Option Base 1 Private Sub Commandl_Click() d=0:c=10:x=Array(10,12,21,32,24) Fo
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序: Option Base 1 Private Sub Commandl_Click() d=0:c=10:x=Array(10,12,21,32,24) Fo
admin
2017-11-23
38
问题
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:
Option Base 1
Private Sub Commandl_Click()
d=0:c=10:x=Array(10,12,21,32,24)
For i=1 To 5
Ifx(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
解析
本题的循环中依次用数组的每个元素和c进行比较,如果比c大就将数组元素累加,并令数组元素成为新的c值;否则令累加和d减去c。在5次循环中d的累加过程为-10+12+21+32-32=23。
转载请注明原文地址:https://jikaoti.com/ti/hly0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面程序运行后,语句“Printi”执行的次数是()。PrivateSubForm_Click()DimiAsInteger,jAsIntegeri=0Do
在窗体上画一个文本框,名称为Text1,画一个命令按钮,名称为Command1。程序运行时,单击命令按钮,能将事先输入到文本框中的内容一个字符一个字符地写入顺序文件test.dat中。请在空格处填上适当的内容,将程序补充完整。PrivateSu
在数据库理论中,数据物理结构的改变,如存储设备的更换、物理存储的更换、存取方式等都不影响数据库的逻辑结构,从而不引起应用程序的变化,称为【】。
执行下列程序后,鼠标单击窗体,输出结果为。 PrivateSubForm_Click() Print“Click”; EndSub PrivateSubForm_MouseDown(ButtonAsInteger,Shift_
在窗体上画一个命令按钮,然后编写如下程序:Functionfunl(ByValBumAsLong)AsLongDimkAsLongk=0Bum=Abs(Bum)DoWhi
在窗体上画一个名称为Command1的命令按钮,然后编写如下代码:OptionBase1PrirateSubCommand1_Click()d=0c=10x=Array(10,1
为计算1+2+22+23+24+…+210的值,并把结果显示在文本框Text1中,若编写如下事件过程:PrivateSubCommandl_Click()Dima%,b%,i%s=1a=
要存放如下方阵的数据,在不浪费存储空间的基础上,应使用的声明语句是()。
随机试题
矫正是针对塑性变形的。
下列除哪项外都是主治风湿热痹的药组()(1997年第38题)
肺结核肺水肿
机体内物质转化和能量转化有赖于气的何种功能()
《中华人民共和国对外贸易法》中所称的对外贸易是指货物的进出口()
在U公司2005年度会计报表审计小组中,刘宏负责对D原材料收发业务实施审计,以确定全年领取的D材料的实际价值。由于全年发生的D材料领料业务多达32698次,刘宏决定采用变量抽样方法实施实质性测试。为此,刘宏确定的可信赖程度为90%,相应的可信赖程度系数为1
NFC是一种远距离连接协议,提供各种设备间轻松、安全、迅速而自动的通信。与无线世界中的其他连接方式相比,NFC是一种远距离的私密通信方式。()
正是因为畏惧和仇视舆论监督,少数无良官吏要绞尽脑汁甚至是______地扼杀舆论监督。个别无良官员为了封杀记者之口,可以采用重金贿赂,可以滥用权力进行阻挠,甚至于不惜采取暴力手段。填入横线部分最恰当的一项是()。
Inthisparttheinterlocutorasksquestionstoeachofthecandidatesinturn.Youhavetogiveinformationaboutyourselfand
A、Theywerenaughty.B、TheyhatedMr.Flowers.C、Mr.Flowersdidn’tletthemwatchflowers.D、Theyjustwantedtoplayajokeon
最新回复
(
0
)