如何用vb6的for循环结构求出1到100累加总和实例

2026年09月28日 17:22
有1个网友回答
网友(1):

Private Sub Form_Click() '点击窗口运行
Dim s As Long, i As Long
For i = 1 To 100
    s = s + i
Next i
Print "1到100累加和为"; s
End Sub