首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp。其窗体中有2个标题分别为“读数据”和“查找水仙花数”的命令按钮。请画1个名称为Text1、初始值为空的文本框,该文本框允许显示多行内容,且有垂直滚动条,如图所示。 程序功能如下: (1)考生文件夹下in
在考生文件夹下有一个工程文件sjt5.vbp。其窗体中有2个标题分别为“读数据”和“查找水仙花数”的命令按钮。请画1个名称为Text1、初始值为空的文本框,该文本框允许显示多行内容,且有垂直滚动条,如图所示。 程序功能如下: (1)考生文件夹下in
admin
2019-03-14
24
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
(1)在名称为Form1的窗体上添加一个名称为Shape1的圆角矩形,高、宽分别为1000、2000。请利用属性窗口设置适当的属性以满足下列要求:①圆角矩形中填满绿色(颜色值为:&H0000FF00&或&HFF00&)。②窗体的标题为“
(1)在名称为Forml的窗体上添加一个名称为Text1的文本框,再建立一个名称为Format的弹出式菜单,含三个菜单项,标题分别为“加粗”、“斜体”、“下划线”,名称分别为M1、M2、M3。请编写适当的事件过程,在程序运行时,当用鼠标右键单击文本框时,弹
设有如下Command1的单击事件过程及fun过程:PrivateSubCommand1_Click() DimxAsInteger x=Val(InputBox("请输入一个整数")) fun(x)EndSubPrivate
有如下程序:PrivateSubForm_Click() DimiAsInteger,nAsInteger Fori=1To20 i=i+4 n=n+i Ifi>10ThenExitFor
结构化程序设计中,下面对goto语句使用描述正确的是
表达式2*3^2+4*2/2+3^2的值是()。
(1)在名称为Form1的窗体上添加两个名称分别为Frame1、Ftame2的框架,标题分别为“字号”、“修饰”;在Frame1中添加两个单选按钮,名称分别为Option1、Option2,标题分别为“10号字”、“20号字”,且标题显示在单选按钮的左边
在考生文件央下有一个工程文件sjt5.vbp,功能是用来计算勾股定理整数组合的个数。勾股定理中3个数的关系是:a2+b2=c2。例如,3、4、5就是一个满足条件的整数组合(注意:a.b,c分别为4,3,5与分别为3,4,5被视为同一个组合,不应该重复计算)
在关系模型中,每一个二维表称为一个
将E-R图转换为关系模式时,实体和联系都可以表示为
随机试题
类风湿结节多位于_______及受压部位的皮下。
在货垛、货架摆放中,具有便于存取查点,利用通风采光的摆放方式是()
女,5岁。在洗澡时患儿母亲偶然发现患儿腹部有一硬块。检查:右上腹可扪及约2cm×3cm×4cm肿块,质地较硬,无压痛。B超检查示右肾体积增大。最可能的诊断是
在体内可发生脱甲基代谢,其代谢产物仍保持抗抑郁活性的药物有()。
新产品开发战略具有的特征有()。
巴拿马运河是沟通()两大洋的国际运河。
对国家规定或者经营者与消费者约定包修、包换、包退的大件商品,消费者要求经营者修理、更换、退货的,经营者应当承担运输等合理费用。()
简述诉讼离婚的适用情形。
根据《GB/T19000--IS09000(2000)》的定义,质量管理是指确立质量方针及实施质量方针的全部职能及工作内容,并对其工作效果进行(35)的一系列工作。
下列关于宽带城域网核心交换层特点的描述中,错误的是()。
最新回复
(
0
)