在考生文件夹下有一个工程文件vbsj5.vbp，其功能是：①单击“读数”按钮，则把考生文件夹下in5.dat文件中的100个0～999之间的整数读入数组a 中；②单击“计算”按钮，则对这100个数中的水仙花数（当一个数的值等于该数中各位数字的立方和时，此数

admin2019-05-14 46

问题在考生文件夹下有一个工程文件vbsj5.vbp，其功能是：①单击“读数”按钮，则把考生文件夹下in5.dat文件中的100个0～999之间的整数读入数组a 中；②单击“计算”按钮，则对这100个数中的水仙花数（当一个数的值等于该数中各位数字的立方和时，此数被称为水仙花数。如153=1³＋5³＋3³，所以153就是一个水仙花数）求平均值，并对该平均值截尾取整后显示在文本框txtResult中。
窗体中给出了所有控件（如图1－241所示）以及“读数”按钮的Click事件过程，请为“计算”按钮编写适当的事件过程实现上述功能。

注意：不得修改已经给出的程序和已有的控件的属性，在结束程序运行之前，必须进行计算，且必须使用窗体右上角的“关闭”按钮结束程序，否则无成绩。最后把修改后的文件按原文件名存盘。
程序源码：
Dim a(100) As Integer
Private Sub cmdRead_Click()
Dim k As Integer
Open App.Path & "\in5.dat" For
_
Input As #1
For k = 1 To 100
Input #1, a(k)
Next k
Close #1
End Sub
Private Sub cmdCal_Click()
’考生应完成的程序
End Sub
Private Sub Form_Unload(Cancel As
Integer)
Open App.Path & "\out5.dat" For
_
Output As #1
Print #1, txtResult.Text
Close #1
End Sub

选项

答案【操作步骤】步骤1：打开考生文件中的本题工程文件vbsj5.vbp，在代码编辑窗口指定位置编写以下代码：参考代码： Dim sum As Integer Dim n As Integer Dim x As Integer Dim y As Integer Dim z As Integer For i = 1 To 100 x = Int(a(i) / 100) y = Int((a(i) - x * 100) / 10) z = a(i) - x * 100 - y * 10 If a(i) = x ＾ 3 + y ＾ 3 + z ＾ 3 Then sum = sum + a(i) n = n + 1 End If Next txtResult.Text = Int(sum / n) 步骤2：按要求将文件保存至考生文件夹中。步骤3：按＜F5＞运行程序，先单击“读数”按钮，接着单击“计算”按钮，然后单击窗体右上角的关闭按钮结束程序。

解析

转载请注明原文地址:https://jikaoti.com/ti/exN0FFFM

本试题收录于：二级VB题库NCRE全国计算机二级分类