【正确答案】 A

【答案解析】[解析] 文本框的GotFoucs表示当文本框获得焦点时，此事件被触发。为实现在文本框中自动显示系统当前日期，可以将代码“Text1.Text=Date”放入文本框的GotFoucs事件中，当用户移动鼠标指针到文本框Text1，获得焦点时，会自动触发自动填充当前时间事件，故A选项正确。LostFocus表示当文本框失去焦点时，触发该事件。Change表示当文本框的内容发生变化时所触发的事件。Click表示当点击文本框所触发的事件。故B、C、D选项均错误，答案为A选项。