2. 计算机
  3. 在考生文件夹下有一个工程文件vbsj3．vbp，相应的窗体文件为vbsj3．frm，在窗体上有…个标题为“计算”的命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出数组arr中每个元素与其下标相除所得的和，并在文本框中显示出来，程序的运行情况如图3

在考生文件夹下有一个工程文件vbsj3．vbp，相应的窗体文件为vbsj3．frm，在窗体上有…个标题为“计算”的命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出数组arr中每个元素与其下标相除所得的和，并在文本框中显示出来，程序的运行情况如图3

admin2019-06-11  39
问题 在考生文件夹下有一个工程文件vbsj3．vbp，相应的窗体文件为vbsj3．frm，在窗体上有…个标题为“计算”的命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出数组arr中每个元素与其下标相除所得的和，并在文本框中显示出来，程序的运行情况如图3-55所示。在窗体的代码窗口中，已给出了部分程序，其中计算数组arr中每个元素与其下标相除所得的和的操作在通用过程Fun中实现，请编写该过程的代码。
   
    要求：请勿改动程序中的其他部分，只在Function Fun()和End Function之间填入你编写的若干语句并运行程序。在结束程序运行之前，必须至少正确运行一次程序，将结果显示在文本框中，否则无成绩。最后把修改后的文件按原文件名存盘。
    说明：数组arr中共有40个元素，“数组arr中每个元素与其下标相除所得的和”，是指：arr(1)／1+arr(2)／2+arr(3)／3+…+arr(40)／40
程序源码：
Optlon Base 1
Function Fun(a() As Single) As Single
    ′由考生编写==============
End Function
Private Sub cmdCal_Click()
    Dim arr
    Dim arr2(40) As Single
    arr=Array(12．5， 65．4， 56， 73， 46．23，_
    58．25， 83．49， 96， 27．3， 36．78，_
    29．26， 89．4， 34．7， 45．4， 56．9，_
    67．4， 78， 98， 87．5， 76．8， 34．6，_
    55．8， 64．7， 43．7， 99．4， 84．7，_
    66．2， 23．9， 55．5， 44．1， 33．2，_
    43．5， 41．2， 28．3， 78．6， 98．3，_
    56．1， 73．6， 49．3， 48．3)
    For i=1 To UBound(arr)
    arr2(i)=arr(i)
    Next  i
    r=Fun(arr2())
    txtResult．Text=Str(r)
    SaveData
End Sub
Sub SaveData()
    Open "out3．txt"  For Output As #1
    Print #1， txtResult．Text
    Close 1
End Sub
选项
答案审题分析 由本题所提供源程序可知，要求编写一个求数组中各元素与其下标相除所得的和，并在文本框中显示出来的函数。设计思路：利用For循环语句，将数组中各元素除以其下标(表达式为：a(i)／i)的值累加入一个变量(如sum)。循环变量的初值和终值可分别通过函数Lbound(a)和Ubound(a)获得。 操作步骤 步骤1：打开考生文件夹下的工程文件vbsj3．vbp。 步骤2：进入代码编辑窗口，在Function Fun()和End Function之间输入以下代码： 参考代码： Function Fun(a() As Single) As Single Dim sum As Sinale Dim i As Integer For i=LBound(a) To UBound(a) sum=sum+a(i)／i Next Fun=sum End Function 步骤3：按要求将文件保存至考生文件夹中。 考点链接 数组定义与操作、参数传递、Sub过程和函数过程
解析
转载请注明原文地址:https://www.kaotiyun.com/show/fJUp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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