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

admin2013-10-16  25

问题 窗体上有一个名称为Commandl的命令按钮,其单击事件过程如下:
    Option Base 1
    Private Sub Command 1_Click()
            Dim a(4,4)As Integer
            For i=1 To 4
                 Forj=1 To 4
                       a(i,j)=Int(Rnd*100)
                 Next
            Next
            x=a(1,1)y=a(1,1)
            For i=1 To 4
                 Forj=1 To 4
                      Ifx<a(i,j)Then x=a(i,j)
                      Ify>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

解析 随机数函数Rnd的功能是用于产生一个小于1但大于或等于0的随机数,本题中产生的整数不会大于99;后一个二重循环用于遍历整个二维数组并且进行比较,如果数组元素的值大于x则成为新的最大值,小于y则成为新的最小值,循环结束后x是二维数组各元素中的最大数,y是二维数组各元素中的最小数。s中存放的是二维数组对角线元素之和。
转载请注明原文地址:https://jikaoti.com/ti/tm60FFFM
0

最新回复(0)