首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbpo其窗体中有2个标题分别为“读数据”和“查找水仙花数”的命令按钮。请画1个名称为Text1、初始值为空的文本框,该文本框允许显示多行内容,且有垂直滚动条,如图所示。 程序功能如下: (1)考生文件
在考生文件夹下有一个工程文件sjt5.vbpo其窗体中有2个标题分别为“读数据”和“查找水仙花数”的命令按钮。请画1个名称为Text1、初始值为空的文本框,该文本框允许显示多行内容,且有垂直滚动条,如图所示。 程序功能如下: (1)考生文件
admin
2017-07-28
25
问题
在考生文件夹下有一个工程文件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://jikaoti.com/ti/Xay0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名称为Listl的列表框,一个名称为Labell的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时,在标签中显示选中城市的名称。下列能正确实现上述功能的程序是______。
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()Dimarrayl(10,10)AsIntegerDim
设有如下通用过程:PublicFunctionf(xAsInteger)DimyAsIntegerx=20y=2f=x*yEndFunction在窗体上画一个名称为Co
下列函数调用时弹出的对话框中按钮的个数为【】。MsgBox("程序非法!",vbAbortRetryIgnore,"消息提示:")
面向对象的程序设计方法中涉及的对象是系统中用来描述客观事物的一个【】。
下列不能打开菜单编辑器的操作是
执行如下两条语句后,窗体上显示的是______。a=8.4326PrintFormat(a,"$00,00.00")
在窗体上画一个命令按钮(其名称为Conlmand1),然后编写如下事件过程:PrivateSubCommand1_Click()Fori=1To4Ifi=1Thenx=iIfi<=4Thenx=
下列模式中,能够给出数据库物理存储结构与物理存取方法的是
随机试题
某工厂建一排污无盖的长方体,其体积为V,底面每平方米造价为a元,侧面每平方米造价为b元,为使其造价最低,其长、宽、高各应为多少?
关于T型管引流的护理说法正确的是
A.轻度精神发育迟滞B.儿童孤独症C.中度精神发育迟滞D.儿童多动症E.儿童精神分裂症患儿,男,7岁。因不能入学由母亲带来心理门诊。母亲诉2周岁时患儿聪明伶俐,2岁半以后无明显原因开始不愿说话,及至5岁时几乎一天不说话,从不与父母有交流,就连父
人民币是我国的法定货币,支付我国境内的一切公共的和私人的债务,任何单位或个人均不能拒收。( )
作为一名即将走上教师岗位的新教师,你认为教师应该具备的学科专业素养是什么?
数字鸿沟:是指在全球数字化进程中,不同国家、地区、行业、企业、社区之间,由于对信息、网络技术的拥有程度、应用程度以及创新能力的差别而造成的信息落差的趋势。根据上述定义,下列现象属于数字鸿沟的是()。
某公司的员工中,拥有本科毕业证、计算机登记证、汽车驾驶证的人数分别为130,110,90.又知只有一种证的人数为140,三证齐全的人数为30,则恰有双证的人数为
韩先生为了寻找曾经帮助他的司机,向新闻媒体提供了他记得的车牌信息,韩先生看到的车牌号为“晋BM****”,最后一位是字母,其他三位全是奇数,且数字逐渐变大,那么符合要求的车牌有().
Notwoeconomiccrisesareidentical.Butthesamequestionsrecur.Howdidwegetintothismess?Howcanwegetoutofit?How
WhatdoIwant?It’sreallyavery【C1】______question:yetmanyofusarenotsure.【C2】______itdoesn’thavetobeallthatdif
最新回复
(
0
)