设有如下程序: Option Base 1 Dim a(3,4)As Integer,b(4,3)As Integer Private Sub Commandl_Click() ’循环1 For i=1 To 3 Forj=l To 4 b(j,

admin2017-06-21  30

问题 设有如下程序:
Option Base 1
Dim a(3,4)As Integer,b(4,3)As Integer
Private Sub Commandl_Click() ’循环1
For i=1 To 3
Forj=l To 4
   b(j,i)=a(i,j)
  Next j
Next i ’循环2
  x=b(1,1)
For i=1 To 4
Forj=1 To 3
   Print b(i,j);
  Ifx<b(i,j)Then x=b(i,j)
Nextj
  Print
Next i
End Sub
程序中的数组a已被赋值。以下关于上述程序的叙述中,正确的是

选项 A、窗体模块中,不能使用Dim声明a、b数组
B、“循环1”可以正常运行
C、“循环2”中循环变量i、j的终值不对,所以不能正常运行
D、程序可以正常运行,x中保存的是数组b中所有元素中最小的数

答案B

解析 在窗体模块中使用Dim声明模块接变量,也可以声明模块级数组:在循环1中i从1到3,j从1到4,无论是访问b(j,i)还是a(i,j)均在数组的范围内,可以正常运行;在循环2中b(i,j)的值也在数组范围内,循环可以正常运行;最后x里面保存的是数组中最大的数。
转载请注明原文地址:https://jikaoti.com/ti/viy0FFFM
0

最新回复(0)