首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt3.vbp,其功能是: ①单击“读数据”按钮,则把考生文件夹下in3.dat文件中的0~999之间的100个整数读入数组a中; ②单击“计算”按钮,则找出这100个整数中所有水仙花数,并将它们的最大值与最小
在考生文件夹下有一个工程文件sjt3.vbp,其功能是: ①单击“读数据”按钮,则把考生文件夹下in3.dat文件中的0~999之间的100个整数读入数组a中; ②单击“计算”按钮,则找出这100个整数中所有水仙花数,并将它们的最大值与最小
admin
2016-01-31
53
问题
在考生文件夹下有一个工程文件sjt3.vbp,其功能是:
①单击“读数据”按钮,则把考生文件夹下in3.dat文件中的0~999之间的100个整数读入数组a中;
②单击“计算”按钮,则找出这100个整数中所有水仙花数,并将它们的最大值与最小值分别显示在文本框Text1、Text2中。(注:当一个数的值等于该数中的各位数字的立方和时,此数被成为水仙花数,如153=1
3
+5
3
+3
3
,所以153就是一个水仙花数。)
在窗体文件中已经给出了全部控件(如图3-150所示)和“读数据”命令按钮的事件过程以及判断一个数是否为水仙花数的通用过程。要求编写“计算”命令按钮的事件过程。
注意:考生不得修改窗体文件中已经存在的控件和程序,在结束程序运行前,必须进行“计算”,且必须通过单击窗体右上角的“关闭”按钮结束程序,否则无成绩。最后,程序按原文件名存盘。
选项
答案
审题分析 程序设计思路:声明两个变量:max和min,分别用于记录水仙花数的最大值和最小值,用For循环逐一取出数组a中的100个元素,通过调用函数isnarc判断其是否为一个水仙花数,若是水仙花数且是第一个找到的水仙花数,则将其同时赋值给max和mim,否则将其与变量max和min分别比较大小,并将与max比较结果中的较大值存入变量max,将与min比较结果中的较小值存入变量min。循环结束后,分别将变量max和min的值显示在两个文本框。 操作步骤 步骤1:打开考生文件夹下的工程文件sjt3.vbp,在代码编辑窗口的指定位置编写“计算”按钮的单击事件过程。 参考代码: Private Sub Command2_Click() Max=a(1) Min=a(1) For i=2 To 100 If isnarc(a(i))=True Then If a(i)>Max Then Max=a(i) If a(i)<Min Then Min=a(i) End If Next Text1.Text=Max Text2.Text=Min End Sub 步骤2:按
键运行程序,先单击“读数据”按钮,接着单击“计算”按钮,然后单击窗体右上角的关闭按钮结束程序。 步骤3:按要求将文件保存至考生文件夹中。 考点链接 数组定义与操作。
解析
转载请注明原文地址:https://kaotiyun.com/show/TuLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
CommonDialog控件可以显示()对话框。
假定窗体的名称(Narne属性)为Forml,则把窗体的标题设置为"VBTest"的语句为()。
有下列函数过程:FunctionFunc2(aAsInteger,bAsInteger)AsIntegerStaticmAsInteger,iAsIntegerm=0i=2a=i+m+1b=i+a+bFunc2=mEnd
Sub过程与Function过程最根本的区别是()。
用Print方法在Form1窗体中显示出4个#号的正确代码为()。
执行下面程序,第一行输出结果是[],第二行输出结果是[]。OptionExplicitPrivateSubForm_Click()DimAAsIntegerA=2CallSub1(A)EndSubPriv
可以用做其他控件容器的控件是
阅读下面的程序段:Fora=1To2Forb=1ToaForc=bTo2i=i+1NextNextNextPrinti执行上面的3重循环后,i的值为
一个工程中含有窗体Form1、Form2和标准模块Model1,如果在Form1中有语句PublicXAsInteger,在Model1中有语句PublicYAsInteger。则以下叙述中正确的是
在窗体上画一个命令按钮(其Name属性为Commandl),然后编写如下代码:PrivateSubCommandl_Click()Dima(5)Fori=0To4A(i)=i+1t=i+1
随机试题
为什么说“实践是认识发展的动力”?
B细胞及其肿瘤的表型特征是
女孩,3岁。因发热伴呕吐16小时,拟诊为流行性脑脊髓膜炎收治入院。全身皮肤散在瘀点、瘀斑,颈部略有阻抗。入院后给予抗感染治疗,但发现皮肤瘀点、瘀斑进行性增多,应立即采取的治疗措施是
王妹妹,9个月。因患肺炎而入院,入院当天病儿哭闹不停,不愿离开母亲。此时该病儿主要的心理压力来源是
更正登记一般均可在原土地权利证书上进行更改的有()。
某公司会计人员在审核购货发票及材料入库单时发现,该批材料采购量过大。下列关于该原始凭证所反映的经济业务的说法中,正确的是()。
商业银行根据约定条件和实际投资收资情况向客户支付收益,并不保证客户本金安全的理财计划,这样的理财计划是()。
因病或非因工致残,由医院证明并经劳动鉴定委员会确认完全丧失劳动能力的,退休年龄男年满()周岁,女年满()周岁。
下列诗句和作者连线,错误的一组是()。
国家安全的支柱和核心是
最新回复
(
0
)