VB程序为什么出错

Form_Load的时候还没有显示窗体，TextBox还没有初始化，因此不能够设置焦点。

解决方法：先显示出来窗体。代码：

Private Sub Form_Load()
Me.Show
Text1.Text = ""
Text1.SetFocus
For i = 1 To 10
sum = sum + i
Next i
Text1.SetFocus
End Sub

不能在Form_Load()执行Text1.SetFocus
你可以在其它控件事件里执行，如：
private sub command1_click()
text1.setfocus
end sub

要想text1在Form_Load()中获取焦点最简单的方法，就是在属性窗口中设置text1的tabindex=0，这样无需Text1.SetFocus方法；
如果想让一个tabindex<>0的控件在窗体载入时获取焦点，那么Text1.SetFocus方法要写在Form_Activate()中...

Private Sub Form_Load()改成Private Sub Form_click()单击事件就行。