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

admin2018-09-19  26

问题 现有程序如下:
    Option Base l
    Prirate 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)
           Next j
    Next I
    Call f(5,6,x,Y)
    For i=1 To 5
        Print Y(i);    Next 1
End Sub
Sub f(m As Integer,n As Integer,a()As Integer,b()As Integer)
    For i=l To m
    b(i)=0
    For j=1 To n
    b(i)=b(i)+a(i,j)
    Next i
    Next i
End Sub
    关于上述程序,以下叙述中正确的是(     )。

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

答案C

解析 程序利用For循环为数组x的5行6列元素以随机整数赋值,随机数的范围是从1到9。过程f的功能是计算二维数组a()的每一行中元素值的和,每一行的和存放在另一个数组b()中,最后程序输出这些和值。因此C正确。
转载请注明原文地址:https://jikaoti.com/ti/GXm0FFFM
0

随机试题
最新回复(0)