下列程序运行时输出的结果是 Private Sub Form_Click() D

问题单项选择题

下列程序运行时输出的结果是 Private Sub Form_Click() Dim x 　　x=Array("天天向上"，"清华大学"，"天上人间"，"程序设计") 　　For i=LBound(a,1)to UBound(a,1) 　　　　If Left(a(i),1)="天"Then Print a(i)；　　Next End Sub

A．天天向上

B．天天向上天上人间

C．出错信息

D．天天向上清华大学天上人间程序设计

答案

参考答案：B

解析：[命题目的] 考查数组Lbound和Ubound函数的概念和使用方法。 [解题要点] 通过LBound和UBound函数返回一个数组中指定维的上界和下界，该程序的作用是找出并返回第一个字是天字的成语，故选B)。 [错解分析] Lbound和Ubound的概念混淆。 [考点链接] 数组的应用