问答题
18分
在考生文件夹下有一个工程文件sjt5.vbp。其窗体中有2个标题分别为“读数据”和“查找水仙花数”的命令按钮。请画一个名称为Tex1、初始值为空的文本框,该文本框允许显示多行内容,且有垂直滚动条,如图...
在考生文件夹下有一个工程文件sjt5.vbp。其窗体中有2个标题分别为“读数据”和“查找水仙花数”的命令按钮。请画一个名称为Tex1、初始值为空的文本框,该文本框允许显示多行内容,且有垂直滚动条,如图所示。
程序功能如下:
(1)考生文件夹下in5.dat文件中存放着100个三位正整数。单击“读数据”按钮,则将in5.dat文件中的数据读入数组a中;
(2)单击“查找水仙花数”按钮,则查找in5.dat中的所有水仙花数,并将这些水仙花顺次显示在Tex1文本框内。(水仙花数实质一个三位数,它的各位数字的立方和等于它本身,例如153就是水仙花数,因为
)。
“读数据”按钮的Click事件过程已经给出,请编写函数nare,以完成“查找水仙花数”按钮的Click的事件过程,实现上述功能。
注意:考生不得修改窗体文件中已存在的控件和程序,在结束程序之前,必须使用“查找水仙花数”按钮完成查找水仙花的过程,且必须用窗体右上角的关闭按钮结束程序,否则无成绩。最后,程序按原文件名存盘。
程序功能如下:
(1)考生文件夹下in5.dat文件中存放着100个三位正整数。单击“读数据”按钮,则将in5.dat文件中的数据读入数组a中;
(2)单击“查找水仙花数”按钮,则查找in5.dat中的所有水仙花数,并将这些水仙花顺次显示在Tex1文本框内。(水仙花数实质一个三位数,它的各位数字的立方和等于它本身,例如153就是水仙花数,因为
)。
“读数据”按钮的Click事件过程已经给出,请编写函数nare,以完成“查找水仙花数”按钮的Click的事件过程,实现上述功能。
注意:考生不得修改窗体文件中已存在的控件和程序,在结束程序之前,必须使用“查找水仙花数”按钮完成查找水仙花的过程,且必须用窗体右上角的关闭按钮结束程序,否则无成绩。最后,程序按原文件名存盘。
参考解析: 【解题思路】向窗体中添加一个Text文本框控件,并根据题目要求设置Text的相关属性,根据代码中narc函数的首部,可以判断出该函数的功能是判断参数p是否为水仙花数,可以在函数中定义一个布尔型变量flag,将参数p表示的三位数的个位,十位,百位分别表示出来,通过if语句判断每位数的立方和是否与该数相等,若将flag设置为true,最后返回flag的值。
【操作步骤】
步骤1:打开本题工程文件。
步骤2:向窗体中添加一个Text文本框控件,并根据题目要求设置Text的相关属性,设置方法如表4.7所示,设置结果如图4.6所示。
步骤3:打开代码编辑窗口,填入相应的代码以实现题目的功能。
步骤4:调试并运行程序,结果如图4.7所示。关闭程序后按题目要求存盘。