首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下有一个工程文件sjt3.vbp,其功能是: ①单击“读数据”按钮,则将考生文件夹下in3.dat文件中的100个0~999的整数读入到数组a中; ②单击“计算”按钮,则找出这100个整数中的所有水仙花数,并将它们的最大值与最小值分别显示在文本框
考生文件夹下有一个工程文件sjt3.vbp,其功能是: ①单击“读数据”按钮,则将考生文件夹下in3.dat文件中的100个0~999的整数读入到数组a中; ②单击“计算”按钮,则找出这100个整数中的所有水仙花数,并将它们的最大值与最小值分别显示在文本框
admin
2016-06-23
46
问题
考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
在长度为n的顺序存储的线性表中插入一个元素,最坏情况下需要移动表中【2】个元素。
在窗体上画一个名称为CD1的通用对话框,并有如下程序:PrivateSubForm_Load()CD1.DefaultExt=”doc”CD1.FileName=”c:\fiel1.txt”
有人编写了如下程序:PrivateSubForm_Click()DimsAsInteger,xAsIntegers=0x=0DoWhiles=10000x=x+1
线性表L=(a1,a2,a3,…ai,…an),下列说法正确的是
在软件测试设计中,软件测试的主要目的是
在窗体上画一个列表框、一个文体框及一个按钮,然后编写如下事件过程:PrivateSubFormLoab() List.AddItem"357" List.AddItem"246"List.AddItem"123"
引用列表框(List1)最后一个数据项应使用
下列叙述中错误的是
随机试题
女性62岁,绝经11年,阴道不规出血2个月,查体肥胖、糖尿病史。妇科检查:阴道少许血液、宫颈光、子宫正常大、双附件正常。
A.阳虚血瘀证B.风热犯肺C.气营两燔D.寒凝血瘀E.肾阴虚火旺舌色淡紫而湿润属于
不属于传染性非典型肺炎糖皮质激素的使用指征是()
某进口机械制造设备若按人民币计算,其离岸价为1000万元,到岸价为1100万元,银行手续费为5万元,进口关税为160万元,消费税为零,增值税税率为15%,则其增值税额为( )。
关于预测误差的正确理解是()。
下列各项中,按照营业税法律制度规定应征收营业税的有()。
调查报告属于()
下列文学常识的表述,不正确的一项是()。
一、注意事项1.申论考试是对应考者阅读理解能力、综合分析能力、提出问题和解决问题能力、文字表达能力的测试。2.参考时限:阅读资料40分钟,作答110分钟。3.仔细阅读给定资料,按照后面提出的“作答要求”依次作答。二、给定资料
1989年,时任美国国务院顾问的弗朗西斯·福山抛出了所谓的“历史终结论”,认为西方实行的自由民主制度是“人类社会形态进步的终点”和“人类最后一种统治形式”。然而,20年来的历史告诉我们,终结的不是历史,而是西方的优越感。就在柏林墙倒塌20年后的2009年1
最新回复
(
0
)