首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,其功能是: ①单击“读数据”按钮,则把考生文件夹下in5.dat文件中的100个0~999之间的整数读入数组a中; ②单击“计算”按钮,则对这100个整数中的所有水仙花数(当一个数的值等于该数中各位数字的立方和
在考生文件夹下有一个工程文件sjt5.vbp,其功能是: ①单击“读数据”按钮,则把考生文件夹下in5.dat文件中的100个0~999之间的整数读入数组a中; ②单击“计算”按钮,则对这100个整数中的所有水仙花数(当一个数的值等于该数中各位数字的立方和
admin
2012-10-09
63
问题
在考生文件夹下有一个工程文件sjt5.vbp,其功能是:
①单击“读数据”按钮,则把考生文件夹下in5.dat文件中的100个0~999之间的整数读入数组a中;
②单击“计算”按钮,则对这100个整数中的所有水仙花数(当一个数的值等于该数中各位数字的立方和时,此数被称为水仙花数。例如,153=1
3
+5
3
+3
3
,所以153就是一个水仙花数)求平均值,并对该平均值数尾取整后显示在文本框Textl中。窗体中给出了所有控件(如图1-180所示),已给“读数据”按钮的Click事件过程,请为“计算”按钮编写适当的事件过程实现上述功能。
注意:不得修改已经存在的控件和程序,在结束程序运行之前,必须进行计算,且必须用窗体右上角的关闭按钮结束程序,否则无成绩。最后,程序按原文件名存盘。
选项
答案
【操作步骤】 步骤l:打开考生文件夹下的本题工程文件sjt5.vbp,在代码编辑窗口的指定位置编写“计算”按钮的单击事件过程。 参考代码: Dim s As Long,n As Integer For i=l To 100 If isnarc(a(i))’2hen s=s+a(i) n=n+1 End If Next i Textl.Text=Fix(s/n) 步骤2:按要求将文件保存至考生文件夹中。 步骤3:按
键运行程序,先单击“读数据”按钮,接着单击“计算”按钮,然后单击窗体右上角的关闭按钮结束程序。
解析
程序设计思路:声明一个变量s用于记录水仙花数的和,一个变量n记录水仙花数的个数。用For循环逐一取出数组a中的100个元素,通过调用函数isnrc判断其是否为一个水仙花数,若是水仙花数则将其加入到累加和s中.同时令n=n+l。循环结束后,s/n的值就是水仙花数的平均数。
转载请注明原文地址:https://kaotiyun.com/show/U3hp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
执行以下语句过程,在窗体上显示的内容是 OptionBase0 PrivateSubCommand3_Click() Dimd d=Array("a","b","c","d") Printd(1);d(3)EndSub
VisualBasic中的控件分为3类,它们是标准控件、【】和可插入对象。
目录列表框的Path属性的作用是
在窗体上画一个名称为TxtA的文本框,然后编写如下的事件过程:PrivateSubTxtA_KeyPress(keyaseiiasinteger)……EndSub若焦点位于文本框中,则能够触
在VisualBasic中,要将一个窗体加载到内存进行预处理但不显示所使用的语句是
当组合框的Style属性设置为何值时,组合框称为简单组合框?
下列叙述中,不属于测试的特征的是
数据库管理系统是位于用户与【】之间的软件系统。
下面的属性中,用于自动调整图像框中图形内容的大小的是
不在VisualBasic6启动时的基本控件集中的是______。
随机试题
有关改善病情药物,下列哪项描述不准确
患者,女,20岁。患糖尿病2年,在家中使用胰岛素治疗,1小时前病人昏迷。检查:皮肤湿冷,血压110/70mmHg,尿素氮4.3mmol/L,二氧化碳结合力21mmol/L。应首先考虑的是:
某妇女,45岁,扪及下腹部有包块半年,并且月经不规则,近3年来,经常感觉胃区不适,内科医师曾诊断为“胃溃疡”。妇科检查:腹水征(+),子宫大小正常,活动,无压痛,双附件区触及一鹅卵大、活动的实体性包块。可能是下列哪一种肿瘤
对边坡进行工程防护的方法包括()
下列哪些不是客户信息的保密原则()。
某个人独资企业投资人聘用甲管理企业事务,如果甲超越权限与善意第三人丙签订了一份买卖合同,则()。
A、B、C、D、A
数据库的物理设计是为一个给定的逻辑结构选取一个适合应用环境的哪种结构,包括确定数据库在物理设备上的存储结构和存取方法?
北京明华中学学生发展中心的小刘老师负责向校本部及相关分校的学生家长传达有关学生儿童医保扣款方式更新的通知。该通知需要下发至每位学生,并请家长填写回执。参照“结果示例1.jpg~结果示例4.jpg”、按下列要求帮助小刘老师编排家长信及回执:在考生文件夹下
A、Hedoesn’twanttochangehisjob.B、Hedoesn’thearthewomanclearly.C、C)D、Hedoesn’twanttobetheboss.C
最新回复
(
0
)