2. 计算机
  3. 下面程序的功能是：从键盘输入若干个自然数，输入-1则结束输入，然后计算平均值输出（因事先不知道执行时会输入多少个数，定义一个动态数组存放这些数）。 Private Sub Command1_Click() Dim a() As Integer

下面程序的功能是：从键盘输入若干个自然数，输入-1则结束输入，然后计算平均值输出（因事先不知道执行时会输入多少个数，定义一个动态数组存放这些数）。 Private Sub Command1_Click() Dim a() As Integer

admin2015-06-30  39
问题 下面程序的功能是：从键盘输入若干个自然数，输入-1则结束输入，然后计算平均值输出（因事先不知道执行时会输入多少个数，定义一个动态数组存放这些数）。
   Private Sub Command1_Click()
    Dim a() As Integer
    n = 0
    Do
        x = InputBox("请输入一个自然数，输入-1结束")
        If x <> -1 Then
            n = n + 1
            ___________
            a(n) = x
        End If
    Loop Until x = -1
    For k = 1 To n
        s = s + a(k)
    Next
    Print s / n
End Sub
以上程序不完整，应在横线处填写的是
选项 A、ReDim  a(n)
B、ReDim Preserve a(n)
C、ReDim a
D、ReDim a()
答案B
解析 这是求输入数据平均数的程序。 Dim a() As Integer为动态数组，其数组元素均为整型，在过程中用Redim语句来定义带下标的数组，格式ReDim 变量（下标） AS 类型名称，这里空白处就是要用ReDim语句定义，这一语句用来重新分配数组，按照定义的下标上、下界重新分配存储单元。当重新分配动态数组时，数组中的内容将被清除，如果ReDim中使用了Preserve选择项，则不清除数组内容。对于题目中，每次执行循环体，将输入数据赋值给数组，需要保留上次执行的数组数据，故需要使用Preserve选项，B项正确。
转载请注明原文地址:https://jikaoti.com/ti/S260FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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