Private Sub Form_Click() '点击窗口运行Dim s As Long, i As LongFor i = 1 To 100 s = s + iNext iPrint "1到100累加和为"; sEnd Sub