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

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