vb求助,急!!!

来源:百度知道 编辑:UC知道 时间:2024/06/24 16:53:24
Private Sub Form_Load()
Text1.Text=""
Text1.SetFocus
For i=1 To 10
Sum=Sum+i
Next i
Text1.Text=Sum
End Sub
该程序如何改正

在窗体加载过程中不能设置控件的焦点。
Form_Load() 与 SetFocus 只能有一个
要么把把加载改成Command1_Click()
要么删掉Text1.SetFocus

Private Sub Form_Load() 的意思是当程序打开时;你加个按钮当按钮按了再出答案;
Private Sub Form_Load()
Text1.Text=""
Text1.SetFocus

End Sub

Private Sub Command1_Click()
Dim i As Integer
Sum=Sum+i
Next i
Text1.Text=Sum
End Sub

Private Sub Form_Load()
Text1.Text=""
End Sub

Private Sub Command1_Click()
For i=1 To 10
Sum=Sum+i
Next i
Text1.Text=Sum
End Sub

这样应该行了。