首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生目录下有一个工程文件sjt5.vbp,其功能是:单击“读数据”按钮,则把考生目录下的文件in5.dat 中的100个整数读到数组a中;单击“计算”按钮,则找出其中与所有数的平均值(平均值截尾取整)最接近的整数,放到文本框中;单击“存盘”按钮则把计算结
在考生目录下有一个工程文件sjt5.vbp,其功能是:单击“读数据”按钮,则把考生目录下的文件in5.dat 中的100个整数读到数组a中;单击“计算”按钮,则找出其中与所有数的平均值(平均值截尾取整)最接近的整数,放到文本框中;单击“存盘”按钮则把计算结
admin
2019-01-16
103
问题
在考生目录下有一个工程文件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全国计算机二级
相关试题推荐
以下选项中,不合法的VisualBasic的变量名是( )。
下面关于直线控件的叙述中正确的是
下面不属于软件设计阶段任务的是
编写如下程序:PrivateSubCommand1_Click()DimnAsLong,sAsStringn=InputBox("输入一个数")DoWhilen0s=s&nMod
窗体上有一个名称为Combo1的组合框,要求在其编辑区输入文本并按回车键后,编辑区中的文本被添加到列表中。下面能实现这一功能的是( )。
下面控件中,没有Caption属性的是( )。
能够存放组合框的所有项目内容的属性是( )。
软件按功能可以分为:应用软件、系统软件和支撑软件(或工具软件)。下面属于应用软件的是( )。
有下面程序代码:PrivateSubCommand1_Click()a=Array(1,2,3,4,5,6,7,8,9,10)n=UBound(a)Fork=0ToUBound(a)
随机试题
肾上腺素一般不用于
A.6-磷酸葡萄糖脱氢酶B.苹果酸脱氢酶C.丙酮酸脱氢酶D.NADH脱氢酶E.葡萄糖-6-磷酸酶
下列对居住区绿地的功能概括中,叙述错误的是()。
(2011年)下列关于企业所得税的说法中,正确的是()。
某公司拟进行股票投资,计划购买A、B、C三种股票,并设计了甲、乙两种投资组合,A、B、C三种股票的β系数分别为1.5、1.0和0.5。甲种投资组合中,A、B、C三种股票的投资比重分别为20%、30%和50%。乙种投资组合中,A、B、C三种股票的投资比重分别
在公共部门或大型企业中,如果岗位差别很明显,适用的岗位评价方法是()。(2004年11月二级真题)
被公认为世界上第一部马克思主义的教育学著作,总结了苏联20世纪二三十年代教育正反两方面的经验,论述了全面发展的教育目的,对我国的教育有着广泛影响的教育专著是()。
社会主义应当有高度的民主、完备的法制和安定的社会环境。在初级阶段,不安定因素甚多,因此维护安定团结尤为重要。必须正确处理人民内部矛盾,但同时人民民主专政也不能削弱。社会主义民主政治的建设,既因为封建主义影响很深而有特殊的迫切性,又因为受到历史的、社会的条件
按照《公民道德建设实施纲要》的要求,下列不属于公民道德基本规范的内容是()。
SavingsareasimportantasinsurancetoprotectpeopleagainstlargefinanciallossesThispassagegivesageneraldescription
最新回复
(
0
)