Private Sub Command1_Click()Dim 奇数和 As LongDim 偶数和 As LongDim 你输入的数 As IntegerDim i As Long你输入的数 = InputBox("请输入一个整数")For i = 2 To 你输入的数 Step 2偶数和 = 偶数和 + iNextFor i ...