在窗体上添加一个文本框Text1，然后编写如下的Load事件过程，则

问题单项选择题

在窗体上添加一个文本框Text1，然后编写如下的Load事件过程，则程序运行结果为( )。
Private sub Form_Load()
Text1.Text=""
Text1.SetFocus
For k=1 To 5
t=t*k
Next k
Text1.Text=t
End Sub

A．在文本框中显示120

B．文本框中仍为空

C．在文本框中显示1

D．出错

答案

参考答案：D

解析：本题中“Text1.SetFocus”语句运行时会出现错误。因为焦点只能移到可视的窗体或控件，而在窗体的Load事件完成前窗体或窗体上的控件是不可视的，所以编译出错。如果不是在 Form Load事件过程完成之前首先使用Show方法显示窗体的话，是不能使用SetFocus方法将焦点移至正在自己的Load事件中加载的窗体的。