首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp。其窗体中有2个标题分别为“读数据”和“查找水仙花数”的命令按钮。请画1个名称为Text1、初始值为空的文本框,该文本框允许显示多行内容,且有垂直滚动条,如图所示。 程序功能如下: (1)考生文件
在考生文件夹下有一个工程文件sjt5.vbp。其窗体中有2个标题分别为“读数据”和“查找水仙花数”的命令按钮。请画1个名称为Text1、初始值为空的文本框,该文本框允许显示多行内容,且有垂直滚动条,如图所示。 程序功能如下: (1)考生文件
admin
2019-06-20
27
问题
在考生文件夹下有一个工程文件sjt5.vbp。其窗体中有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 Bare(p As Integer)As Boolean Dim flag Boolean Flag=False If(p Mod 10)^3+(p\10 Mod 10)^3+(p\100)^3=p Then flag=True End If End Function 步骤4:调试并运行程序。关闭程序后按题目要求存盘。
解析
向窗体中添加一个Text文本框控件,并根据题目要求设置Text的相关属性,根据代码中narc函数的首部,可以判断出该函数的功能是判断参数p是否为水仙花数,可以在函数中定义一个布尔型变量flag,将参数p表示的三位数的个位,十位,百位分别表示出来,通过if语句判断每位数的立方和是否与该数相等,若将flag设置为true,最后返回flag的值。
转载请注明原文地址:https://kaotiyun.com/show/zwUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
为了使文本框只具有垂直滚动条,应先把MultiLine属性设置为True,然后再把ScrollBars属性设置为
在黑盒测试方法中,设计测试用例的主要根据是
数据流程图(DFD图)是
以下关于函数过程的叙述中,正确的是
设有如下Command1的单击事件过程及fun过程:PrivateSubCommand1_Click()DimxAsIntegerx=Val(InputBox("请输入一个整数"))fun(x)EndSubPrivateSub
有三个关系R、S和T如下:则由关系R和S得到关系T的操作是
设有以下程序:PrivateSubForm_Click()x=50Fori=1To4y=InputBox("请输入一个整数")y=Val(y)IfyMod5=0Thena=a+yx=yElsea=a+xEndIfNext
在设计阶段,如果双击窗体上的一个文本框控件,则在代码窗口中显示该控件的事件过程所对应的事件是
要求当鼠标在图片框P1中移动时,立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是
以下关于窗体的叙述中错误的是
随机试题
A.ρ因子B.σ因子C.TFⅡDD.AATAAA序列参与真核生物转录终止的是
控制电路最终控制的是
一度房室传导阻滞时的心电图改变为
宜切成厚片的药物是()
表现一个人生活方式的维度有()。
甲上市公司2016年1月1日所有者权益构成情况如下:股本1500万元,资本公积100万元,盈余公积300万元,未分配利润400万元。2016年度实现利润总额为200万元,按10%和5%分别提取法定盈余公积和任意盈余公积,企业所得税税率为25%。假定不存在纳
教育法
我国实行直接选举的范围包括()。
在考生文件夹下,打开文档WORD2.DOCX,按照要求完成下列操作并以该文件名(WORD2.DOCX)保存文档。插入一个5行5列的表格,设置列宽为2.4厘米,表格居中;设置外框线为红色1.5磅单实线、内框线为绿色(标准色)0.5磅单实线。
Asuddenscream______thesilenceoftheroom.There’snotimetocoverthechildren’sears.
最新回复
(
0
)