首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp。其窗体中有2个标题分别为“读数据”和“查找水仙花数”的命令按钮。请画1个名称为Text1、初始值为空的文本框,该文本框允许显示多行内容,且有垂直滚动条,如图所示。 程序功能如下: (1)考生文件夹下in
在考生文件夹下有一个工程文件sjt5.vbp。其窗体中有2个标题分别为“读数据”和“查找水仙花数”的命令按钮。请画1个名称为Text1、初始值为空的文本框,该文本框允许显示多行内容,且有垂直滚动条,如图所示。 程序功能如下: (1)考生文件夹下in
admin
2019-03-14
22
问题
在考生文件夹下有一个工程文件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的相关属性,设置方法如表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所示。关闭程序后按题目要求存盘。 [*]
解析
转载请注明原文地址:https://kaotiyun.com/show/CpFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在关系A(S,SN,D)和B(D,CN,NM)中,A的主关键字是S,B的主关键字是D,则D是A的
在VisualBasic标准工具栏中,"菜单编辑器"的图标是
设有关系表学生S(学号,姓名,性别,年龄,身份证号),每个学生学号唯一。除属性学号外,也可以作为键的是
在程序运行时,下面的叙述中正确的是( )。
窗体上有一个菜单编辑器设计的菜单。运行程序,并在窗体上单击鼠标右键,则弹出一个快捷菜单,如图所示。下列说法错误的是()。
有三个关系R、S和T如下:由关系R和S通过运算得到关系T,则所使用的运算为( )。
(1)在名称为Form1的窗体上添加一个名称为Com.mahd1的命令按钮(如图1所示),然后通过属性窗口设置窗体和命令按钮的属性,实现如下功能:①窗体标题为“设置按钮属性”;②命令按钮的标题为“等级考试”;③程序运行后,命令
设循环队列为Q(1:m),其初始状态为front=rear=m。经过一系列入队与退队运算后,front=20,rear=15。现要在该循环队列中寻找最小值的元素,最坏情况下需要比较的次数为
为了删除列表框中的一个列表项,应使用的列表框方法是
随机试题
(2013年)经营者与其交易相对人达成的下列协议中,被我国反垄断法律制度明确禁止的有()。
经过水韧处理的高锰钢都具有高的耐磨性。()
全球化经营的任务环境包括()
胫骨干中1/3骨折,容易发生
津亏血燥便秘的主要症状是
某桥2号墩基础为Ф2m、桩长25m的钻孔灌注桩,地质条件如下:原地面以下依次为黏土、卵砾石、强风化泥岩。地下水位在原地面以下2.5m。采用钢护筒结构。问题:钻孔灌注桩的清孔方法有哪些?清孔时应注意哪些问题?
基金市场的参与主体主要包括( )。
一些进程相互合作共同完成一项任务,进程之间的这种直接的协同工作关系称之为【】。
编写如下程序:PrivateSubForm_Click()a$="54321":b$="abcde"Forj=1To5PrintMid$(a$,6-j,1)+Mid$(b$,j,1);
WhenIsay"communication,"mostofyoumaythinkabout【B1】______communication—thatisthewordsweusewhenwetalktosomeone.
最新回复
(
0
)