首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下有一个工程文件sjt3.vbp,其功能是: ①单击“读数据”按钮,则将考生文件夹下in3.dat文件中的100个0~999的整数读入到数组a中; ②单击“计算”按钮,则找出这100个整数中的所有水仙花数,并将它们的最大值与最小值分别显示在文本框
考生文件夹下有一个工程文件sjt3.vbp,其功能是: ①单击“读数据”按钮,则将考生文件夹下in3.dat文件中的100个0~999的整数读入到数组a中; ②单击“计算”按钮,则找出这100个整数中的所有水仙花数,并将它们的最大值与最小值分别显示在文本框
admin
2016-06-23
48
问题
考生文件夹下有一个工程文件sjt3.vbp,其功能是:
①单击“读数据”按钮,则将考生文件夹下in3.dat文件中的100个0~999的整数读入到数组a中;
②单击“计算”按钮,则找出这100个整数中的所有水仙花数,并将它们的最大值与最小值分别显示在文本框。Text1、Text2中(注:当一个数的值等于该数中的各位数字的立方和时,此数被称为水仙花数。如:153=1
3
+5
3
+3
3
,所以153就是一个水仙花数)。
在窗体文件中已经给出了全部控件(如图所示)和“读数据”命令按钮的事件过程以及判断一个数是否为水仙花数的通用过程。要求编写“计算”命令按钮的事件过程。
注意:考生不得修改窗体文件中已经存在的控件和程序,在结束程序运行前,必须进行“计算”,并且必须通过单击窗体右上角的“关闭”按钮结束程序,否则无成绩。最后,程序按原文件名存盘。
选项
答案
[操作步骤] 步骤1:按照题目要求打开工程文件。 步骤2:打开代码编辑窗口,在指定位置编写如下代码。 参考代码 Dim i As Integer Dim max As Integer,min As Integer max=-1 min=1000 For i=1 To 100 If isnarc(a(i))Then’调用isnarc判断是否为水仙花数 If max<=a(i)Then max=a(i) If min>=a(i)Then min=a(i)’求水仙花 数中的最大值与最小值 End If Next i Text1=max Text2=min 步骤3:按照题目要求调试并运行程序,如图3.18所示。 [*] 步骤4:关闭程序后,按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/70Lp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设a2,b=3,c=4,d=5,则下面语句的输出是Print3>2*bOra=cAndbcOrc>d
结构化程序所要求的基本结构不包括
下列叙述中正确的是
以下描述中错误的是
有三个关系R,S和T如下:则由关系R和S得到关系T的操作是
若某二叉树的前序遍历访问顺序是abdgcefh,中序遍历访问顺序是dgbaechf,则其后序遍历的结点访问顺序是
设有以下循环结构Do循环体LoopWhile〈条件〉则以下叙述中错误的是()。
在面向对象方法中,属性与操作相似的一组对象称为______。
数据结构分为线性结构和非线性结构,带链的队列属于__________________。
一名学生只能住一间宿舍,一间宿舍可住多名学生,则实体“宿舍”与实体“学生”的联系属于______________的联系。
随机试题
求∫(2arcsinx+1)dx.
Besidesbeingexpensive,thefoodinthediningroomtastes______.
正常成人含HbF的红细胞
男性60岁,1年来体力活动时感觉心悸、咳嗽、下肢略肿。查体血压130/70mmHg,双肺底湿性啰音,心界扩大,心率110次/分,律不齐,心音强弱不等,脉率60次/分。应选的药物是()
下列哪些属于手术产新生儿( )。
可作为注射用溶剂的有
A.红人综合症B.跟腱炎症C.5-羟色胺综合征D.急性肾衰竭、肾功能异常及肾小管损害E.致畸、胎儿异常、肿瘤和溶血性贫血利巴韦林可致()。
(2004年考试真题)甲企业为增值税一般纳税人,适用的增值税税率为17%。(1)2000年11月1日,接受乙企业捐赠的需要安装的专用设备一台,但乙企业未提供该项专用设备的有关凭证,市场上该类专用设备的价格为100万元。甲企业收到该专用设备后立即投
把用高级程序设计语言编写的源程序翻译成目标程序(.OBJ)的程序称为
Distanceeducationisenrollmentandstudywithaneducationalinstitutionthatprovideslessonmaterialspreparedinasequenti
最新回复
(
0
)