窗体上有一个名称为Command1的命令按钮,其单击事件过程如下: Option Base 1 Private Sub Command1_Click() Dim a(4, 4) As Integer For i = 1 To 4

admin2015-06-30  21

问题 窗体上有一个名称为Command1的命令按钮,其单击事件过程如下:
Option Base 1
Private Sub Command1_Click()
    Dim a(4, 4) As Integer
    For i = 1 To 4
        For j = 1 To 4
            a(i, j) = Int(Rnd * 100)
        Next
    Next
    x = a(1, 1)
    y = a(1, 1)
    For i = 1 To 4
        For j = 1 To 4
            If x < a(i, j) Then x = a(i, j)
            If y > a(i, j) Then y = a(i, j)
        Next
        s = s + a(i, i)
    Next
    Print x, y, s
End Sub
关于以上程序,以下叙述中错误的是

选项 A、二维数组元素的值是不大于99的随机整数
B、计算结果x是二维数组各元素中的最大数
C、计算结果y是二维数组各元素中的最小数
D、计算结果 s是二维数组各行第一个元素之和

答案D

解析 程序首先通过For循环给数组a元素赋值。取随机数函数返回的值介于0和1之间。乘以100后取整介于0和99。故A)正确。接下来对x和y赋初值(a的第一个元素),在循环内部进行数据大小的比较,把当前比x大的存入x,比y小的存入y,循环结束后,x中存储的是最大值,y中存储的是最小值。故B),C)对。s中存储一维和二维下标相同的数组元素的和。选D)。
转载请注明原文地址:https://kaotiyun.com/show/FrQp777K
0

最新回复(0)