现有程序如下: Option Base 1 Private Sub Form_Click() Dim x(5,6)As Integer,y(5)As Integer For i=1 To 5

admin2020-04-18  26

问题 现有程序如下:
    Option Base 1
    Private Sub Form_Click()
         Dim x(5,6)As Integer,y(5)As Integer
         For i=1 To 5
           For j=1 To 6
              x(i,j)=Int(Rnd*9+1)
           Nextj
        Next i
        Call f(5,6,x,y)
        For i=1 To 5
           Print y(i);
        Next i
    End Sub
    Sub f(m As Integer,n As Integer,a() As Integer,b() As Integer)
        For i=1 To m
           b(i)=0
           Forj=1 To n
              b(i)=b(i)+a(i,j)
           Nextj
        Next i
    End Sub
    关于上述程序,以下叙述中正确的是

选项 A、调用过程语句有错,参数不匹配   
B、程序有错,数组下标越界
C、y数组中保存的是x数组每行数据之和  
D、x数组中数据的取值范围是1-10

答案C

解析 本题中子过程f的四个形参分别为整型、整型、整型数组和整型数组,在窗体的单击事件中调用过程f,四个实参和四个形参可以匹配,调用语句没有错误;在二重循环中为二维数组的每个元素赋值,数组下界从1开始,因此不会越界:在二重循环中为数组x的元素赋值为0~9之间的值:在过程f中用一个二重循环以此计算x数组每行数据之和放在y数组中。
转载请注明原文地址:https://jikaoti.com/ti/P1x0FFFM
0

最新回复(0)