单选题
若有下列程序：
Private Sub Form_Click()
Dim
a
a=Array("李军","刘梅","李鹏","李白")
For
i=LBound(a,1)To UBound(a,1)
If Left(a(i),1)="李"Then Print
a(i);
Next i
End Sub
运行时输出的结果是______。
- A.李军
- B.李军李鹏李白
- C.出错信息
- D.李军刘梅李鹏李白
【正确答案】
B
【答案解析】[考点] 数组的基本操作
[解析] UBound(数组[,维])和LBound(数组[,维])函数分别用于读取数组指定维的下标的上界值和下界值。本题首先通过Array函数初始化数组a，接着通过For循环语句，逐个比较数组a的各元素的首字符是否为“李”，并将符合条件的元素的值紧凑输出。