12月19/20日 财务会计玩转Excel 300集Office 2010微视频教程
12月22/23日 7天Excel脱白 高效办公必会的Office实战技巧
11月28日 Excel图表之美 网易云课堂-Excel数据透视表应用大全
Excel数据处理与分析实战技巧第1季
查看: 457|回复: 74

零基础12期-第五课作业贴

  [复制链接]
发表于 2017-11-29 20:03:23 | 显示全部楼层 |阅读模式
本帖最后由 开心妙妙 于 2017-12-9 11:03 编辑

交作业之前先看群文件作业提交说明
回复

使用道具 举报

发表于 4 天前 | 显示全部楼层

  1. 'Select Case 作业 : 胡说电影分级制度演示程序:提示输入年龄,
  2. '如果小等于 13 岁,提示可以看 G 级电影,如果大于13岁但是小等于16 岁,提问是否有家里大人陪同,
  3. '如果是,可以看PG-13 级, 否则可以看PG 级。如果大于16岁 但小等于18岁,可以看NC-17级 级的电影,
  4. '大于18岁可以看R 级电影。
  5. Sub selectcase()
  6.      Dim age As Integer, aa As String
  7.      age = 14
  8.      Select Case age
  9.      Case Is <= 13
  10.         MsgBox "可以看G级电影"
  11.      Case Is <= 16
  12.      aa = MsgBox("是否有家里大人陪同:", vbYesNo)   'aa = MsgBox("是否有家里大人陪同:", vbYesNo)
  13.         If aa = vbYes Then                         'If aa = vbYes Then
  14.            MsgBox "可以看PG-13级"
  15.         Else
  16.             MsgBox "可以看PG级"
  17.         End If
  18.      Case Is <= 18
  19.         MsgBox "可以看NC-17级"
  20.      Case Else
  21.         MsgBox "可以看R级电影"
  22.     End Select
  23. End Sub

  24. '输入小明的考试成绩,如果考试成绩大等于90分,则奖励100元。
  25. '否则,惩罚小明写一百遍 “我再也不敢马虎了”。在立即窗口输出"小明抄写第多少遍"
  26. '(debug.print,语句的使用)

  27. '第一步:输入小明的考试成绩
  28. '第二步:判断小明的成绩是否>=90分
  29. '第三步:如果>=90 那么奖励小明100元
  30. '第三步: 否则,小明从第1遍 --第100遍 ,并在立即窗口输出

  31. Sub debugPrint()
  32.     Dim i As Long, 成绩 As Long
  33.     成绩 = 9
  34.     If 成绩 >= 90 Then
  35.         MsgBox "奖励100元。"
  36.     Else
  37.         For i = 1 To 100
  38.             Debug.Print "小明抄写了第" & i & "遍,我再也不敢马虎了。"
  39.         Next
  40.     End If
  41. End Sub


  42. '循环作业2 :高斯累加的最简单的变种
  43. '
  44. '请编程计算1…100 当中所有7的倍数的累计和

  45. Sub 所有7的倍数的累加和()
  46.     Dim i As Long, sumv As Long
  47.     For i = 7 To 100 Step 7
  48.         sumv = sumv + i
  49.     Next
  50.       MsgBox sumv
  51. End Sub

  52. '循环作业3:高斯累加的变种
  53. '编程计算1+2-3+4-5+6… 100 的结果
  54. Sub 高斯累加的变种()
  55.     Dim i As Long, a As Long, sumv As Long, sumv1 As Long
  56.     For i = 2 To 100 Step 2
  57.         sumv = sumv + i
  58.     Next
  59.     For a = 3 To 100 Step 2
  60.         sumv1 = sumv1 + a
  61.     Next
  62.     MsgBox 1 + sumv - sumv1
  63. End Sub

  64. ''循环作业3:高斯累加的变种
  65. ''编程计算1+2-3+4-5+6… 100 的结果
  66. 'Sub 高斯累加的变种1()
  67. '    Dim i As Long, sumv As Long
  68. '    For i = 3 To 4 Step 1
  69. '    i = i * IIf(i Mod 2 = 1, -1, 1)
  70. '        sumv = sumv + i
  71. '    Next
  72. '      MsgBox sumv
  73. 'End Sub



  74. '=====================================================================================

  75. '循环作业4:不考虑乱输入
  76. ' 输入班级人数,然后依次输入学生成绩。最后输出该班级学生成绩的总分和平均分。
  77. '建议该班学生不超过5人
  78. '第一步:你输入一个班级人数 ---- 声明一个变量存班级人数 3
  79. '                                变量:学生成绩
  80. '                                总分 = 总分+学生成绩
  81. '第二步:构建循环,依次输入每一个学生的成绩,对总分进行累加
  82. '第三步:依据总分与班级人数求平均分
  83. '人数 = "请输入班级人数"
  84.     '从第1个到人数多个
  85.     '总分 = 总分+学生成绩 ---高斯累加

  86. Sub 求班级的总分和平均分()
  87.     Dim 人数 As Long, 学生成绩 As Long, 总分 As Long, a As Integer
  88.     人数 = InputBox("请输入班级人数:")
  89.     For 人数 = 1 To 人数
  90.     学生成绩 = InputBox("请输入第" & 人数 & "个学生成绩:")
  91.         总分 = 总分 + 学生成绩
  92.         Next
  93.     MsgBox "总分等于" & 总分
  94.     MsgBox "平均分等于" & 总分 / (人数 - 1)
  95. End Sub
复制代码
回复 支持 反对

使用道具 举报

发表于 6 天前 | 显示全部楼层


'Select Case 作业 : 胡说电影分级制度演示程序:提示输入年龄,
'如果小等于 13 岁,提示可以看 G 级电影,如果大于13岁但是小等于16 岁,提问是否有家里大人陪同,
'如果是,可以看PG-13 级, 否则可以看PG 级。如果大于16岁 但小等于18岁,可以看NC-17级 级的电影,
'大于18岁可以看R 级电影。


Sub 电影分级制度()
   
    Dim 年龄 As Long, 有无大人
   
   
    年龄 = InputBox("请输入您的年龄")
   
    Select Case 年龄
   
   
    Case Is <= 13
        MsgBox "可以看 G 级电影"
    Case Is <= 16
        有无大人 = MsgBox("是否有大人陪同?", vbYesNo)
        If 有无大人 = vbYes Then
            MsgBox "可以看PG-13 级"
        Else
            MsgBox "可以看PG 级"
        End If
   
    Case Is <= 18
        MsgBox "可以看NC-17级"
        
    Case Else
        MsgBox "可以看R 级电影"
   
   
    End Select
   
   



End Sub




'.MsgBox


'循环作业1:
'输入小明的考试成绩,如果考试成绩大等于90分,则奖励100元。
'否则,惩罚小明写一百遍 “我再也不敢马虎了”。在立即窗口输出"小明抄写第多少遍"
'(debug.print,语句的使用)

'第一步:输入小明的考试成绩
'第二步:判断小明的成绩是否>=90分
'第三步:如果>=90 那么奖励小明100元
'第三步: 否则,小明从第1遍 --第100遍 ,并在立即窗口输出

Sub 输出demo()
    Dim i As Long
    i = 1
    Debug.Print "小明抄写第" & i & "遍,我再也不敢马虎了。"
End Sub



Sub 小明考试成绩()

    Dim 成绩 As Long, i As Long
   
    成绩 = InputBox("请输入小明的考试成绩")
   
    If 成绩 >= 90 Then
        MsgBox "奖励小明100元"
    Else
        
        For i = 1 To 100
        Debug.Print "小明抄写第" & i & "遍,我再也不敢马虎了。"
        Next
        
    End If
   
        

End Sub

点评

答案正确,赞  发表于 6 天前
回复 支持 反对

使用道具 举报

发表于 2017-12-5 20:27:50 | 显示全部楼层
  1. tion Explicit

  2. Sub 作业1()
  3.     Dim age As Long
  4.     age = InputBox("请输入年龄")
  5.     Select Case age
  6.     Case Is <= 13
  7.         MsgBox "可以看G级电影"
  8.     Case Is <= 16
  9.        Dim pt As String
  10.        pt = MsgBox("是否有家里人陪同", vbYesNo)
  11.        If pt = vbYes Then
  12.          MsgBox "可以看PG-13级"
  13.        Else
  14.          MsgBox "可以看PG级"
  15.        End If
  16.     Case Is <= 18
  17.         MsgBox "可以看NC-17级"
  18.     Case Else
  19.         MsgBox "可以看R级"
  20.         End Select
  21.    
  22. End Sub


  23. Sub 循环作业1()
  24.     Dim score As Long
  25.     score = InputBox("请输入成绩")
  26.     If score >= 90 Then
  27.     MsgBox "奖励100元"
  28.     Else
  29.         Dim i As Long
  30.         i = 10
  31.         Debug.Print "小明抄写了第" & i & "遍我再也不也马虎了。"
  32.     End If
  33. End Sub

  34. Sub 循环作业2()
  35.     Dim i As Long, sumv As Long
  36.     For i = 7 To 100 Step 7
  37.     sumv = sumv + i
  38.     Next
  39.     MsgBox sumv

  40. End Sub


  41. Sub 循环作业3()
  42.    
  43.     Dim i As Long, sumv As Long
  44.     sumv = 1
  45.     For i = 2 To 98 Step 2
  46.     sumv = sumv + i - (i + 1)
  47.     Next
  48.     MsgBox sumv + 100
  49.    
  50. End Sub

  51. Sub 循环作业4()
  52.     Dim 人数 As Long, 学生成绩 As Long, 总分 As Long
  53.     人数 = InputBox("请输入班级人数")
  54.    
  55.     For 人数 = 1 To 人数

  56. 学生成绩 = InputBox("请输成绩")
  57.    
  58.     总分 = 总分 + 学生成绩
  59.     Next
  60.     MsgBox "总分是" & 总分
  61.    
  62.     MsgBox "平均分是" & (总分 / (人数 - 1))
  63.    
  64. End Sub
复制代码

点评

整体很赞,课程内容己撑握,循环作来1也许是理解错题意  发表于 6 天前
循环作业1,不正确,要在立即窗口显示:小明抄写了第1遍我再也不也马虎了,小明抄写了第2遍我再也不也马虎了.....直到100遍  发表于 6 天前
回复 支持 反对

使用道具 举报

发表于 2017-12-4 22:52:45 | 显示全部楼层
  1. Sub 电影分级selectcase()
  2.     Dim age As Long, 陪同否 As String
  3.     age = InputBox("请输入年龄:")
  4.     Select Case age
  5.      Case Is > 18
  6.          MsgBox "可观看R级电影"
  7.      Case Is > 16
  8.         MsgBox "可观看NC-17级电影"
  9.      Case Is > 13
  10.          陪同否 = MsgBox("是否有家长陪同", vbYesNo)
  11.          If 陪同否 = vbYes Then
  12.          MsgBox "可观看PG-13级电影"
  13.          Else
  14.          MsgBox "可观看PG电影"
  15.          End If
  16.     Case Else
  17.         MsgBox "可以观看G级电影"
  18.     End Select
  19. End Sub
  20. Sub 循环作业1()
  21.     Dim 成绩 As Long, i As Long
  22.     成绩 = InputBox("请输入小明的考试成绩")
  23.     Select Case 成绩
  24.      Case Is >= 90
  25.         MsgBox "奖励小明100元"
  26.      Case Else
  27.         For i = 1 To 100
  28.         i = i + 1
  29.         Debug.Print "小明抄写第" & i & "遍,我再也不敢马虎了。"
  30.         Next
  31.     End Select
  32. End Sub
  33. Sub 循环作业2()
  34.     Dim sumv As Long, i As Long
  35.     For i = 1 To 100
  36.         i = i + 6
  37.         sumv = sumv + i
  38.     Next
  39.     MsgBox sumv
  40. End Sub

  41. Sub 循环作业3()
  42.     Dim i As Long, j As Long, sumv As Long
  43.     For i = 1 To 100
  44.         i = i + 1
  45.         j = -i - 1
  46.         sumv = i + j
  47.     Next
  48.     MsgBox sumv
  49.    
  50. End Sub
  51. Sub 求班级的总分和平均分()
  52.     Dim 人数 As Long, 学生成绩 As Long, 总分 As Long, 均分 As Double, i As Long
  53.     人数 = InputBox("请输入班级人数")
  54.     For i = 1 To 人数
  55.     学生成绩 = InputBox("请输入成绩")
  56.     总分 = 学生成绩 + 总分
  57.     均分 = 总分 / 人数
  58.     Next
  59.     MsgBox 总分
  60.     MsgBox 均分
  61. End Sub
复制代码

点评

循环作业3不正确:可以 If i Mod 2 = 0 Then vSum = vSum + i Else vSum = vSum - i End If这样  发表于 6 天前
循环作业2:结果错误,可以这样 If i Mod 7 = 0 Then 去判断是否7的倍数  发表于 6 天前
回复 支持 反对

使用道具 举报

发表于 2017-12-4 19:07:05 | 显示全部楼层
  1. Option Explicit

  2. Sub 作业1()
  3. 'Select Case 作业 : 胡说电影分级制度演示程序:提示输入年龄,
  4. '如果小等于 13 岁,提示可以看 G 级电影,如果大于13岁但是小等于16 岁,提问是否有家里大人陪同,
  5. '如果是,可以看PG-13 级, 否则可以看PG 级。如果大于16岁 但小等于18岁,可以看NC-17级 级的电影,
  6. '大于18岁可以看R 级电影。

  7. Dim age As Integer, 家长陪同 As String
  8.    
  9.     age = Val(InputBox("请输入年龄"))
  10.    
  11.     Select Case age
  12.     Case Is <= 13
  13.         MsgBox "可以看 G 级电影"
  14.     Case Is <= 16
  15.         家长陪同 = MsgBox("是否有家长陪同", vbYesNo)
  16.             If 家长陪同 = vbYes Then
  17.                 MsgBox "可以看PG-13 级"
  18.             Else
  19.                 MsgBox "可以看PG级"
  20.             End If
  21.     Case Is <= 18
  22.         MsgBox "可以看NC-17级"
  23.     Case Else
  24.         MsgBox "可以看R 级"
  25.     End Select
  26.    
  27. End Sub

  28. Sub 作业2()
  29. '循环作业1:
  30. '输入小明的考试成绩,如果考试成绩大等于90分,则奖励100元。
  31. '否则,惩罚小明写一百遍 “我再也不敢马虎了”。在立即窗口输出"小明抄写第多少遍"
  32. '(debug.print,语句的使用)

  33.     Dim score As Integer, i As Integer, sumV As Integer
  34.    
  35.     score = InputBox("请输入小明成绩")
  36.    
  37.     If score >= 90 Then
  38.         MsgBox "奖励小明100元"
  39.     Else
  40.         sumV = 0
  41.         For i = 1 To 100
  42.         sumi = sumV + 1
  43.         Debug.Print "小明抄写第" & i & "遍,我再也不敢马虎了。"
  44.         Next
  45.     End If
  46.    
  47. End Sub


  48. Sub 作业3()
  49. '循环作业2 :高斯累加的最简单的变种
  50. '
  51. '请编程计算1…100 当中所有7的倍数的累计和

  52. Dim i As Integer, sumV As Integer
  53.     sumV = 0
  54.    
  55.     For i = 0 To 100 Step 7
  56.         sumV = sumV + i
  57.     Next
  58.    
  59.     MsgBox sumV
  60.    
  61. End Sub

  62. Sub 作业4()
  63. '循环作业3:高斯累加的变种
  64. '编程计算1+2-3+4-5+6… 100 的结果

  65. Dim i1 As Integer, i2 As Integer, i3 As Integer, sum1 As Integer, sum2 As Integer, sum3 As Integer, sum As Integer

  66.     sum1 = 0
  67.     For i1 = 1 To 100 Step 3
  68.         sum1 = sum1 + i1
  69.     Next
  70.    
  71.     sum2 = 0
  72.     For i2 = 2 To 100 Step 3
  73.         sum2 = sum2 + i2
  74.     Next
  75.    
  76.     sum3 = 0
  77.     For i3 = 3 To 100 Step 3
  78.         sum3 = sum3 + i3
  79.     Next
  80.    
  81.     MsgBox sum1 + sum2 - sum3

  82. End Sub

  83. Sub 作业5()

  84. '循环作业4:不考虑乱输入
  85. ' 输入班级人数,然后依次输入学生成绩。最后输出该班级学生成绩的总分和平均分。
  86. '建议该班学生不超过5人
  87. '第一步:你输入一个班级人数 ---- 声明一个变量存班级人数 3
  88. '                                变量:学生成绩
  89. '                                总分 = 总分+学生成绩
  90. '第二步:构建循环,依次输入每一个学生的成绩,对总分进行累加
  91. '第三步:依据总分与班级人数求平均分

  92. Dim 学生人数 As Long, 学生成绩 As Long, 总分 As Long, i As Long

  93.     学生人数 = InputBox("请输入学生人数")
  94.    
  95.     总分 = 0
  96.     For i = 1 To 学生人数
  97.         学生成绩 = InputBox("请输入成绩")
  98.         总分 = 总分 + 学生成绩
  99.     Next
  100.    
  101.     MsgBox "总分:" & 总分
  102.     MsgBox "平均成绩:" & 总分 / 学生人数

  103. End Sub









复制代码
回复 支持 反对

使用道具 举报

发表于 2017-12-4 19:00:03 | 显示全部楼层
  1. Sub 电影分级制度()

  2.    Dim age As Long
  3.    Dim 陪同否
  4.    
  5.    
  6.    age = InputBox("请输入年龄:")
  7.    
  8. Select Case age

  9.    Case Is < 13
  10.    
  11.      MsgBox "可以看G级电影"
  12.    
  13.    Case Is <= 16
  14.    
  15.      陪同否 = MsgBox("是否有大人陪同", vbYesNo)
  16.      
  17.      
  18.   If 陪同否 = vbYes Then
  19.      
  20.      MsgBox "可以看PG-13级"
  21.   
  22.   Else
  23.       
  24.     MsgBox "可以看PG级"
  25.    
  26.   End If
  27.   
  28.    Case Is <= 18
  29.    
  30.    MsgBox "可以看NC—17级"
  31.    
  32.    
  33. Case Else

  34.   MsgBox "可以看R级"
  35.   
  36. End Select


  37. End Sub

  38. '================================================================================================

  39. Sub 小明考试成绩()

  40.    
  41.    Dim 成绩 As Long, i As Long
  42.      
  43.    
  44.    成绩 = InputBox("请输入小明的成绩")
  45.    
  46. If 成绩 >= 90 Then

  47.   MsgBox "奖励100 元"
  48.   
  49. Else

  50.   For i = 1 To 100
  51.   
  52.   Debug.Print "小明抄写第"; i & "遍 ,我再也不敢马虎了"

  53.   Next
  54.   
  55. End If


  56. End Sub
  57. '==============================================================================

  58. Sub 倍数累计和()

  59.    Dim i As Long, SumV As Long

  60. For i = 1 To 100

  61.     If i Mod 7 = 0 Then

  62.     SumV = SumV + i

  63.     End If

  64. Next
  65.   
  66.    MsgBox SumV


  67. End Sub
  68. '===============================================



  69. Sub 高斯累加变种()

  70. Dim i As Long, SumV As Long

  71.    For i = 2 To 10
  72.      
  73.    SumV = SumV + i - (i + 1)
  74.    
  75.               
  76. Next

  77. MsgBox "计算结果是:" & SumV


  78. End Sub
  79. '========================================================================================

  80. Sub 班级成绩()

  81.       Dim 人数 As Long, 学生成绩 As Long, 总分 As Long, i As Long
  82.       

  83.       人数 = InputBox("请输入班级人数")

  84. For i = 1 To 人数

  85.      学生成绩 = InputBox("请输入学生成绩")

  86.      总分 = 总分 + 学生成绩

  87. Next

  88.       MsgBox "班级的总分是" & 总分 & ",平均分是" & 总分 / 3
  89.       

  90. End Sub
  91. '=====================================================================
复制代码
回复 支持 反对

使用道具 举报

发表于 2017-12-4 12:44:28 | 显示全部楼层
'Select Case 作业 : 胡说电影分级制度演示程序:提示输入年龄,
'如果小等于 13 岁,提示可以看 G 级电影,如果大于13岁但是小等于16 岁,提问是否有家里大人陪同,
'如果是,可以看PG-13 级, 否则可以看PG 级。如果大于16岁 但小等于18岁,可以看NC-17级 的电影,
'大于18岁可以看R 级电影。

'.MsgBox
Sub 电影观看分级()
    Dim x As Long, 家长陪同否
        x = Val(InputBox("请输入你的年龄:"))
    Select Case x
    Case Is <= 13
        MsgBox "你可以看G级电影"
    Case Is > 13, 16
    家长陪同否 = MsgBox("是否有家里大人陪同", vbYesNo)
     If (家长陪同否 = vbYes) Then
        MsgBox "可以看PG-13级"
    Else
        MsgBox "可以看PG级"
    End If
    Case Is > 16, 18
         MsgBox "可以看NC-1级"
    Case Is > 18
        MsgBox "可以看R级"
    End Select
    End Sub


'循环作业1:
'输入小明的考试成绩,如果考试成绩大等于90分,则奖励100元。
'否则,惩罚小明写一百遍 “我再也不敢马虎了”。在立即窗口输出"小明抄写第多少遍"
'(debug.print,语句的使用)

Sub 小明是否要抄写()
    Dim x As Double, i As Long
        x = Val(InputBox("输入小明的考试成绩"))
    Select Case x
    Case Is >= 90
       MsgBox "奖励100元"
    Case Is < 90
        i = 1
        For i = 1 To 100
        Debug.Print "小明抄写了第" & i & "遍,我再也不敢马虎了。"
        Next
    End Select
   
End Sub




'第一步:输入小明的考试成绩
'第二步:判断小明的成绩是否>=90分
'第三步:如果>=90 那么奖励小明100元
'第三步: 否则,小明从第1遍 --第100遍 ,并在立即窗口输出
Sub 输出demo()
    Dim i As Long
    i = 1
    Debug.Print "小明抄写第" & i & "遍,我再也不敢马虎了。"
End Sub
'循环作业2 :高斯累加的最简单的变种
'
'请编程计算1…100 当中所有7的倍数的累计和
Sub 循环累加高斯变种1()
Dim sumv As Long, i As Long
    For i = 7 To 100 Step 7
    sumv = sumv + i
        
Next
    MsgBox sumv
End Sub

'循环作业3:高斯累加的变种
'编程计算1+2-3+4-5+6… 100 的结果
Sub 循环累加高斯变种2()
    Dim sum As Long, sumv As Long, sumw As Long, i As Long, j As Long
        For i = 2 To 100 Step 2
        sumv = sumv + i
    Next
        For j = -3 To -100 Step -2
        sumw = sumw + j
    Next
        sum = 1 + sumv + sumw
            Debug.Print sum
    End Sub




'循环作业4:不考虑乱输入
' 输入班级人数,然后依次输入学生成绩。最后输出该班级学生成绩的总分和平均分。
'建议该班学生不超过5人
'第一步:你输入一个班级人数 ---- 声明一个变量存班级人数 3
'                                变量:学生成绩
'                                总分 = 总分+学生成绩
'第二步:构建循环,依次输入每一个学生的成绩,对总分进行累加
'第三步:依据总分与班级人数求平均分
    Sub 求班级成绩()
   
    Dim x As Long, y As Long, sumv As Long, sumw As Long
        x = InputBox("请输入班级人数")
    For y = 1 To x
        y = InputBox("请依次输入学生成绩:")
        sumv = sumv + y
    Next
        sumw = sumv / x
        MsgBox "全班总分是" & sumv & "分"
        MsgBox "全班平均分是" & sumw & "分"
    End Sub

回复 支持 反对

使用道具 举报

发表于 2017-12-4 11:49:13 | 显示全部楼层
  1. Sub Homework5a()

  2.     Dim Movie As Long
  3.     Movie = InputBox("Please key in your age")
  4.    
  5.     Select Case Movie
  6.    
  7.     Case Is <= 13
  8.         MsgBox "Please watch G type movie"
  9.     Case Is <= 16
  10.         Movie = MsgBox("With Parent?", vbYesNo)
  11.             If Movie = vbYes Then
  12.                 MsgBox "You could watch PG-13 Movie"
  13.             Else
  14.                 MsgBox "You could watch PG type Movie"
  15.             End If
  16.      Case Is < 18
  17.         MsgBox "You could watch NC-17 movie"
  18.         
  19.     Case Else
  20.         MsgBox "You could watch R type movie"
  21.     End Select

  22. End Sub
复制代码
  1. Sub Homework5a1()
  2.     Dim i As Long, Mark As Long, sumv As Long
  3.         
  4.     Mark = InputBox("please key in your mark")
  5.    
  6.     If Mark > 90 Then
  7.         MsgBox "Paid RMB 100"
  8.     Else
  9.    
  10.     For i = 1 To 100

  11.     Debug.Print "小明抄写第" & i & "遍,我再也不敢马虎了。"
  12.     Next
  13.    
  14.     End If
  15.    
  16. End Sub
复制代码
  1. Sub homework5b()

  2.     Dim i As Long, sumv As Long

  3.     For i = 0 To 100 Step 7
  4.         sumv = sumv + i
  5.     Next
  6.    
  7.     MsgBox sumv

  8. End Sub
复制代码
  1. Sub homework5c()

  2.     Dim i As Long, j As Long, sumv As Long, sumw As Long, Result As Long
  3.    
  4.     For i = 2 To 100 Step 2
  5.         sumv = sumv + i
  6.     Next
  7.    
  8.     For j = 3 To 100 Step 2
  9.         sumw = sumw + j
  10.     Next
  11.    
  12.     Result = 1 + sumv - sumw
  13.    
  14.     MsgBox Result
  15.    
  16.    
  17. End Sub
复制代码
  1. Sub homework5d()

  2.     Dim studentnum As Long, Mark As Long, Total As Long, i As Long
  3.    
  4.     studentnum = InputBox("Please key in student number")

  5.     For i = 1 To studentnum
  6.         Mark = InputBox("please key in student " & i & " mark")
  7.         
  8.     Total = Total + Mark
  9.    
  10.     Next
  11.    
  12.     MsgBox "Average mark are " & Total / studentnum & " mark"
  13.    
  14. End Sub
复制代码


回复 支持 反对

使用道具 举报

发表于 2017-12-4 00:10:12 来自手机 | 显示全部楼层
第五课的作业没做完,我先交一部分         Sub 作业1() 'select case      Dim 年龄 As Long, 是否 As String     年龄 = InputBox("请输入年龄:")     Select Case 年龄     Case Is <= 13        MsgBox "可以看G级电影"     Case 14 To 16     是否 = MsgBox("是否有家里人陪同?", vbYesNo)     Select Case 是否     Case vbYes         MsgBox "可以看PG-13级"     Case vbNo         MsgBox "可以看PG级"      End Select     Case 17 To 18     MsgBox "可以看NC-17级 级的电影"     Case Is > 18     MsgBox "可以看R级电影"          End Select Sub 作业2()      Dim 成绩 As Long, i As Long, sumv As Long         成绩 = InputBox("请输入小明的成绩")         For i = 1 To 100             If 成绩 >= 90 Then             MsgBox "奖励100元"         Else         Debug.Print "小明抄写了第" & i & "遍,我再也不敢马虎了。" End If Next End Sub  Sub 作业3()     Dim i As Long, sumv As Long     sumv = 0     For i = 1 To 100 Step 7     sumv = sumv + i     Debug.Print sumv                        Next  End Sub
回复 支持 反对

使用道具 举报

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

本版积分规则

关闭

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

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