用vb6.0做一个1加到100的进度条,我做的不正确,请高手帮忙,谢谢

来源：百度知道 编辑：UC知道 时间：2024/05/03 08:23:00
Private Sub Command1_Click()
For i = 1 To 100
i = 0
s = s + i
ProgressBar1.Value = i
Next i
ProgressBar1.Visible = true
End Sub

Private Sub Form_Load()
Dim i As Integer, s As Integer
ProgressBar1.Min = 0
ProgressBar1.Max = 100
ProgressBar1.Visible = True
End Sub

Private Sub Command1_Click()

For i = 1 To 100
s = s + i
ProgressBar1.Value = ProgressBar1.Value+1 '这里的进度是显示的是i进度，即每执行一次进度条前进一个
next i
END FOR
END SUB

Private Sub Form_Load()
Dim i As Integer, s As Integer
ProgressBar1.Min = 0
ProgressBar1.Max = 100
ProgressBar1.Visible = True
End Sub

把i=0那一句去掉