国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 辦公 > Excel > 正文

1000以內(nèi)能被5整除的數(shù)之和的VBA代碼

2024-08-23 19:58:19
字體:
供稿:網(wǎng)友

  下面的兩種代碼,功能都是求1000以內(nèi)能被5整除的數(shù)之和。

  第一種代碼

  Sub 求1到1000之間能被5整除的數(shù)之和()

  Dim I&, J&

  For I = 0 To 1000 Step 5

  J = J + I

  Next

  MsgBox "1到1000之間能被5整除的數(shù)之和為" & J

  End Sub

  第二種代碼

  Sub 求1到1000之間能被5整除的數(shù)之和2()

  Dim I&, J&

  For I = 100 To 1 Step -5

  J = J + I

  Next

  MsgBox "1到1000之間能被5整除的數(shù)之和為" & J

  End Sub


發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
主站蜘蛛池模板: 越西县| 万荣县| 都昌县| 资溪县| 青神县| 龙山县| 土默特右旗| 拜城县| 葫芦岛市| 澄城县| 渭南市| 鲁山县| 乌兰察布市| 嘉义县| 波密县| 平潭县| 集安市| 历史| 佛教| 石嘴山市| 贡觉县| 拉孜县| 弥勒县| 泸西县| 长宁区| 九龙城区| 江门市| 临潭县| 临泉县| 略阳县| 汝城县| 东安县| 平湖市| 红桥区| 肃宁县| SHOW| 平顶山市| 潞城市| 合山市| 巴林右旗| 双流县|