木星是太阳系中体积最大的行星，人们对它充满无限遐想。为了解木星的形成、进化和结构等，在最新航天科技的支持下，美国预计于2011年8月发射新的木星探测器“朱诺”。对木星的科学探测活动将进一步佐证 [ ]

①人类的好奇、兴趣和遐想是推进有关木星认识的直接动力

②现代科技和探测手段的发展推动有关木星认识的深化发展

③实践发展提出的客观需要是推进有关木星认识的根本动力

④严密的逻辑和精心的准备能确保木星探测实践的如期成功

A．①②

B．②③

C．②④

D．③④

执行下面程序,单击按钮CmdRun,窗体上显示的第一行结果是（）,UBound(a)的值为（）,其中a(1)的值为（）.

Option Explicit

Private Sub CmdRun_Click()

Dim St As String,i As Integer

Dim a() As String,j As Integer,k As Integer

St="abcd"

Call Sub1(St)

Print St

For i=1 To Len(St)

For j=i+1 To Len(St)

If Mid(St,i,1)=Mid(St,j,1) Then Exit For

Next j

If j>Len(St) Then

k=k+1

ReDim Preserve a(k)

a(k)=Mid(St,i,1)

Print "a(";k;")=";a(k)

End If

Next i

End Sub

Private Sub Sub1(S As String)

Dim i As Integer

For i=1 To Len(S)\2

Mid(S,i,1)=Mid(S,Len(S)-i+1,1)

Next i

End Sub