首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为Commandl的命令按钮,然后编写如下程序: 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
在窗体上画一个名称为Commandl的命令按钮,然后编写如下程序: 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
admin
2020-04-18
59
问题
在窗体上画一个名称为Commandl的命令按钮,然后编写如下程序:
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、2≥
D、77
答案
C
解析
本题的循环中依次用数组的每个元素和c进行比较,如果比c大就将数组元素累加,并令数组元素成为新的c值;否则令累加和d减去c。在5次循环中d的累加过程为-10+12+2l+32-32=23。
转载请注明原文地址:https://www.kaotiyun.com/show/xyTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
为了读取数据,需打开顺序文件"D:\data5.txt",以下正确的命令是
在窗体上画一个名称为Command1的命令按钮,再画两个名称分别为Label1、Label2的标签,然后编写如下程序代码:PrivateXAsIntegerPrivateSubCommand1_Click()X=5:
窗体上有名称分别为Text1、Text2的文本框,名称为Command1的命令按钮。运行程序,在Text1中输入"FormList",然后单击命令按钮,执行如下程序:PrivateSubCommand1_Click() Text2.Text=UC
阅读下面的程序代码:PrivateSubCommand1_Click()Printfun(748639,5)EndSubPrivateFunctionfun(xAsLong,aAsInteger)
在黑盒测试方法中,设计测试用例的主要根据是( )。
设循环队列的存储空间为Q(1:35),初始状态为front=rear=35。现经过一系列入队与退队运算后,front=15,rear=15,则循环队列中的元素个数为
VB变量x!的数据类型是
VisualBasic根据计算机访问文件的方式将文件分成3类,其中不包括()。
下列说法中,错误的是
随机试题
AspectsthatMayFacilitateReadingI.Determiningyour【T1】______A.Readingfor【T2】______:likereadingthenovelHar
A.二氨基萘荧光法B.二硫腙分光光度法C.二苯碳酰二肼分光光度法D.4一氨基一3-联氨-5一巯基一1,2,4一三氮杂茂分光光度法E.N,N一二乙基对苯二胺分光光度法用于测定水中铬(六价)的方法是
母体抗体经胎盘进入胎儿循环称为
患者,女,64岁。因头痛、心悸和心前区不适感,门诊查血压:160/95mmHg。据此可以推断该患者高血压分级属于
根据能量释放理论观点,事故的本质是()。
甲公司应付乙公司货款一笔,到期时间为2012年12月1日。货款到期后,甲公司未按期支付,乙公司亦未催要。直至2014年12月2日,乙公司要求甲公司清偿,甲公司无力全额清偿;同时,乙公司掌握的确切证据表明甲公司股东王某本应于2012年1月1日缴纳的出资尚未缴
下列各项中,按照我国现行税法,免缴城镇土地使用税的土地是()。
20×5年年初,客户因质量问题退回了X公司于20×4年12月赊销的产品,但X公司直接抵减了退回当月的销售收入,没有调整上年财务报表。注册会计师在编制20×4年审计调整分录时,应当()。
InCanada,independencedidn’tcomewithabang.Itwasaslowjourneythatbeganmorethan150yearsagowiththecountry’sfor
Thousandsof______atthestadiumcametotheirfeettopaytributetoanoutstandingperformance.
最新回复
(
0
)