单项选择题

在运行阶段，要在文本框Text1获得焦点时选中文本框中所有内容，对应的事件过程是
Ａ) Private Sub Text1_GotFocus()
Text1.SelStart=0
Text1.SelLength=Len(Text1.Text)
End Sub
Ｂ) Private Sub Text1_LostFocus()
Text1.SelStart=0
Text1.SelLength=Len(Text1.Text)
End Sub
Ｃ) Private Sub Text1_Change()
Text1.SelStart=0
Text1.SelLength=Len(Text1.Text)
End Sub
Ｄ) Private Sub Text1_SetFocus()
Text.SelStart=0
Text1.SelLength=Len(Text1.Text)
End Sub