窗体上有单选钮和列表框控件。单击名称为Option1、标题为"国家"的单选钮,向列表框中添加国家名称,如下图所示。 Option1的单击事件过程如下: Private Sub Option1_Click()   Dim arr   arr=Array("

admin2015-10-23  69

问题 窗体上有单选钮和列表框控件。单击名称为Option1、标题为"国家"的单选钮,向列表框中添加国家名称,如下图所示。

Option1的单击事件过程如下:
Private Sub Option1_Click()
  Dim arr
  arr=Array("中国","日本","德国","美国","澳大利亚")
  List1.Clear
  For i=0 To Ubound(arr)
    List1.AddItem arr(i)
  Next
       End Sub
以下关于上述代码的叙述中,正确的是(  )。

选项 A、程序有错,没有声明数组的维数及上下界
B、只有一维数组才能使用Array为数组赋初值
C、For 循环的终值应为ListCount-1
D、For 循环的初值应为1

答案B

解析 程序没有错误。数组变量定义时可以不用声明上下界。List控件列表项的索引从0开始。Array函数只适用于一组数组,只能对一维数组进行初始化,不能对二维数组或多维数组进行初始化。因此叙述正确的是B选项。
转载请注明原文地址:https://jikaoti.com/ti/jKJ0FFFM
0

最新回复(0)