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

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

admin2019-05-14  41
问题 在考生文件夹下有一个工程文件vbsj5.vbp，其功能是：①单击“读数”按钮，则把考生文件夹下in5.dat文件中的100个0～999之间的整数读入数组a 中；②单击“计算”按钮，则对这100个数中的水仙花数（当一个数的值等于该数中各位数字的立方和时，此数被称为水仙花数。如153=13＋53＋33，所以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://kaotiyun.com/show/zTUp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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