你的程序不对！Private Sub Form_Click()s=0For i = 1 To 300 a=0 For j = 1 To i a = a + j Next j if a mod 2=0 then s=s+a end ifNext iPrint sEnd Sub
