excel拖动排列步骤如下：1.我在EXCEL中输入以下数字，如图：2.现在我要想复制“1”，则拖动单元格A1，但此该你会发现，在下拖动下方有个方框，如图：3.上步出现的情况便是以顺序的方式出现，但你只需要点动那个右下方的方框，选择“复制单元格”即可......
J For I = 1 To 1000 Step 2 J = J + I Next MsgBox 1到1000之间奇数和为 J End Sub 第二种代码：变量递减 Sub 求1到1000之间奇数和2
Excel教程
2022-03-25 20:08:33
一、求偶数之和
求1000以内的偶数和。
第一种代码：变量递增的
Sub 求1到1000之间偶数和()
Dim I&, J&
For I = 0 To 1000 Step 2
J = J + I
Next
MsgBox "1到1000之间偶数和为" & J
End Sub
第二种代码：变量递减的
Sub 求1到1000之间偶数和2()
Dim I&, J&
For I = 1000 To 1 Step -2
J = J + I
Next
MsgBox "1到1000之间偶数和为" & J
End Sub
二、求奇数之和
第一种代码：变量递增
Sub 求1到1000之间奇数和()
Dim I&, J&
For I = 1 To 1000 Step 2
J = J + I
Next
MsgBox "1到1000之间奇数和为" & J
End Sub
第二种代码：变量递减
Sub 求1到1000之间奇数和2()
Dim I&, J&
For I = 999 To 1 Step -2
J = J + I
Next
MsgBox "1到1000之间奇数和为" & J
相关文章