问题
单项选择题
下列程序运行时输出的结果是( )。
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
End Sub
A) 天天向上
B) 天天向上天长地久
C) 出错信息
D) 天天向上清华大学天长地久程序设计
答案
参考答案：B
解析： 通过LBound和UBound函数返回一个数组中指定维的上界和下界，该程序的作用是找出并返回第一个字是“天”字的成语，故选B)。