首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,其功能是: ①单击“读数据”按钮,则把考生文件夹下in5.dat文件中的100个0~999之间的整数读入数组a中; ②单击“计算”按钮,则对这100个整数中的所有水仙花数(当一个数的值等于该数中
在考生文件夹下有一个工程文件sjt5.vbp,其功能是: ①单击“读数据”按钮,则把考生文件夹下in5.dat文件中的100个0~999之间的整数读入数组a中; ②单击“计算”按钮,则对这100个整数中的所有水仙花数(当一个数的值等于该数中
admin
2018-10-29
49
问题
在考生文件夹下有一个工程文件sjt5.vbp,其功能是:
①单击“读数据”按钮,则把考生文件夹下in5.dat文件中的100个0~999之间的整数读入数组a中;
②单击“计算”按钮,则对这100个整数中的所有水仙花数(当一个数的值等于该数中各位数字的立方和时,此数被称为水仙花数。例如,153=1
3
+5
3
+3
3
,所以153就是一个水仙花数)求平均值,并对该平均值数尾取整后显示在文本框Text1中。
窗体中给出了所有控件(如图1-183所示),已给“读数据”按钮的Click事件过程,请为“计算”按钮编写适当的事件过程实现上述功能。
注意:不得修改已经存在的控件和程序,在结束程序运行之前,必须进行计算,且必须用窗体右上角的关闭按钮结束程序,否则无成绩。最后,程序按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开考生文件夹下的本题工程文件sjt5.vbp,在代码编辑窗口的指定位置编写“计算”按钮的单击事件过程。 参考代码: Dim s As Long, n As Integer For i = 1 To 100 If isnarc(a(i)) Then s = s + a(i) n = n + 1 End If Next i Text1.Text = Fix(s / n) 步骤2:按要求将文件保存至考生文件夹中。 步骤3:按<F5>键运行程序,先单击“读数据”按钮,接着单击“计算”按钮,然后单击窗体右上角的关闭按钮结束程序。
解析
转载请注明原文地址:https://kaotiyun.com/show/lCFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在名称为Frame1的框架中,有两个名称分别为op1、op2的单选按钮,标题分别为"单程"、"往返",如图所示。以下叙述中,正确的是( )。
设a=10,b=5,c=1,执行语句Printa>b>c后,窗体上显示的是( )。
设窗体的名称为Form1,标题为Win,则窗体的MouseDown事件过程的过程名是( )。
下面不能在信息框中输出"VB"的是( )。
在数据管理技术发展的三个阶段中,数据共享最好的是( )。
假定有以下通用过程:FunctionFun(nAsInteger)AsInteger x=n*n Fun=x-11EndFunction在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:PrivateS
窗体上有一个名称为Text1的文本框;一个名称为Timer1的计时器控件,其Interval属性值为5000,Enabled属性值是True。Timer1的事件过程如下:PrivateSubTimer1_Timer() StaticflagA
当文本框中的内容发生改变时所触发的事件是( )。
窗体上有1个名称为Command1的命令按钮;1个名称为List1、没有列表项的列表框。编写如下程序:PrivateSubCommand1_Click()DimxAsString,sAsString,tempAsString
随机试题
重度营养不良患儿,护士应重点观察
治疗急性心肌梗死引起的室性心律失常的最佳药物是
患者,男性,9岁,舌体外伤出现部分组织缺损,处理原则是
背景资料某高速公路项目,路面面层为沥青混凝土,基层为级配碎石,项目经理部决心精心组织、科学施工,搞好现场技术质量管理,做了包括如下环节的工作:——项目经理部由总工程师组织进行了技术交底;——为真正落实公司的现场技术管理制度制定了执行细则,其中,为避免
采用个案管理的方法进行矫正社会工作时应注意的问题有()。
当代中国,坚持“发展是硬道理”的本质要求是()。
在多媒体信号传输过程中,如果图像与语音没有同步,人物说话的口型与声音就不会吻合,观众会感觉很不舒服。这种音频流与视频流之间的相关叫做【 】。
下列关于SQL对表的定义的说法中,不正确的选项是()。
Humanintelligencetechnologyhasbeenthrivingoverthepastdecade.Now,wehavesuper-computersthatevenbeathumansingo.
Itisonlyrightthatthestarsshouldbepaidinthisway.Don’tthetopmeninindustryearn【B1】______salariesfortheservice
最新回复
(
0
)