单选题 在运行阶段，要在文本框Text1获得焦点时选中文本框中的所有内容，则对应的事件过程是{{U}} {{/U}}。

• A.Private Sub Text1_GotFocus() Text1.SelStart=0 Text1.SelLength=Len(Text1.Text) End Sub
• B.Prirate Sub Text1_LosFocus() 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() Text1.SelStart=0 Text1.SelLength=Len(Text1.Text) End Sub