首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生目录下有一个工程文件sjt5.vbp,其功能是:单击“读数据”按钮,则把考生目录下的文件in5.dat 中的100个整数读到数组a中;单击“计算”按钮,则找出其中与所有数的平均值(平均值截尾取整)最接近的整数,放到文本框中;单击“存盘”按钮则把计算结
在考生目录下有一个工程文件sjt5.vbp,其功能是:单击“读数据”按钮,则把考生目录下的文件in5.dat 中的100个整数读到数组a中;单击“计算”按钮,则找出其中与所有数的平均值(平均值截尾取整)最接近的整数,放到文本框中;单击“存盘”按钮则把计算结
admin
2019-01-16
105
问题
在考生目录下有一个工程文件sjt5.vbp,其功能是:单击“读数据”按钮,则把考生目录下的文件in5.dat 中的100个整数读到数组a中;单击“计算”按钮,则找出其中与所有数的平均值(平均值截尾取整)最接近的整数,放到文本框中;单击“存盘”按钮则把计算结果存盘。窗体中给出了所有控件(如图1-312所示)和“读数据”按钮及“存盘”按钮的Click事件过程,请为“计算”按钮编写适当的事件过程实现上述功能。
注意:不得修改已经存在的程序,在结束程序运行之前,必须用“存盘”按钮存储计算结果,否则无成绩。最后,程序按原文件名存盘。
提示:与平均值最接近的数可能大于也可能小于平均值。
选项
答案
【操作步骤】 步骤1:打开考生文件中的本题工程文件sjt5.vbp,在代码编辑窗口中,编写“计算”按钮的单击事件过程。 参考代码: Private Sub Command2_Click() Dim i, j, k, i1 As Integer j = 0 For i = 1 To 100 j = j + a(i) Next i j = Fix(j / 100) k = Abs(a(1) - j) i1 = 1 For i = 2 To 100 If Abs(a(i) - j) < k Then k = Abs(a(i) - j) i1 = i End If Next i Text1.Text = a(i1) End Sub 步骤2:按要求将文件保存至考生文件夹中。 步骤3:按
键运行程序,先单击“读数据”按钮,再单击“计算”按钮,最后单击“存盘”按钮。
解析
转载请注明原文地址:https://kaotiyun.com/show/guFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画两个单选按钮,名称分别为Option1、Option2,标题分别为"宋体"和"黑体";1个复选框(名称为Check1,标题为"粗体")和1个文本框(名称为Text1,Text属性为"改变文字字体"),窗体外观如图所示。程序运行后,要求"宋体"单选
设窗体上有一个Text1文本框和一个HScroll1水平滚动条,并有下面的事件过程:PrivateSubHScroll1_Change()Text1=HScroll1EndSub在程序运行时,当把滚动框移动
编写如下程序:PrivateSubCommand1_Click()DimscoreAsIntegerscore=86Ifscore>85Thenr=1ElseIfscore>
为了保存数据,需打开顺序文件"E:\UserData.txt",以下正确的命令是
要使两个单选按钮属于同一个框架,下面三种操作方法中正确的是( )。①先画一个框架,再在框架中画两个单选按钮②先画一个框架,再在框架外画两个单选按钮,然后把单选按钮拖到框架中③先画两个单选按钮,再画框架将单选按钮框起来
在设计窗体时双击窗体的任何地方,可以打开的窗口是( )。
下面关于控件数组的叙述中正确的是
设窗体上有一个名称为Timer1的计时器控件,其Interval属性被设置为500,Enabled属性被设置为True;还有一个名称为Text1的文本框和下面的事件过程:PrivateSubTimer1_Timer()Sta
设窗体上有一个名称为List1的列表框,并有若干列表项。下面语句中不能在所有列表项之后追加一个列表项的是
随机试题
19世纪60—70年代,新疆爆发危机,英国、俄国想趁机分裂新疆,清政府派兵予以收复,当时的清军将领是()。
患者男,44岁。因“右小腿疼痛”来诊。患者6个月前车祸致右胫骨中下1/3骨折,行手法复位石膏外固定。3个月前石膏已拆除。查体:体温36.6℃,脉搏80次/min,呼吸24次/min,血压125/75mmHg。头晕、目干、容易疲劳、口燥咽干、失眠多梦。右小腿
车削曲轴时,两端主轴径较小,不能直接钻削曲柄颈中心孔,一般可在两端留工艺轴颈或()。
用人是领导者的一项重要工作。任何一项决策都需要具体的人来完成,这就关系到选用人才的问题。领导工作的成败在很大程度上取决于用人的得失。用人是一门学问,也是一门艺术。在当代,它是制度机制与领导者个人相互作用的结果。邓小平明确指出:“善于发现人才,团结人才,使用
慢性支气管炎的肺泡壁可出现的病理变化主要包括
通过对金属基底冠进行除气,预氧化操作不能达到的目的是A.去除金属表面有机物B.释放金属表层气体C.释放金属内部应力D.在金属表面形成氧化膜E.降低金属热膨胀系数
患儿,4岁,平素体健。随父母到云南旅游被蚊虫叮咬,2周后突发高热、寒战明显,继之大汗后热退,精神如常,无其他不适,未进行特殊处理。此后次日同一时间出现同样症状来院就诊,查体无其他阳性体征。该患儿最可能的诊断是()。
净超额运营成本是超额运营成本扣除所得税以后的余额。()
建设一支结构合理、素质过硬、充满活力的人力资源队伍,是每一个领导者的期望和目标,是干事创业的有力支撑,也是一个单位得以高效运转并取得良好绩效的坚实基础。实现新老职员间的能力相容,是关系到团队人力资源整合深度、团队战斗力发挥效度和预期绩效达成度的重点内容之一
Thearrestofamanforallegedlypostingapictureofaburningpoppy(Peoplewearpoppytomemorizethosewhodiedinthetwow
最新回复
(
0
)