首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序: option Base 1 Private Sub Command1_Click() Dim s As Variant a=Array(1, 2, 3, 4
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序: option Base 1 Private Sub Command1_Click() Dim s As Variant a=Array(1, 2, 3, 4
admin
2010-09-11
45
问题
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序: option Base 1 Private Sub Command1_Click() Dim s As Variant a=Array(1, 2, 3, 4, 5) Sum=0 For i=1 To 5 Sum=Sum_a(i) Next i X=Sum/5 For i=1 To 5 If a(i)>x Then Print a(i); Next i End Sub 程序运行后,单击命令按钮,在窗体上显示的内容是______。
选项
A、1 2
B、1 2 3
C、3 4 5
D、4 5
答案
D
解析
经过第一个For循环计算后,变量Sum的结果为数组a的元素各值之和,即为15,语句“X=Sum/5”的计算结果X为3。在第二个For循环中,数组a的元素中只有4和5能满足大于3的条件,所以在窗体上显示为4和5。
转载请注明原文地址:https://jikaoti.com/ti/ofg0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
【】属性是专门定义常值变量的保留字。
下列循环执行的次数是( )。inty=2,x;4;while(--x!=x/y){}
假设有以下代码:Strings="hello";Stringt="hello";charc[]={’h’,’e’,’l’,’l’,’o’};下列选项中,返回false的语句是______。
下面描述中,符合结构化程序设计风格的是( )。
随机文件流用( )接口来实现。
关于文件名的处理中,测试当前文件是否目录用______函数。
Thread类的方法中用于修改线程名字的方法是()。
编译Applet程序产生的文件的扩展名是( )。
如果要在Applet中显示特定的文字、图形等信息,可以在用户定义的Applet类中重写的方法是
下面程序运行后,语句”Printi”执行的次数是()。PrivateSubForm_Click()DimiAsInteger,jAsIntegeri=0Doi=i+1Forj=10To1Step-3
随机试题
试分析中国管理咨询业的特点及存在的主要问题。
30岁初孕妇,妊娠39周。妊娠中期产前检查未见异常。自妊娠38周开始自觉头痛、眼花。测血压160/110mmHg,尿蛋白2.5g/24h,宫缩不规律,胎心134/min,此时首先应采取哪项措施
根据《堤防工程施工规范》SL260—98,下列关于干砌石工程施工的说法错误的是()。
“备案号”栏应填()。“结汇方式”栏应填()。
求助者一般资料:小青,女孩,13岁,六年级学生,性格内向。求助者情况:求助者的母亲是一位传统的女性,对求助者的教育也使用传统的方法,一心要将自己的女儿教育为一个好女儿,因此女儿做任何事情都很认真,都按照大人的要求去做。在校很听老师的话;看到别的女
某次重要考试选拔命题教师,命题教师必须具备三个条件:第一,强烈的责任心;第二,丰富的知识;第三,严格的自律性。现有至少符合条件之一的甲、乙、丙、丁四名优秀教师报名参加。已知:①甲、乙自律性程度相同;②乙、丙责任心水平相同;③丙、丁并非都具有强烈的责任心;④
Accordingtothepassage,modemadvertisingis"authoritative"becauseofthewayit______.Theadvertisingmanissaidtosha
Thespeechismainlyabouttheorganizationofthecompany.
Schoolcounselors(areconvinced)thatitwillbeobligatorythateveryone(musthave)(somecomputertraining)inorderto(ent
Exceptionalchildrenaredifferentinsomesignificantwayfromothersofthesameage.Forthesechildrentodeveloptotheirf
最新回复
(
0
)