在运行阶段，要在文本框Text1获得焦点时选中文本框中所有内容，对应的事件过程是( )

A．Private Sub Text1_GotFocus() Text1.SelStart=0 Text1.SelStart=Len(Text1.text) End Sub
B．Private Sub Text1_LostFocus() Text1.SelStart=0 Text1.SelStart=Len(Text1.text) End sub
C．Private Sub Text1_Change() Text1.SelStart=0 Text1.SelStart=Len(Text1.text) End sub
D．Private Sub Text1_SetFocus() Text1.SelStart=0 Text1.SelStart=Len(Text1.text) End sub