在考生文件夹下有一个工程文件sjt5.vbp,其功能是: ①单击“读数据”按钮,则把考生文件夹下in5.dat文件中的100个0~999之间的整数读入数组a中; ②单击“计算”按钮,则对这100个整数中的所有水仙花数(当一个数的值等于该数中各位数字的立方和

admin2012-10-09  30

问题 在考生文件夹下有一个工程文件sjt5.vbp,其功能是:
①单击“读数据”按钮,则把考生文件夹下in5.dat文件中的100个0~999之间的整数读入数组a中;
②单击“计算”按钮,则对这100个整数中的所有水仙花数(当一个数的值等于该数中各位数字的立方和时,此数被称为水仙花数。例如,153=13+53+33,所以153就是一个水仙花数)求平均值,并对该平均值数尾取整后显示在文本框Textl中。窗体中给出了所有控件(如图1-180所示),已给“读数据”按钮的Click事件过程,请为“计算”按钮编写适当的事件过程实现上述功能。
注意:不得修改已经存在的控件和程序,在结束程序运行之前,必须进行计算,且必须用窗体右上角的关闭按钮结束程序,否则无成绩。最后,程序按原文件名存盘。

选项

答案 【操作步骤】 步骤l:打开考生文件夹下的本题工程文件sjt5.vbp,在代码编辑窗口的指定位置编写“计算”按钮的单击事件过程。 参考代码: Dim s As Long,n As Integer For i=l To 100 If isnarc(a(i))’2hen s=s+a(i) n=n+1 End If Next i Textl.Text=Fix(s/n) 步骤2:按要求将文件保存至考生文件夹中。 步骤3:按键运行程序,先单击“读数据”按钮,接着单击“计算”按钮,然后单击窗体右上角的关闭按钮结束程序。

解析  程序设计思路:声明一个变量s用于记录水仙花数的和,一个变量n记录水仙花数的个数。用For循环逐一取出数组a中的100个元素,通过调用函数isnrc判断其是否为一个水仙花数,若是水仙花数则将其加入到累加和s中.同时令n=n+l。循环结束后,s/n的值就是水仙花数的平均数。
转载请注明原文地址:https://kaotiyun.com/show/U3hp777K
0

最新回复(0)