在行政诉讼中，举证责任的分配原则是( )。

A．被告对所有的事项均须负举证责任

B．由原告和被告协商

C．被告对其作出的具体行政行为承担举证责任，原告只在特定情况下承担对特定事项的举证责任

D．所有的证据均由法院负责调取

下列程序的执行结果为( )。
Private Sub Command1_Click()
　　Dim s1 As String,s2 As String
　　s1="abcdef"
　　Call Invert(s1,s2)
　　Print s2
End Sub
Private Sub Invert(ByVal xstr As String,ystr As String)
　　Dim tempstr As String
　　i=Len(xstr)
　　Do While i＞=1
　　　tempstr=tempstr+Mid(xstr,i,1)
　　　i=i-1
　　Loop
　　ystr=tempstr
End Sub

A．fedcba

B．abcdef

C．afbecd

D．defabc