新建From1（窗体），新建Command1（按钮CommandButton），代码：

Private Sub Command1_Click()
    Dim sum As Long
    sum = 0
    Dim i As Integer
    For i = 1 To 30
        sum = sum + (3 * (i - 1) + 1)
        Debug.Print "项=" & i & " 数=" & (3 * (i - 1) + 1) & " 和=" & sum
    Next i
    Debug.Print "1+4+7+10+13+…前 30 项的值为：" & sum
End Sub

运行结果：

项=1 数=1 和=1
项=2 数=4 和=5
项=3 数=7 和=12
项=4 数=10 和=22
项=5 数=13 和=35
项=6 数=16 和=51
项=7 数=19 和=70
项=8 数=22 和=92
项=9 数=25 和=117
项=10 数=28 和=145
项=11 数=31 和=176
项=12 数=34 和=210
项=13 数=37 和=247
项=14 数=40 和=287
项=15 数=43 和=330
项=16 数=46 和=376
项=17 数=49 和=425
项=18 数=52 和=477
项=19 数=55 和=532
项=20 数=58 和=590
项=21 数=61 和=651
项=22 数=64 和=715
项=23 数=67 和=782
项=24 数=70 和=852
项=25 数=73 和=925
项=26 数=76 和=1001
项=27 数=79 和=1080
项=28 数=82 和=1162
项=29 数=85 和=1247
项=30 数=88 和=1335