下列程序的执行结果为
Private Sub Command1_C1ick( )
Dim sl As String，s2 AS String
s1="abcdef"
Call lnvert(s1，s2)
Print s2
End Sub
Private Sub lnvert(ByVal xstr As String，ystr As String)
Dim tempstr As Stdng
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

( )是全面记录个人信用活动、反映个人信用状况的文件，是征信机构把依法采集的信息，依法进行加工整理，最后依法向合法的信息查询人提供的个人信用历史记录。

A．个人信用征信
B．个人征信系统
C．个人信用报告
D．个人征信报告