[FOR...NEXT语句] For counter = start To End [Step step] [statements] [Exit For] [statements] Next [counter] [代码区域] 计算1到1000的和 Private Sub qiuhe() Dim i As Integer '用于存储列各项 Dim sum As Long '存储结果项 Dim counter As Integer '循环计数 i = sum = counter = sum = su…