首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为Commandl的命令按钮,然后编写如下程序: Option Base1 Private Sub Commandl_Click() Dim a As Variant a=Array(1,2,3,4,5)
在窗体上画一个名称为Commandl的命令按钮,然后编写如下程序: Option Base1 Private Sub Commandl_Click() Dim a As Variant a=Array(1,2,3,4,5)
admin
2020-04-18
38
问题
在窗体上画一个名称为Commandl的命令按钮,然后编写如下程序:
Option Base1
Private Sub Commandl_Click()
Dim a 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、12
B、123
C、345
D、45
答案
D
解析
本题考查数组和循环。在Commandl的Click事件代码里面,定义了数组a,并通过Array函数给数组赋初值。接下来通过For循环计算数组元素的累加和Sum,得到累加和后x=Sum/5来计算平均值。最后通过For循环,打印大于平均值的元素。
转载请注明原文地址:https://kaotiyun.com/show/UZTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
要使两个单选按钮属于同一个框架,下面三种操作方法中正确的是①先画一个框架,再在框架中画两个单选按钮②先画一个框架,再在框架外画两个单选按钮,然后把单选按钮拖到框架中③先画两个单选按钮,再画框架将单选按钮框起来
窗体上有一个名称为Timer1的计时器控件,一个名称为Shapel的形状控件,其Shape属性值为3(Circle)。编写程序如下:PrivateSubForm_Load()Shapel.Top=0:Timerl.Interval=100
下列关于滚动条的叙述中,错误的是
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。以下程序的功能是从顺序文件中读取数据:PrivateSubCommandl_Click()DimslAsString,s2AsStringO
下列操作中不能向工程添加窗体的是
下面程序运行时,若输入395,则输出结果是PrivateSubCommandl_Click()Dimx%x=InputBox(”请输入一个3位整数”)PrintxMod10,x\100,(xMod
以下程序的功能是随机产生10个两位的整数:OptionBase1PrivateSubCommandl_Click()Dima(10)AsInteger,iAsIntegerRandomize
在窗体上画两个单选按钮(名称分别为Optionl、Option2,标题分别为“宋体”和“黑体”)、1个复选框(名称为Checkl,标题为“粗体”)和1个文本框(名称为Text1,Text属性为“改变文字字体”)。程序运行后,要求“宋体”单选按钮和“粗体”复
下面关于命令按钮的叙述中错误的是
窗体上有1个名称为CD1的通用对话框,1个名称为Commandl的命令按钮。命令按钮的单击事件过程如下:PrivateSubCommandl_Click()CD1.FileName=“”CD1.Filter=”AllFi
随机试题
简述扁平式组织结构的优缺点。
钩端螺旋体致病的主要物质是:()
患者,女,56岁。反复腰痛2年。符合辨证取穴原则的穴位是
关于侵犯公民人身权利的犯罪,下列哪一选项是正确的?(2017年卷二15题)
对材料免检的含义是( )。
单元格的删除与清除的区别有()。
姚某从毒品走私犯手中购买海洛因2300克,准备贩卖牟利。为遮人耳目,姚从医院太平间偷盗了一具婴儿尸体,将海洛因藏匿于婴儿的尸体中携带到某市。为使海洛因尽快脱手,姚将海洛因掺杂在自己卷制的香烟中,号称“神烟”,包治百病,使不明真相的钱某、潘某等10余人吸食成
转移性支出,是经过政府财政之手,将某部门、集团和个人的部分收入转移到另一部门、集团和个人手中。这是一种()。
对肾疾病患者,下列有关术前准备和对手术耐受性的估计,错误的是
Theexistinglawwhichappliestoeverycaserequiresequaltreatmentforall,_____race,religion,orsex.
最新回复
(
0
)