下列程序运行时输出的结果是( )。
Private Sub Form_Click（　）
Dima
a=Array("天天向上"，"清华大学"，"天上人间"，"程序设计")
forI=Lbound(a，1) to Ubound(a，1)
ifleft(a(i)，1)="天"then print a(i)；
nextI
End Sub

A:天天向上 B:天天向上天上人间 C:出错信息 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:天天向上清华大学天上人间程序设计

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

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

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

下列程序运行时输出的结果是( )。 Private Sub Form_Click（　） Dima a=Array("天天向上"，"清华大学"，"天上人间"，"程序设计") forI=Lbound(a，1) to Ubound(a，1) ifleft(a(i)，1)="天"then print a(i)； nextI End Sub

A:天天向上 B:天天向上天上人间 C:出错信息 D:天天向上清华大学天上人间程序设计

，天上人间。（李煜《浪淘沙》）

流水落花春去也