2. 计算机
  3. 在考生文件夹下有一个工程文件sjt5．vbpo其窗体中有2个标题分别为“读数据”和“查找水仙花数”的命令按钮。请画1个名称为Text1、初始值为空的文本框，该文本框允许显示多行内容，且有垂直滚动条，如图所示。 程序功能如下： (1)考生文件

在考生文件夹下有一个工程文件sjt5．vbpo其窗体中有2个标题分别为“读数据”和“查找水仙花数”的命令按钮。请画1个名称为Text1、初始值为空的文本框，该文本框允许显示多行内容，且有垂直滚动条，如图所示。 程序功能如下： (1)考生文件

admin2017-07-28  33
问题 在考生文件夹下有一个工程文件sjt5．vbpo其窗体中有2个标题分别为“读数据”和“查找水仙花数”的命令按钮。请画1个名称为Text1、初始值为空的文本框，该文本框允许显示多行内容，且有垂直滚动条，如图所示。
    程序功能如下：
    (1)考生文件夹下in5．dat文件中存放着100个三位正整数。单击“读数据”按钮，则将in5．dat文件中的数据读入数组a中；
    (2)单击“查找水仙花数”按钮，则查找in5．dat中的所有水仙花数，并将这些水仙花数顺次显示在Text1文本框内。(水仙花数是指一个3位数，它各位数字的立方和等于它本身，例如153就是水仙花数，因为153=13+53+33)
    “读数据”按钮的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全国计算机二级

相关试题推荐
随机试题
最新回复(0)