首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生目录下有一个工程文件sjt5.vbp,其功能是:单击“读数据”按钮,则把考生目录下的文件in5.dat 中的100个整数读到数组a中;单击“计算”按钮,则找出其中与所有数的平均值(平均值截尾取整)最接近的整数,放到文本框中;单击“存盘”按钮则把计算结
在考生目录下有一个工程文件sjt5.vbp,其功能是:单击“读数据”按钮,则把考生目录下的文件in5.dat 中的100个整数读到数组a中;单击“计算”按钮,则找出其中与所有数的平均值(平均值截尾取整)最接近的整数,放到文本框中;单击“存盘”按钮则把计算结
admin
2019-01-16
34
问题
在考生目录下有一个工程文件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全国计算机二级
相关试题推荐
利用通用对话框控件打开字体对话框的操作是
设窗体上有一个Text1文本框和一个HScroll1水平滚动条,并有下面的事件过程:PrivateSubHScroll1_Change()Text1=HScroll1EndSub在程序运行时,当把滚动框移动
下面不属于软件设计阶段任务的是
在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为Command1),然后编写如下事件过程:PrivateSubCommand1_Click() x=0 DoWhilex
窗体上有一个名称为Combo1的组合框,要求在其编辑区输入文本并按回车键后,编辑区中的文本被添加到列表中。下面能实现这一功能的是( )。
下面正确使用动态数组的是( )。
设窗体上有一个名称为List1的列表框,并有若干列表项。下面语句中不能在所有列表项之后追加一个列表项的是
对于含有多个窗体的工程而言,以下叙述中正确的是()。
随机试题
号为“人境庐主人”的诗人是()
人体寄生虫中最小的蠕虫卵是
男性,60岁,肠梗阻3天入院。查体:血压70/40mmHg,血钠125mmol/L,血钾3.2mmol/L,血气分析示pH7.31。若需要补充碱剂,如果补充碱剂过快,患者不会发生下列哪种情况
心房颤动发生后可使心排血量下降
患者男,30岁。前列腺增生,尿潴留,来院就诊,遵医嘱行留置导尿术,正确的操作方法是()。
在设计柱下条形基础的基础梁最小宽度时,下列哪项为正确的?()[2011年真题]
1982年中共________第一次把教育列为经济发展的战略重点之一。
(中央财经大学2011年初试真题)稽查人员于2010年5月20日对B市A公司2009年纳税情况进行检查,经过审查,获得如下资料:第一,企业有关情况:A公司是增值税一般纳税人,主要生产不锈钢产品。该公司执行新会计制度与现行税收政策,成本利润率适用
Thehistoryofthecomputerinthetwentiethcenturyisoneofdramaticadaptationandexpansion.Thecomputerhadmodestbeginn
"Cool"isawordwithmanymeanings.Itstraditionalmeaningisusedto【36】atemperaturethatisfairlycold.Astheworldhas【3
最新回复
(
0
)