首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbpo其窗体中有2个标题分别为“读数据”和“查找水仙花数”的命令按钮。请画1个名称为Text1、初始值为空的文本框,该文本框允许显示多行内容,且有垂直滚动条,如图所示。 程序功能如下: (1)考生文件
在考生文件夹下有一个工程文件sjt5.vbpo其窗体中有2个标题分别为“读数据”和“查找水仙花数”的命令按钮。请画1个名称为Text1、初始值为空的文本框,该文本框允许显示多行内容,且有垂直滚动条,如图所示。 程序功能如下: (1)考生文件
admin
2017-07-28
48
问题
在考生文件夹下有一个工程文件sjt5.vbpo其窗体中有2个标题分别为“读数据”和“查找水仙花数”的命令按钮。请画1个名称为Text1、初始值为空的文本框,该文本框允许显示多行内容,且有垂直滚动条,如图所示。
程序功能如下:
(1)考生文件夹下in5.dat文件中存放着100个三位正整数。单击“读数据”按钮,则将in5.dat文件中的数据读入数组a中;
(2)单击“查找水仙花数”按钮,则查找in5.dat中的所有水仙花数,并将这些水仙花数顺次显示在Text1文本框内。(水仙花数是指一个3位数,它各位数字的立方和等于它本身,例如153就是水仙花数,因为153=1
3
+5
3
+3
3
)
“读数据”按钮的Click事件过程已经给出,请编写函数narc,以完成“查找水仙花数”按钮的Click事件过程,实现上述功能。
注意:考生不得修改窗体文件中已经存在的控件和程序,在结束程序运行之前,必须使用“查找水仙花数”按钮完成查找水仙花数的过程,且必须用窗体右上角的关闭按钮结束程序,否则无成绩。最后,程序按原文件名存盘。
选项
答案
步骤1:打开本题工程文件。 步骤2:向窗体中添加一个Text文本框控件,并根据题目要求设置Text的相关属性,设置方法如表1.7所示。 [*] 步骤3:打开代码编辑窗口,填入相应的代码以实现题目的功能。 参考答案 Function narc(p As Integer)As Boolean Dim flag As Booleam flag=False If (p Mod 10)^3+(p\10 Mod 10)^3+(p\100)^3=p Then flag=True End If narc=flag End Function 步骤4:调试并运行程序。关闭程序后按题目要求存盘。
解析
向窗体中添加一个Text文本框控件,并根据题目要求设置Text的相关属性,根据代码中narc函数的首部,可以判断出该函数的功能是判断参数p是否为水仙花数,可以在函数中定义一个布尔型变量flag,将参数p表示的三位数的个位,十位,百位分别表示出来,通过if语句判断每位数的立方和是否与该数相等,若将flag设置为true,最后返回flag的值。
转载请注明原文地址:https://kaotiyun.com/show/BxGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设有如下通用过程:PublicFunctionFun(xStrAsString)AsStringDimtStrAsString,strLAsIntegertStr=""str
在数据流图(DFD)中,带有名字的箭头表示______。
执行如下两条语句后,窗体上显示的是______。a=8.4326PrintFormat(a,"$00,00.00")
在窗体上画一个命令按钮(名称为Command1),然后编写如下事件过程:PrivateSubCommand1_Click()b=5c=6Printa=b+cEndSub程序运行
下列事件过程的功能是:建立一个名为Datal的随机文件,存放角度值及这些角度的正弦函数值和余弦函数值,角度为1,2,3,...,90。请在空白处填入适当的内容,将程序补充完整。PrivateTypeAngKAsIn
数据库系统的核心是______。
下列叙述中不正确的是______。
下列说法错误的是()。
在面向对象方法中,类之间共享属性和操作的机制称为【】。
在用通用对话框控件建立“打开”或“保存”文件对话框时,如果需要指定文件列表框所列出的文件类型是文本文件(即.txt文件),则正确的描述格式是
随机试题
有4个基金2014年和2015年的分红方案如下:根据这些分红方案,最有可能是封闭式基金的是()。
病人阑尾炎术后1周出现发热,体温38.5℃,伴有里急后重,排便次数6~8次/日,内有黏液。此时。病人处理原则是
A.风水泛滥B.湿毒浸淫C.水湿浸渍D.湿热壅盛E.脾阳虚衰患者水肿日久,腰以下肿甚,按之凹陷不起,畏寒肢冷,尿少。舌淡苔白滑,脉沉弱。其证候是
患儿,10个月。因发热、呕吐、惊厥来就诊。确诊为化脓性脑膜炎。本病最容易出现的并发症为
对样品完整性描述正确的是()。
甲地的刘某和乙地的李某签订了一份购买30台空气净化器的买卖合同,双方约定合同的签订地为丙地。刘某在甲地签字盖章,随后以快递方式将合同邮至乙地,李某在合同上完成签字盖章。合同约定价款为10万元,李某在合同签订后1个月内分三次将空气净化器运输到刘某指定地点丁地
甲公司2017年1月购入一宗土地用于建设厂房,厂房工程于2018年1月完工。甲公司会计账簿中记载的“无形资产一土地使用权”金额为5000万元,“固定资产一厂房”金额为1200万元。当地规定的房产原值减除比例为30%。甲公司没有其他房产,宗地容积率为0.75
甲公司拟投资某项目,一年前花费10万元做过市场调查,因故中止。现重启该项目,拟使用闲置的一间厂房,厂房购入时价格2000万元,当前市价2500万元;项目还需投资500万元购入新设备。在进行该项目投资决策时,初始投资是()万元。
深圳和香港SARS联合攻关小组在2003年5月23日宣布,SARS病毒溯源研究获得重要进展,科研人员成功地对从当地野生动物交易市场中随机抽取的六只果子狸的粪便样本中分离出的SARS样病毒基因进行了全序列测定,分析显示,这种SARS样病毒与人类SARS病毒有
Mymother’sweddingbandmaynothavebeenfancyorexpensive,buttome,itwasapricelessjewel.WhenIwasgrowingup,m
最新回复
(
0
)