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

admin2020-04-18  21

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

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

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

答案B

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

最新回复(0)