8月19/20日 Excel函数实战100例 300集Office 2010微视频教程
8月9/10日 Excel函数实战技巧精粹 高效办公必会的Office实战技巧
8月14日 Excel图表之美 网易云课堂-Excel数据透视表应用大全
Excel数据处理与分析实战技巧第1季
查看: 646|回复: 61

零基础VBA 第十期 第六课时作业贴

[复制链接]
发表于 2017-5-16 15:57:04 | 显示全部楼层 |阅读模式
本帖最后由 芬子 于 2017-5-31 11:13 编辑

交作业的要求:

1、不需要附件,只需贴代码,说明你做的是哪道题
2、贴上的代码都需要缩进,并且关键语句要有注释
3、请在添加代码文字,那里添加代码,这样代码要楼层中显得赏心悦目。不知道怎样操作的小伙伴,可以参照看动画。
220618u399zi9jw7ll7iiq.gif
回复

使用道具 举报

发表于 2017-5-16 15:58:50 | 显示全部楼层
本帖最后由 抬头苦干 于 2017-5-18 08:36 编辑

作业06:2017-05-15 安冬 UID:1700565
  1. Option Explicit

  2. '1.按产品分别求和
  3. Sub Ex1_MergeCellSum()
  4.     Dim i%, j%
  5.     j = 1   '从 E 列第 2 行开始写入数据
  6.     For i = 2 To 13
  7.         If Cells(i, 1) <> "" Then
  8.             j = j + 1
  9.             Cells(j, 5) = Cells(i, 1)
  10.             Cells(j, 6) = Cells(i, 3)
  11.         Else
  12.             Cells(j, 6) = Cells(j, 6) + Cells(i, 3)
  13.         End If
  14.     Next i
  15. End Sub
复制代码
  1. '2.韩信点兵
  2. Sub Ex2_WarriorCount()
  3.     Dim i&
  4.     '1500人死伤四五百,取值范围:1000~1100
  5.     For i = 1000 To 1100
  6.         If (i Mod 3 = 2) And (i Mod 5 = 3) And (i Mod 7 = 2) Then _
  7.             MsgBox "汉军有 " & i & " 名勇士", vbInformation, "结论"
  8.     Next i
  9. End Sub
复制代码
  1. '3.小明学习补齐
  2. Sub Ex3_XiaoMingStudy()
  3.     Dim i As Long, Gotit As Long
  4.     Do
  5.         i = i + 1
  6.         MsgBox "胡说老师给小明讲解了第" & i & "遍。"
  7.         Gotit = MsgBox("胡说老师问小明,学会了吗?", vbYesNo)
  8.         If Gotit = vbYes Then
  9.             MsgBox "小明学会了,高兴地走了。"
  10.         ElseIf i = 3 Then
  11.             MsgBox "胡说老师口吐白沫昏了过去,小明偷偷跑了。"
  12.         End If
  13.     Loop Until Gotit = vbYes Or i = 3
  14. End Sub
复制代码
  1. '4.求1-100的倒数和
  2. Sub Ex4_ReciprocalSum()
  3.     Dim i&, sOdd#, sEven#
  4.     sOdd = 1
  5.     For i = 2 To 100
  6.         If (i Mod 2) Then
  7.             sOdd = sOdd - 1 / i
  8.         Else
  9.             sEven = sEven + 1 / i
  10.         End If
  11.     Next i
  12.     MsgBox "1 + 1/2 - 1/3 + 1/4 - 1/5 + … + 1/100" & vbCrLf & _
  13.            "≈ " & (sOdd + sEven), vbInformation, "计算结果"
  14. End Sub
复制代码
  1. '5.列出水仙花数
  2. Sub Ex5_GetNarcissusNumber()
  3.     Dim i&, j&, dg1st%, dg2nd%, dg3rd%
  4.     For i = 100 To 999
  5.         dg1st = i \ 100 Mod 10    '百位数
  6.         dg2nd = i \ 10 Mod 10     '十位数
  7.         dg3rd = i \ 1 Mod 10      '个位数
  8.         If (dg1st ^ 3 + dg2nd ^ 3 + dg3rd ^ 3) = i Then
  9.             j = j + 1
  10.             Debug.Print "第 " & j & " 个水仙花数:" & i
  11.         End If
  12.     Next i
  13. End Sub
复制代码
  1. '6.求 100 以内的素数和
  2. Sub Ex6_PrimeSum()
  3.     Dim i&, j&, mySum&
  4.     For i = 2 To 100
  5.         For j = 2 To i - 1
  6.             If i Mod j = 0 Then Exit For
  7.         Next j
  8.         If j = i Then mySum = mySum + i
  9.     Next i
  10.     MsgBox "1-100以内的素数和为 " & mySum
  11. End Sub
复制代码
  1. '7-1.喝啤酒问题1(不借不还)
  2. Sub Ex7_1_BottleCap()
  3.     Dim bottle%, cap%, beerDrunk%, money@, price@, m%, n%
  4.    
  5.     money = Val(InputBox("兜里有几块钱?", "要钱", 10))
  6.     price = Val(InputBox("啤酒多少钱一瓶?", "询价", 2))
  7.     If money <= 0 Or price <= 0 Then
  8.         MsgBox "客官抱歉:要么您囊中羞涩(被除数为0),要么咱酒卖光了(除数为0)。" & vbCrLf & vbCrLf & _
  9.                "不送,慢走!", vbCritical, "输入错误"
  10.         Exit Sub
  11.     End If
  12.     beerDrunk = money \ price   '钱能买带到的最大啤酒数
  13.     bottle = beerDrunk          '第一次喝完后的空瓶数
  14.     cap = beerDrunk             '第一次喝完后的瓶盖数
  15.    
  16.     Do Until (bottle < 2 And cap < 4)
  17.         m = bottle \ 2                      '空瓶兑换的啤酒数
  18.         n = cap \ 4                         '瓶盖兑换的啤酒数
  19.         beerDrunk = beerDrunk + m + n       '喝过的总瓶数
  20.         bottle = bottle + (1 - 2) * m + n   '每2空瓶换1瓶酒,喝完总共少1支空瓶,多1个瓶盖
  21.         cap = cap + (1 - 4) * n + m         '每4瓶盖换1瓶酒,喝完总共少3个瓶盖,多1支空瓶
  22.     Loop
  23.     MsgBox "啤酒 " & price & " 元/瓶," & money & " 元钱,促销期间最多可以喝 " _
  24.            & beerDrunk & " 瓶啤酒。", vbInformation, "结果"
  25. End Sub
复制代码
  1. '7-2.喝啤酒问题2(有借有还)
  2. Sub Ex7_2_BottleCap()
  3.     Dim bottle&, cap&, beerDrunk&, money@, price@, m&, n&

  4.     money = Val(InputBox("兜里有几块钱?", "要钱", 10))
  5.     price = Val(InputBox("啤酒多少钱一瓶?", "询价", 2))
  6.     If money <= 0 Or price <= 0 Then Exit Sub
  7.     beerDrunk = money \ price
  8.     bottle = beerDrunk + 1              '借入 1 支空瓶
  9.     cap = beerDrunk + 1                 '借入 1 个瓶盖
  10.    
  11.     Do Until (bottle <= 2 And cap < 4)  '提前1次结束循环
  12.         m = bottle \ 2
  13.         n = cap \ 4
  14.         beerDrunk = beerDrunk + m + n
  15.         bottle = bottle - m + n
  16.         cap = cap - 3 * n + m
  17.     Loop
  18.     bottle = bottle - 2  '最后换的酒不能喝,因此不新增空瓶与瓶盖
  19.     MsgBox "最多可以喝" & beerDrunk & " 瓶啤酒、再还 1 瓶酒给债主。" & vbCr & _
  20.            "此时剩空瓶 " & bottle & " 瓶,剩瓶盖 " & cap & " 个。", 64, "结果"
  21. End Sub
复制代码


点评

nice  发表于 2017-5-17 21:47
回复 支持 反对

使用道具 举报

发表于 2017-5-16 16:20:08 | 显示全部楼层
  1. Sub Merge_cells()
  2.     Dim i As Long, j As Long
  3.     j = 1
  4.     For i = 2 To 13
  5.         If Cells(i, 1) <> "" Then
  6.             j = j + 1
  7.             Cells(j, 5) = Cells(i, 1)
  8.             Cells(j, 6) = Cells(i, 3)
  9.         Else
  10.             Cells(j, 6) = Cells(j, 6) + Cells(i, 3)
  11.         End If
  12.     Next
  13. End Sub

  14. Sub 作业1_hxdb1()
  15.     Dim rs As Long
  16.     rs = 1000
  17.     Do
  18.         rs = rs + 1
  19.     Loop Until (rs Mod 3 = 2) And (rs Mod 5 = 3) And (rs Mod 7 = 2)
  20.     MsgBox "我军有" & rs & "名勇士,敌人不足500,我们居高临下以众击寡,一定能打败敌人。"
  21. End Sub

  22. Sub 作业1_hxdb2()
  23.     Dim rs As Long
  24.     rs = 1100
  25.     Do
  26.         rs = rs - 1
  27.     Loop While rs > 0 And ((rs Mod 7 <> 2) Or (rs Mod 5 <> 3) Or (rs Mod 3 <> 2))
  28.     MsgBox "我军有" & rs & "名勇士,敌人不足五百,我们居高临下以众击寡,一定能打败敌人。"
  29. End Sub

  30. Sub 作业2_xmxx()
  31.     Dim i As Long, understand As Long
  32.     Do
  33.         i = i + 1
  34.         MsgBox "胡说老师给小明讲解了第" & i & "遍。"
  35.         understand = MsgBox("胡说老师问小明,学会了吗?", vbYesNo)
  36.             If understand = vbYes Then
  37.                 MsgBox "小明学会了,高兴的走了。"
  38.                 Exit Sub
  39.             End If
  40.     Loop Until understand = vbYes Or i = 3
  41.         MsgBox "胡说老师口吐白沫昏了过去,小明偷偷跑了。"
  42. End Sub

  43. Sub 作业3_sum1()
  44.     Dim sum1 As Double, sum2 As Double, sum As Double, i As Long, j As Long
  45.     sum = 1
  46.         For i = 2 To 100 Step 2
  47.         sum1 = sum1 + 1 / i
  48.         Next
  49.         For j = 3 To 99 Step 2
  50.             sum2 = sum2 - 1 / j
  51.         Next
  52.     sum = Round(sum + sum1 + sum2, 3)
  53.     MsgBox "数列和为: " & sum
  54. End Sub
  55. Sub 作业3_sum2()
  56.     Dim i As Long, sum As Double
  57.     For i = 2 To 100
  58.         If i Mod 2 = 0 Then
  59.             sum = sum + 1 / i
  60.         Else
  61.             sum = sum - 1 / i
  62.         End If
  63.     Next
  64.     sum = Round(sum + 1, 3)
  65.     MsgBox "数列和为: " & sum
  66. End Sub
  67. Sub 作业3_sum3()
  68.     Dim i As Long, sum As Double, factor As Long
  69.     factor = -1
  70.     For i = 2 To 100
  71.         factor = factor * (-1)
  72.         sum = sum + 1 / (factor * i)
  73.     Next
  74.     sum = Round(sum + 1, 3)
  75.     MsgBox sum
  76. End Sub

  77. Sub 作业4_sxhs1()
  78.     Dim a As Long, b As Long, c As Long, abc As String '定义变量 a,b,c分别为个位数,十位数,百位数数字
  79.     For a = 0 To 9
  80.         For b = 0 To 9
  81.             For c = 1 To 9
  82.                 If a + b * 10 + c * 100 = a ^ 3 + b ^ 3 + c ^ 3 Then
  83.                         MsgBox "满足条件的水仙花数有: " & c & b & a
  84.                 End If
  85.             Next
  86.         Next
  87.     Next
  88. End Sub

  89. Sub 作业5_sum()
  90. Dim i As Long, j As Long, sum As Long
  91. For i = 2 To 100
  92.     For j = 2 To i - 1
  93.         If i Mod j = 0 Then Exit For
  94.     Next
  95.     If j = i Then sum = sum + i
  96. Next
  97. MsgBox "1到100的质数之和为 : " & sum
  98. End Sub

  99. Sub 作业6_hpj1()
  100.     Dim cap As Long, empty_bottle As Long, sum As Long 'cap表示瓶盖,empty_bottle表示空瓶,sum表示喝酒总数
  101.     Dim nocap_empty_bottle As Long, bottle As Long 'nocap_empty_bottle表示没有瓶盖的空瓶,bottle表示有酒含盖子的酒瓶
  102.     bottle = 10 / 2
  103.     empty_bottle = bottle
  104.     cap = bottle
  105.     Do
  106.         sum = sum + bottle
  107.         bottle = empty_bottle \ 2 + cap \ 4
  108.         nocap_empty_bottle = (empty_bottle Mod 2)
  109.         empty_bottle = bottle + nocap_empty_bottle
  110.         cap = bottle + (cap Mod 4)
  111.     Loop Until empty_bottle \ 2 = 0 And cap \ 4 = 0
  112.         sum = sum + bottle
  113.         MsgBox "10元钱最多能喝" & sum & "瓶酒。"
  114. End Sub
  115. Sub 作业6_hpj2()
  116.     Dim cap As Long, empty_bottle As Long, sum As Long 'cap表示瓶盖,empty_bottle表示空瓶,sum表示喝酒总数
  117.     Dim nocap_empty_bottle As Long, bottle As Long 'nocap_empty_bottle表示没有瓶盖的空瓶,bottle表示有酒含盖子的酒瓶
  118.     bottle = 10 / 2
  119.     empty_bottle = bottle + 1
  120.     cap = bottle + 1
  121.     Do
  122.         sum = sum + bottle
  123.         bottle = empty_bottle \ 2 + cap \ 4
  124.         nocap_empty_bottle = empty_bottle Mod 2
  125.         empty_bottle = bottle + nocap_empty_bottle
  126.         cap = bottle + cap Mod 4
  127.     Loop Until bottle = 1 And empty_bottle \ 2 = 0 And cap \ 4 = 0
  128.     MsgBox "10元钱最多能喝" & sum & "瓶酒;还剩" & nocap_empty_bottle & "个空瓶," & cap - bottle & "个瓶盖。"
  129. End Sub



复制代码


点评

优秀  发表于 2017-5-17 22:01
回复 支持 反对

使用道具 举报

发表于 2017-5-16 16:27:23 | 显示全部楼层
  1. '作业1:韩信点兵
  2. '秦朝末年,楚汉相争。一次,韩信将1500名将士与楚王大将李锋交战。
  3. '苦战一场,楚军不敌,败退回营,汉军也死伤四五百人,于是韩信整顿兵马也返回
  4. '大本营。当行至一山坡,忽有后军来报,说有楚军骑兵追来。只见远方尘土飞扬,
  5. '杀声震天。汉军本来已十分疲惫,这时队伍大哗。
  6. '韩信骑马到坡顶,见来敌不足五百骑,便急速点兵迎敌。
  7. '他命令士兵3人一排,结果多出2名;
  8. '接着命令士兵5人一排,结果多出3名;
  9. '他又命令士兵7人一排,结果又多出2名。
  10. '韩信马上向将士们宣布:我军有___名勇士,敌人不足五百,
  11. '我们居高临下,以众击寡,一定能打败敌人。汉军本来就信服自己的统帅,这一来更相信韩信
  12. '是“神仙下凡”、“神机妙算”。于是士气大振。一时间旌旗摇动,鼓声喧天,汉军步步进逼,
  13. '楚军乱作一团。交战不久,楚军溃败而逃。

  14. Sub 韩信点兵()
  15.     Dim 汉军 As Long
  16.     Do
  17.         汉军 = 汉军 + 1
  18.     Loop Until 汉军 Mod 3 = 2 And 汉军 Mod 5 = 3 And 汉军 Mod 7 = 2 And 汉军 > 1000 And 汉军 < 1100
  19.         MsgBox "我军有" & 汉军 & "名勇士,敌人不足五百,我们居高临下,以众击寡,一定能打败敌人。"
  20.    
  21. End Sub
复制代码

点评

先给循环变量一个初值1000 然后开始循环 这样可以减少循环次数  发表于 2017-5-17 20:48
回复 支持 反对

使用道具 举报

发表于 2017-5-16 16:31:28 | 显示全部楼层
  1. '作业1:韩信点兵
  2. '秦朝末年,楚汉相争。一次,韩信将1500名将士与楚王大将李锋交战。
  3. '苦战一场,楚军不敌,败退回营,汉军也死伤四五百人,于是韩信整顿兵马也返回
  4. '大本营。当行至一山坡,忽有后军来报,说有楚军骑兵追来。只见远方尘土飞扬,
  5. '杀声震天。汉军本来已十分疲惫,这时队伍大哗。
  6. '韩信骑马到坡顶,见来敌不足五百骑,便急速点兵迎敌。
  7. '他命令士兵3人一排,结果多出2名;
  8. '接着命令士兵5人一排,结果多出3名;
  9. '他又命令士兵7人一排,结果又多出2名。
  10. '韩信马上向将士们宣布:我军有___名勇士,敌人不足五百,
  11. '我们居高临下,以众击寡,一定能打败敌人。汉军本来就信服自己的统帅,这一来更相信韩信
  12. '是“神仙下凡”、“神机妙算”。于是士气大振。一时间旌旗摇动,鼓声喧天,汉军步步进逼,
  13. '楚军乱作一团。交战不久,楚军溃败而逃。

  14. Sub 韩信点兵()
  15.     Dim 汉军 As Long
  16.     Do
  17.         汉军 = 汉军 + 1
  18.     Loop Until 汉军 Mod 3 = 2 And 汉军 Mod 5 = 3 And 汉军 Mod 7 = 2 And 汉军 > 1000 And 汉军 < 1100
  19.         MsgBox "我军有" & 汉军 & "名勇士,敌人不足五百,我们居高临下,以众击寡,一定能打败敌人。"
  20.    
  21. End Sub
复制代码
  1. '作业2:补齐小明学习的剩余部分:
  2. '1、如果小明学会了,请输出小明学会了,高兴的走了。
  3. '2、小明学到3次还是不会,请输出,胡说老师口吐白沫昏了过去,小明偷偷跑了

  4. Sub 小明学习()
  5.     Dim i As Long, 会了吗 As String
  6.     Do
  7.         i = i + 1
  8.             MsgBox "胡说老师给小明讲解了第" & i & "遍。"
  9.             会了吗 = MsgBox("胡说老师问小明,学会了吗?", vbYesNo)
  10.     Loop Until 会了吗 = vbYes Or i = 3
  11.         If 会了吗 = vbYes Then
  12.             MsgBox "小明学会了,高兴地走了."
  13.         Else
  14.             MsgBox "胡说老师口吐白沫昏了过去,小明偷偷跑了."
  15.         End If
  16. End Sub
复制代码
  1. '作业3:  求1+1/2-1/3+1/4-1/5 + … +1/100 的值
  2. Sub 高斯累加()
  3.     Dim one As Long, z As Double, f As Double, zj As Double, fj As Double, sum As Double
  4.     one = 1
  5.     For z = 2 To 100 Step 2
  6.         zj = zj + (1 / z)
  7.     Next
  8.     Debug.Print zj
  9.     For f = 3 To 99 Step 2
  10.             fj = fj + (1 / f)
  11.     Next
  12.     Debug.Print fj
  13.     sum = one + zj - fj
复制代码
  1. '作业4 列出所有的水仙花数
  2. '所谓水仙花数就是指从100-999 之间所有的自幂数
  3. '假设一个三位数abc 那么 a^3+ b^3+c^3 = abc 这样的数被称为水仙花数
  4. Sub 水仙()
  5.     Dim a As Long, b As Long, c As Long
  6.     For a = 1 To 9 '百位数
  7.         For b = 0 To 9 '十位数
  8.             For c = 0 To 9 '个位数
  9.             If (a) ^ 3 + (b) ^ 3 + (c) ^ 3 = a * 100 + b * 10 + c Then
  10.             MsgBox a & b & c
  11.             End If
  12.             Next
  13.         Next
  14.     Next
  15. End Sub
复制代码
  1. '**作业5:最难的高斯问题:
  2. '                        求1… 100 内所有质数的和
  3. '1、质数怎么求?素数?
  4. '质数(素数) 1不是质数也不是合数
  5. '除了自身与1 之外不能被任何数字整除
  6. 'n 2到n-1 每一个数来试验,如果都有余数,就说明是质数
  7. Sub 求质数()
  8.     Dim i As Long, n As Long, sumz As Long
  9.     For i = 2 To 100
  10.         For n = 2 To i
  11.             If i Mod n = 0 Then Exit For
  12.         Next
  13.         If n = i Then sumz = sumz + i
  14.     Next
  15.     MsgBox "1到100的质数之和为" & sumz
  16.    
  17. End Sub
复制代码
酒瓶盖就没想明白怎么玩。。。。

点评

作业3 one这个变量在本体中没有意义;变量名尽量要有自身的意义;循环变量z,f应定义成整数型  发表于 2017-5-17 20:53
回复 支持 反对

使用道具 举报

发表于 2017-5-16 17:05:46 | 显示全部楼层
  1. Sub 小明学习()
  2.   Dim i As Long, 会了吗 As Long
  3.   Do
  4.   i = i + 1
  5.   MsgBox "胡说老师给小明讲解了第" & i & "遍"
  6.   会了吗 = MsgBox("胡说老师问小明,学会了吗", vbYesNo)
  7.   If 会了吗 = vbYes Then
  8.   MsgBox "小明学会了,高兴地走了"
  9.   ElseIf 会了吗 = vbNo And i = 3 Then
  10.   MsgBox "胡说老师口吐白沫昏了过去,小明偷偷跑了"
  11.   Exit Do
  12.   End If

  13.   Loop
  14.   
  15.   
  16. End Sub
复制代码


点评

写的不对 do loop 要有一个出口,通过while或者until限定 不然一直循环  发表于 2017-5-17 20:57
回复 支持 反对

使用道具 举报

发表于 2017-5-16 17:10:40 | 显示全部楼层
sub 韩信点兵
dim  汉军人数 as long
do until  汉军人数 mod  3= 2  and  汉军人数  mod 5  =  3  and  汉军人数  mod  7  =  2  and  (汉军人数> = 1000  and  汉军人数  <=  1500)
汉军人数 =  汉军人数 +  1
loop
msgbox  汉军人数
end sub

点评

先限定人数范围 可以减少循环次数  发表于 2017-5-17 20:57
回复 支持 反对

使用道具 举报

发表于 2017-5-16 21:27:41 | 显示全部楼层
Sub 水仙花数()
Dim i As Long, j As Long, k As Long
   For i = 1 To 9
      For j = 0 To 9
         For k = 0 To 9
            If i ^ 3 + j ^ 3 + k ^ 3 = i * 100 + j * 10 + k Then Debug.Print i&; j&; k
         Next
      Next
   Next
        
  
End Sub

回复 支持 反对

使用道具 举报

发表于 2017-5-17 10:37:59 | 显示全部楼层
  1. Sub 质数()
  2. Dim n As Long, i As Long, h As Long, sum As Long
  3. sum = 2
  4. For n = 2 To 100
  5.    For i = 2 To n - 1

  6.        h = n Mod i
  7.        If h = 0 Then Exit For
  8.       
  9.       
  10.    Next
  11.        If h <> 0 Then
  12.        sum = sum + i
  13.        End If
  14.       
  15. Next
  16. MsgBox sum
  17. End Sub


复制代码


回复 支持 反对

使用道具 举报

发表于 2017-5-17 11:28:11 | 显示全部楼层
  1. <p>作业1()
  2.    Dim i As Integer, j As Integer
  3.     For i = 1 To 13
  4.         If Cells(i, 1) <> "" Then
  5.             j = j + 1
  6.             Cells(j, 5) = Cells(i, 1)
  7.             Cells(j, 6) = Cells(i, 3)
  8.         Else
  9.             Cells(j, 6) = Cells(j, 6) + Cells(i, 3)
  10.         End If
  11.     Next
  12. End Sub</p><p>
  13. </p><p>Sub 韩信点兵()
  14.     Dim soldier As Integer
  15.     For soldier = 500 To 1100
  16.         Do While soldier Mod 3 = 2 And soldier Mod 5 = 3 And soldier Mod 7 = 2</p><p>            ’While 条件:'当条件为真的时候循环
  17.             soldier = soldier + 1
  18.         Loop
  19.     Next
  20.     MsgBox soldier
  21. End Sub</p>
复制代码
  1. Sub 小明学习()
  2. Dim i As Long, 会了吗 As Long
  3.     Do
  4.         i = i + 1
  5.         MsgBox "胡说老师给小明讲解了第" & i & "遍。"
  6.         会了吗 = MsgBox("胡说老师问小明,学会了吗?", vbYesNo)
  7.     Loop Until 会了吗 = vbYes Or i = 3</p><p>
  8.     If 会了吗 = vbYes Then
  9.             MsgBox ("小明学会了,高兴的走")
  10.         ElseIf i = 3 Then
  11.              MsgBox ("胡说老师口吐白沫昏了过去,小明偷偷跑了")
  12.     End If
  13. End Sub
复制代码
  1. Sub 求和()
  2. Dim a As Integer, b As Integer, sum As Double
  3.     For a = 2 To 100
  4.         If a Mod 2 <> 0 Then
  5.             sum = sum - 1 / a
  6.         Else
  7.             sum = sum + 1 / a
  8.         End If
  9.     Next
  10.     sum = sum + 1
  11.     MsgBox sum
  12. End Sub
复制代码
  1. Sub 水仙花()
  2. Dim a As Integer, b As Integer, c As Integer, d As Integer
  3. For a = 1 To 9
  4.     For b = 0 To 9
  5.         For c = 0 To 9
  6.         d = 100 * a + 10 * b + c
  7.         If a ^ 3 + b ^ 3 + c ^ 3 = d Then
  8.         MsgBox d
  9.         End If
  10.         Next
  11.     Next
  12. Next
  13. End Sub
复制代码
  1. Sub 求质数()
  2.     Dim i As Long, n As Long
  3.     For n = 1 To 100
  4.         For i = 2 To n - 1
  5.             If n Mod i <> 0 Then
  6.             n = n + 1
  7.             End If
  8.         Next
  9.     Next
  10.     MsgBox n
  11. End Sub
复制代码

点评

韩信点兵结果不对  发表于 2017-5-17 22:02
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 入学

本版积分规则

关闭

站长推荐上一条 /2 下一条

快速回复 返回顶部 返回列表