引用:
ggsmart说明:以下代码为38度OFFICE技术论坛的老朽版主提供,主要是帮助大家对VBA语句的认识.
复制内容到剪贴板
代码:
撰写:38度:老朽
'日期:2009-7-1 上午 11:40:59
Sub 求1到10000之间偶数和()
Dim I&, J&
For I = 0 To 10000 Step 2
J = J + I
Next
MsgBox "1到10000之间偶数和为" & J
End Sub
复制内容到剪贴板
代码:
'撰写:38度:老朽
'日期:2009-7-1 上午 11:40:59
Sub 求1到10000之间偶数和2()
Dim I&, J&
For I = 10000 To 1 Step -2
J = J + I
Next
MsgBox "1到10000之间偶数和为" & J
End Sub
复制内容到剪贴板
代码:
'撰写:38度:老朽
'日期:2009-7-1 上午 11:40:59
Sub 求1到10000之间奇数和()
Dim I&, J&
For I = 1 To 10000 Step 2
J = J + I
Next
MsgBox "1到10000之间奇数和为" & J
End Sub
复制内容到剪贴板
代码:
'撰写:38度:老朽
'日期:2009-7-1 上午 11:40:59
Sub 求1到10000之间奇数和2()
Dim I&, J&
For I = 9999To 1 Step -2'此句于2009年8月18日纠正
J = J + I
Next
MsgBox "1到10000之间奇数和为" & J
End Sub
引用:
感谢109楼artemis_xu朋友对以上代码的纠正!
复制内容到剪贴板
代码:
'撰写:38度:老朽
'日期:2009-7-1 上午 11:40:59
Sub 求1到10000之间能被5整除的数之和()
Dim I&, J&
For I = 0 To 10000 Step 5
J = J + I
Next
MsgBox "1到10000之间能被5整除的数之和为" & J
End Sub
复制内容到剪贴板
代码:
'撰写:38度:老朽
'日期:2009-7-1 上午 11:40:59
Sub 求1到10000之间能被5整除的数之和2()
Dim I&, J&
For I = 10000 To 1 Step -5
J = J + I
Next
MsgBox "1到10000之间能被5整除的数之和为" & J
End Sub
[
本帖最后由 ggsmart 于 2009-8-18 12:36 编辑 ]