下列程序运行时输出的结果是
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．天天向上清华大学天上人间程序设计