VBA利用判断语句和循环语句,求1-100之间的偶数之和并赋值到单元格

Question

如题所述

Answer 1

VBA利用判断语句和循环语句,求1-100之间的偶数之和并赋值到单元格，下面是解决方法之一。

打开一个空工作表。保证A2是空的，准备存放求和结果。

ATL+F11，调出VBA编辑器。

插入模块。

输入以下语句：

Sub sss()

  Dim i, j

    For i = 1 To 100

      If i Mod 2 = 0 Then

        j = j + i

      End If

    Next

  Range("a2").Value = j

End Sub

按F5运行，查看结果。