首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp。其窗体中有2个标题分别为“读数据”和“查找水仙花数”的命令按钮。请画1个名称为Text1、初始值为空的文本框,该文本框允许显示多行内容,且有垂直滚动条,如图所示。 程序功能如下: (1)考生文件
在考生文件夹下有一个工程文件sjt5.vbp。其窗体中有2个标题分别为“读数据”和“查找水仙花数”的命令按钮。请画1个名称为Text1、初始值为空的文本框,该文本框允许显示多行内容,且有垂直滚动条,如图所示。 程序功能如下: (1)考生文件
admin
2019-03-14
33
问题
在考生文件夹下有一个工程文件sjt5.vbp。其窗体中有2个标题分别为“读数据”和“查找水仙花数”的命令按钮。请画1个名称为Text1、初始值为空的文本框,该文本框允许显示多行内容,且有垂直滚动条,如图所示。
程序功能如下:
(1)考生文件夹下in5.dat文件中存放着100个三位正整数。单击“读数据”按钮,则将in.5.dat文件中的数据读入数组a中;
(2)单击“查找水仙花数”按钮,则查找in5.dat中的所有水仙花数,并将这些水仙花数顺次显示在Text1文本框内。(水仙花数是指一个3位数,它各位数字的立方和等于它本身,例如153就是水仙花数,因为153=1
3
+5
3
+3
3
)
“读数据”按钮的Click事件过程已经给出,请编写函数narc,以完成“查找水仙花数”按钮的C1ick事件过程,实现上述功能。
注意:考生不得修改窗体文件中已经存在的控件和程序,在结束程序运行之前,必须使用“查找水仙花数”按钮完成查找水仙花数的过程,且必须用窗体右上角的关闭按钮结束程序,否则无成绩。最后,程序按原文件名存盘。
选项
答案
步骤1:打开本题工程文件。 步骤2:向窗体中添加一个Text文本框控件,并根据题目要求设置Text的相关属性,设置方法如表4.7所示,设置结果如图4.6所示。 [*] 步骤3:打开代码编辑窗口,填入相应的代码以实现题目的功能。 参考答案 Function narc(p As Integer)As Boolean Dim flag As Boolean 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:调试并运行程序,结果如图4.7所示。关闭程序后按题目要求存盘。 [*]
解析
向窗体中添加一个Text文本框控件,并根据题目要求设置Text的相关属性,根据代码中narc函数的首部,可以判断出该函数的功能是判断参数p是否为水仙花数,可以在函数中定义一个布尔型变量flag,将参数p表示的三位数的个位,十位,百位分别表示出来,通过if语句判断每位数的立方和是否与该数相等,若将flag设置为true,最后返回flag的值。
转载请注明原文地址:https://jikaoti.com/ti/RvN0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
把数学表达式2y—b表示为正确的VB表达似乎应该是
设有如下程序:PrivateSubFormClick(0hum=InputBox(“请输入一个实数”):P=InStr(num,“.”)Ifp>0ThenPrintMid(num,P+1)ElsePrint“END”EndIfE
设有如下通用过程:PublicFunctionFun(xStrAsString)AsStringDimtStrAsString,strLAsIntegertStr=””strL=Len(xStr)i=1DoWhilei
假定Picturel和Text1分别为图片框和文本框的名称,则下列错误的语句是
PrintFormat(1234.56,“###.#”)语句的输出结果是
表达式4+5\6*7/8Mod9的值是()。
设a=10,b=4,c=5,d=7,表达式a>bAndNotc<d+6的值为
满足下列条件乏_的年份是闰年:1)年份能被4整除但不能被100整除2)年份能被400整除若y代表年份,下面判断闰年的正确表达式是
随机试题
态度的特性。
阅读下面的文章,回答问题青山行季宇初秋的一天,我们乘车来到马鞍山,开始向青山进发。车窗外,江南的景色一一掠过,青青的山,绿绿的水,安静的集市,宁静的原野
A.单发或多发粉红色、蒂细长、似水草在水中漂浮B.膀胱表面黏膜上有突起的红色区域,外观与充血和增生的黏膜相似C.暗红色有浸润的团块状结节,呈暗红色,短蒂,表面覆有灰白色坏死组织,肿物活动性小D.无蒂的、境界不清的褐色团块,坏死处呈溃疡,边缘形成水肿,
A、面部白色B、面部黄色C、面部赤色D、面部青色E、面部黑色主虚寒证、失血证的是()。
正在钻孔的炮孔和预装药孔之间,应有()m以上的安全隔离区。
()明确了会计工作的时间长度。在此前提下,企业的资产价值才能运用历史成本计价,而不是采用现行市价或清算价格计价。
下面谱例中,不协和音程有几个?()
开学第一天,新任班主任邹老师走进初二(5)班教室,发现黑板上写着“你也下课吧”五个大字。原来,该班已连续换了两任班主任,原因是该班学生无论是学习、班级卫生以及日常行为规范等方面都表现得极差,前两任班主任就因为在班主任积分上被扣分而失去了当班主任的资格。面对
【2015.陕西汉中】下列关于经验主义课程论的描述不正确的是()。
Ifyouwanttogetmoreinformation,youcan______.
最新回复
(
0
)