白话Excel函数公式 Office易学宝微视频教程合集(Excel+Word+PPT)
笨办法学VBA(从入门到精通) 高效办公必会的Office实战技巧
财务总监的Excel私房课 Excel数据透视表实战秘技
Excel图表神技
查看: 2079|回复: 31

零基础13期-第五课作业

[复制链接]
发表于 2018-3-14 22:08:14 | 显示全部楼层 |阅读模式
本帖最后由 唐伯狼 于 2018-3-15 16:20 编辑

规则如前





回复

使用道具 举报

发表于 2018-3-15 11:18:28 | 显示全部楼层
  1. Sub 作业1()
  2.     Dim 李四 As Double, 绩效工资 As String
  3.     李四 = 5000
  4.     绩效工资 = InputBox("绩效为")
  5.     Select Case 绩效工资
  6.     Case Is = "A"
  7.         李四 = 李四 + 500
  8.     Case Is = "B"
  9.         李四 = 李四 + 200
  10.     Case Is = "C"
  11.         李四 = 李四
  12.     Case Is = "D"
  13.         李四 = 李四 - 200
  14.     Case Is = "E"
  15.         李四 = 李四 - 500
  16.     End Select
  17.     MsgBox "李四工资为" & 李四
  18. End Sub

  19. ' 作业2 : 胡说电影分级制度演示程序:提示输入年龄,
  20. '如果小于等于 13 岁,提示可以看 G 级电影,如果大于13岁但是小等于16 岁,提问是否有家里大人陪同,
  21. '如果是,可以看PG-13 级, 否则可以看PG 级。如果大于16岁 但小等于18岁,可以看NC-17级 级的电影,
  22. '大于18岁可以看R 级电影。
  23. Sub 作业2()
  24.     Dim 年龄 As Long, 分级
  25.     年龄 = Val(InputBox("请输入年龄"))
  26.     Select Case 年龄
  27.     Case Is <= 13
  28.         MsgBox "G"
  29.     Case Is <= 16
  30.         分级 = MsgBox("是否有大人陪同", vbYesNo, "温馨提示")
  31.         If 分级 = vbYes Then
  32.         MsgBox "PG-13"
  33.         Else
  34.         MsgBox "PG"
  35.         End If
  36.     Case Is <= 18
  37.         MsgBox "NC-17"
  38.     Case Is > 18
  39.         MsgBox "R"
  40.     End Select
  41. End Sub

  42. '循环作业1:
  43. '输入小明的考试成绩,如果考试成绩大等于90分,则奖励100元。
  44. '否则,惩罚小明写一百遍 “我再也不敢马虎了”。在立即窗口输出"小明抄写第多少遍"
  45. '(debug.print,语句的使用)'第一步:输入小明的考试成绩
  46. '第二步:判断小明的成绩是否>=90分
  47. '第三步:如果>=90 那么奖励小明100元
  48. '第三步: 否则,小明从第1遍 --第100遍 ,并在立即窗口输出
  49. Sub B作业1()
  50.     Dim 考试成绩 As Double, i As Long, b As String
  51.     考试成绩 = InputBox("成绩为")
  52.     b = "我再也不马虎了"
  53.     If 考试成绩 >= 90 Then
  54.         MsgBox "奖励100"
  55.     Else
  56.        For i = 1 To 100
  57.         Debug.Print i, b
  58.         Next
  59.     End If
  60.       
  61. End Sub

  62. '循环作业2 :高斯累加的最简单的变种
  63. '
  64. '请编程计算1…100 当中所有7的倍数的累计和
  65. Sub B作业2()
  66.     Dim i As Long, b As Long
  67.     For i = 7 To 100 Step 7
  68.         b = b + i
  69.     Next
  70.     MsgBox b
  71.       
  72. End Sub

  73. '循环作业3:高斯累加的变种
  74. '编程计算1+2-3+4-5+6… 100 的结果
  75. Sub B作3()
  76.     Dim i As Long, b As Long, a As Long, c As Long
  77.     a = -1
  78.     b = 3
  79.     c = 1
  80.     For i = 3 To 100
  81.         c = a * c
  82.         b = i * c + b
  83.         Debug.Print b, i * c
  84.     Next
  85.     MsgBox b
  86. End Sub

  87. '循环作业4:不考虑乱输入
  88. ' 输入班级人数,然后依次输入学生成绩。最后输出该班级学生成绩的总分和平均分。
  89. '建议该班学生不超过5人
  90. '第一步:你输入一个班级人数 ---- 声明一个变量存班级人数 3
  91. '                                变量:学生成绩
  92. '                                总分 = 总分+学生成绩
  93. '第二步:构建循环,依次输入每一个学生的成绩,对总分进行累加
  94. '第三步:依据总分与班级人数求平均分
  95. Sub B作4()
  96.     Dim 人数 As Long, 成绩 As Long, 总分 As Long, i As Long
  97.         人数 = InputBox("请输入班级人数")
  98.     For i = 1 To 人数
  99.     成绩 = InputBox("请输入成绩")
  100.     总分 = 总分 + 成绩
  101.     Next
  102.     MsgBox "平均分为" & 总分 / 人数
  103. End Sub

  104. '***循环作业5:
  105. '不断要求用户输入一个数字(inputbox),如果用户输入字符串则该数字为0. 如果该用户输入到第5 遍,
  106. '程序会结束。Msgbox 输出用户输入过的最大数字和该数字是第几次输入的。(注意:不考虑负数)
  107. '朴素的算法:打擂台
  108. '定义一个变量maxV 最大值, Maxi 存输入最大值的那次的次数
  109. 'maxv =1
  110. Sub B作5()
  111.     Dim maxV As Double, maxi As Long, i As Long, b As Double
  112.     For i = 1 To 5
  113.         b = Val(InputBox("请输入数字"))
  114.         If maxV < b Then
  115.             maxV = b
  116.             maxi = i
  117.         End If
  118.     Next
  119.     MsgBox maxV & " " & maxi
  120.       
  121. End Sub
复制代码
回复 支持 1 反对 0

使用道具 举报

发表于 2018-3-15 00:48:25 | 显示全部楼层
本帖最后由 muahxb 于 2018-3-15 16:33 编辑
  1. Option Explicit

  2. Sub 作业1要求使用selectcase()
  3.     Dim 年终评定 As String, 基本工资 As Long
  4.     年终评定 = InputBox("请输入评定等级")
  5.     基本工资 = 5000
  6.     Select Case 年终评定
  7.     Case "A"
  8.         MsgBox "李四的来年公资为" & 基本工资 + 500
  9.     Case "B"
  10.         MsgBox "李四的来年公资为" & 基本工资 + 200
  11.     Case "C"
  12.         MsgBox "李四的来年公资为" & 基本工资
  13.     Case "D"
  14.         MsgBox "李四的来年公资为" & 基本工资 - 200
  15.     Case "E"
  16.         MsgBox "李四的来年公资为" & 基本工资 - 500
  17.     End Select
  18. End Sub


  19. Sub 作业2胡说电影分级()
  20.     Dim 年龄 As Long, msg As String, ret
  21.     年龄 = InputBox("请输入年龄")
  22.     Select Case 年龄
  23.     Case Is <= 13
  24.         MsgBox "可以看G级电影"
  25.     Case Is <= 16
  26.         msg = "是否有家里大人陪同"
  27.    
  28.         ret = MsgBox(msg, vbYesNo, "陪同确认")
  29.    
  30.         If ret = vbYes Then '
  31.             MsgBox "可以看PG-13级电影", Title:="可以"
  32.         Else
  33.             MsgBox "可以看PG级电影", vbCritical, "失望"
  34.         End If
  35.     Case Is <= 18
  36.         MsgBox "可以看NC-17级电影"
  37.     Case Is > 18
  38.         MsgBox "可以看R级电影"
  39.     End Select
  40. End Sub

  41. Sub 作业3小明抄写()
  42.     Dim 成绩 As Long, i As Long
  43.     i = 1
  44.     成绩 = InputBox("请输入成绩")
  45.     Select Case 成绩
  46.     Case Is >= 90
  47.         MsgBox "奖励小明100元"
  48.     Case Is < 90
  49.         For i = 1 To 100
  50.         Debug.Print "小明抄写第" & i & "遍,我再也不敢马虎了。"
  51.         Next
  52.     End Select
  53. End Sub


  54. Sub 循环作业2()
  55.     Dim suma As Long, i As Long
  56.     For i = 0 To 100 Step 7
  57.         suma = suma + i
  58.     Next
  59.     MsgBox suma

  60. End Sub
  61. Sub 循环作业3()
  62.     Dim i As Long, sumb As Long, j As Long, sumc As Long
  63.     sumb = 1
  64.     For i = 0 To 100 Step 2
  65.         sumb = sumb + i
  66.     Next
  67.     For j = 3 To 100 Step 2
  68.         sumc = sumc + j
  69.     Next
  70.     MsgBox sumb - sumc
  71. End Sub

  72. Sub 循环作业4()
  73.     Dim 学生成绩 As Long, 人数 As Long, 总分 As Long, i As Long, 平均分 As Double
  74.     人数 = InputBox("请输入班级人数")
  75.     For i = 1 To 人数
  76.         学生成绩 = InputBox("请输入学生成绩")
  77.         总分 = 学生成绩 + 总分
  78.     Next
  79.     平均分 = 总分 / 人数
  80.     MsgBox "学生成绩总分为" & 总分 & ",平均分为" & 平均分
  81. End Sub

  82. Sub 循环作业5()
  83.     Dim i As Long, inputv As Long, maxv As Long, maxi As Long
  84.     maxv = 1
  85.     For i = 1 To 5
  86.         inputv = Val(InputBox("请输入一个正数"))
  87.         If inputv < 0 Then inputv = 0
  88.         If inputv > maxv Then
  89.             maxv = inputv
  90.             maxi = i
  91.         End If
  92.         Debug.Print inputv
  93.     Next
  94.     MsgBox "用户输入过的最大数字是" & maxv & "该数字是第" & maxi & "次输入的"
  95. End Sub
复制代码

回复 支持 反对

使用道具 举报

发表于 2018-3-15 13:00:29 | 显示全部楼层
  1. '第五课作业
  2. Sub 工资()
  3.     Dim 评级 As String, 上年工资 As Long
  4.        评级 = InputBox("请输入李四评级")
  5.        上年工资 = 5000
  6.           Select Case 评级
  7.             Case "A"
  8.               MsgBox "李四本年工资" & 上年工资 + 500
  9.             Case "B"
  10.               MsgBox "李四本年工资" & 上年工资 + 200
  11.             Case "C"
  12.               MsgBox "李四本年工资" & 上年工资 + 0
  13.             Case "D"
  14.               MsgBox "李四本年工资" & 上年工资 - 200
  15.             Case "E"
  16.               MsgBox "李四本年工资" & 上年工资 - 500
  17.           End Select
  18. End Sub
  19. Sub 电影()
  20.     Dim old As Long, 成人 As String, 陪同 As String
  21.       old = InputBox("How old are you?")
  22.         Select Case old
  23.           Case Is <= 13
  24.             MsgBox "可以看:" & vbCr & "    G级电影"
  25.           Case Is <= 16
  26.             成人 = "是否有成年人陪同"
  27.              陪同 = MsgBox(成人, vbYesNo, "限制")
  28.               If 陪同 = vbYes Then
  29.                   MsgBox "可以看:" & vbCr & "    PG-13级电影."
  30.               Else
  31.                   MsgBox "可以看:" & vbCr & "    PG级电影"
  32.               End If
  33.           Case Is <= 18
  34.             MsgBox "可以看:" & vbCr & "    NC-17级电影"
  35.           Case Else
  36.             MsgBox "可以看:" & vbCr & "    R级电影"
  37.         End Select
  38. End Sub
  39. Sub 电影1()
  40.     Dim old As Long, 陪同 As String
  41.       old = InputBox("How old are you?")
  42.         Select Case old
  43.           Case Is <= 13
  44.             MsgBox "可以看:" & vbCr & "    G级电影"
  45.           Case Is <= 16
  46.            陪同 = MsgBox("是否有成年人陪同", vbYesNo, "限制")
  47.               If 陪同 = vbYes Then
  48.                   MsgBox "可以看:" & vbCr & "    PG-13级电影."
  49.               Else
  50.                   MsgBox "可以看:" & vbCr & "    PG级电影"
  51.               End If
  52.           Case Is <= 18
  53.             MsgBox "可以看:" & vbCr & "    NC-17级电影"
  54.           Case Else
  55.             MsgBox "可以看:" & vbCr & "    R级电影"
  56.         End Select
  57. End Sub
  58. Sub 累加7()
  59.     Dim i As Long, sum As Long
  60.       sum = 0
  61.       For i = 7 To 100 Step 7
  62.          sum = sum + i
  63.       Next
  64.         MsgBox sum
  65. End Sub
  66. Sub 成绩()
  67. Dim i As Long, chengji As Long
  68. chengji = Val(InputBox("请输入小明的成绩: "))
  69.   If chengji >= 90 Then
  70.     MsgBox "奖励100"
  71.   Else
  72.     MsgBox "写100遍我再也不敢马虎了"
  73.      For i = 1 To 100
  74.      Debug.Print "小明正在抄写第" & i & "遍,我再也不敢马虎了。"
  75.      Next
  76.   End If
  77. End Sub
复制代码
回复 支持 反对

使用道具 举报

发表于 2018-3-15 13:51:28 | 显示全部楼层
第五课
  1. Option Explicit

  2. Sub select作业1()
  3.     Dim access As String
  4.     Dim salary As Long
  5.    
  6.     access = InputBox("请输入评级A-E")
  7.     salary = 5000
  8.    
  9.     Select Case access
  10.     Case "A"
  11.         MsgBox "每月工资" & salary + 500
  12.     Case "B"
  13.         MsgBox "每月工资" & salary + 200
  14.     Case "C"
  15.         MsgBox "每月工资" & salary
  16.     Case "D"
  17.         MsgBox "每月工资" & salary - 200
  18.     Case "E"
  19.         MsgBox "每月工资" & salary - 500
  20.     Case Else
  21.         MsgBox "请输入正确的评级"
  22.     End Select
  23.    
  24. End Sub

  25. Sub select作业2()
  26.     Dim year As Integer
  27.    
  28.     year = InputBox("请输入年龄")
  29.    
  30.     Select Case year
  31.     Case Is <= 13
  32.         MsgBox "可以看G级电影"
  33.     Case Is <= 16
  34.         If MsgBox("是否有家长陪同", vbYesNo) = vbYes Then
  35.             MsgBox "可以看PG-13级电影"
  36.         Else
  37.             MsgBox "可以看PG级电影"
  38.         End If
  39.     Case Is <= 18
  40.         MsgBox "可以看NC-17级电影"
  41.     Case Else
  42.         MsgBox "可以看R级电影"
  43.     End Select
  44.    
  45. End Sub

  46. Sub 循环作业1()
  47.     Dim record As Long
  48.     Dim i As Integer
  49.    
  50.     record = InputBox("请输入小明的考试成绩")
  51.    
  52.     If record >= 90 Then
  53.         MsgBox "奖励100元"
  54.     Else
  55.         For i = 1 To 100
  56.             Debug.Print "小明抄写第" & i & "遍,我再也不敢马虎了。"
  57.         Next
  58.     End If
  59.    
  60. End Sub

  61. Sub 循环作业2()
  62.     Dim i As Integer
  63.     Dim sum As Long
  64.    
  65.     sum = 0
  66.    
  67.     For i = 7 To 100 Step 7
  68.         sum = sum + i
  69.     Next
  70.    
  71.     MsgBox sum
  72.    
  73.     End Sub

  74. Sub 循环作业3()
  75.     Dim i As Integer
  76.     Dim sum As Long
  77.    
  78.     sum = 1
  79.    
  80.     For i = 2 To 100
  81.         If i Mod 2 = 0 Then
  82.             sum = sum + i
  83.         Else
  84.             sum = sum - i
  85.         End If
  86.     Next
  87.    
  88.     MsgBox sum
  89.    
  90. End Sub

  91. Sub 循环作业4()
  92.     Dim student As Integer
  93.     Dim grade As Double
  94.     Dim ttlgrade As Double
  95.     Dim avegrade As Double
  96.     Dim i As Integer
  97.         student = InputBox("请输入班级人数")
  98.     For i = 1 To student
  99.         grade = InputBox("请输入学生分数")
  100.         ttlgrade = ttlgrade + grade
  101.     Next
  102.    
  103.     avegrade = ttlgrade / student
  104.    
  105.     MsgBox "总分:" & ttlgrade
  106.     MsgBox "平均分:" & avegrade
  107.    
  108. End Sub

  109. Sub 循环作业5()
  110.     Dim num As Variant
  111.     Dim maxv As Long
  112.     Dim maxi As Long
  113.     Dim i As Integer
  114.    
  115.         maxv = -1
  116.    
  117.     For i = 1 To 5
  118.         num = InputBox("请输入一个数字")
  119.         If IsNumeric(num) = False Then
  120.             num = 0
  121.         End If
  122.             
  123.         If maxv < num Then
  124.             maxv = num
  125.             maxi = i
  126.         End If
  127.     Next
  128.    
  129.     MsgBox "用户输入过的最大数字:" & maxv & vbCrLf & "该数字是第" & maxi & "次输入的"
  130.    
  131. End Sub
复制代码
回复 支持 反对

使用道具 举报

发表于 2018-3-15 14:20:05 | 显示全部楼层
本帖最后由 路痴安妮 于 2018-3-15 14:21 编辑
  1. Option Explicit

  2. Sub 作业1()
  3.    
  4.     Dim salary As Long, evaluation As String
  5.     salary = 5000
  6.     evaluation = InputBox("李四的年终评定为: ")
  7.     Select Case evaluation
  8.         Case "A"
  9.             salary = salary + 500
  10.         Case "B"
  11.             salary = salary + 200
  12.         Case "C"
  13.             salary = salary
  14.         Case "D"
  15.             salary = salary - 200
  16.         Case "E"
  17.             salary = salary - 500
  18.     End Select
  19.     MsgBox "李四明年的工资为" & salary & "元。"
  20.             
  21. End Sub




  22. Sub 作业2()

  23.     Dim age As Integer, parent
  24.     age = InputBox("请输入年龄", "胡说电影分级制度")
  25.     Select Case age
  26.         Case Is <= 13
  27.             MsgBox "您可以看G级电影", Title:="胡说电影分级制度"
  28.         Case Is <= 16
  29.             parent = MsgBox("是否有家长陪同?", vbYesNo, "胡说电影分级制度")
  30.             'If parent = vbYes Then
  31.             '   MsgBox "您可以看PG-13级。", Title:="胡说电影分级制度"
  32.             'Else
  33.             '   MsgBox "您可以看PG级。", Title:="胡说电影分级制度"
  34.             'End If
  35.             Select Case parent
  36.                 Case vbYes
  37.                     MsgBox "您可以看PG-13级。", Title:="胡说电影分级制度"
  38.                 Case Else
  39.                     MsgBox "您可以看PG级。", Title:="胡说电影分级制度"
  40.             End Select
  41.         Case Is <= 18
  42.             MsgBox "您可以看NC-17级电影", Title:="胡说电影分级制度"
  43.         Case Is > 18
  44.             MsgBox "您可以看R级电影", Title:="胡说电影分级制度"
  45.     End Select
  46.             
  47. End Sub



  48. Sub 循环作业1()

  49.     Dim grade As Long, i As Long
  50.     grade = InputBox("请输入小明的成绩:")
  51.     If grade >= 90 Then
  52.         MsgBox "奖励100元。"
  53.     Else
  54.         For i = 1 To 100
  55.             Debug.Print "小明抄写第" & i & "遍,我再也不敢马虎了。"
  56.         Next
  57.     End If
  58.       
  59. End Sub


  60. Sub 循环作业2()

  61.     Dim sum As Long, i As Long
  62.     sum = 0
  63.     For i = 1 To 100
  64.         If i Mod 7 = 0 Then sum = sum + i
  65.     Next
  66.    
  67.     MsgBox "1至100中所有7的倍数的累计和是" & sum
  68.       
  69. End Sub




  70. Sub 循环作业3()

  71.     Dim sum As Long, i As Long
  72.     sum = 1
  73.     For i = 1 To 100
  74.         If i Mod 2 = 0 Then
  75.             sum = sum + i
  76.         Else
  77.             sum = sum - i
  78.         End If
  79.         
  80.     Next
  81.     MsgBox "结果是" & sum

  82. End Sub



  83. Sub 循环作业4()

  84.     Dim i As Long, sum As Long, number As Long, grade As Long
  85.     number = InputBox("学生人数:")
  86.     For i = 1 To number
  87.         grade = InputBox("学生" & i & "的成绩是:")
  88.         sum = sum + grade
  89.     Next
  90.     MsgBox "总分是:" & sum & vbCr & "平均分是:" & sum / number
  91.    
  92.    
  93. End Sub


  94. Sub 循环作业5()

  95.     Dim i As Long, inputV As Long, maxV As Long, maxi As Long
  96.     maxV = 0
  97.     For i = 1 To 5
  98.         inputV = Val(InputBox("请输入一个正数:"))
  99.         If inputV < 0 Then inputV = 0
  100.         If inputV > maxV Then
  101.             maxV = inputV
  102.             maxi = i
  103.         End If
  104.     Next
  105.     MsgBox "最大值是第" & maxi & "次输入的" & maxV
  106.    
  107.    
  108. End Sub
复制代码
回复 支持 反对

使用道具 举报

发表于 2018-3-15 19:22:33 | 显示全部楼层
  1. '第五课作业
  2. Sub 工资()
  3.     Dim 评级 As String, 上年工资 As Long
  4.        评级 = InputBox("请输入李四评级")
  5.        上年工资 = 5000
  6.           Select Case 评级
  7.             Case "A"
  8.               MsgBox "李四本年工资" & 上年工资 + 500
  9.             Case "B"
  10.               MsgBox "李四本年工资" & 上年工资 + 200
  11.             Case "C"
  12.               MsgBox "李四本年工资" & 上年工资 + 0
  13.             Case "D"
  14.               MsgBox "李四本年工资" & 上年工资 - 200
  15.             Case "E"
  16.               MsgBox "李四本年工资" & 上年工资 - 500
  17.           End Select
  18. End Sub
  19. Sub 电影()
  20.     Dim old As Long, 大人 As String, 陪同 As String
  21.       old = InputBox("How old are you?")
  22.         Select Case old
  23.           Case Is <= 13
  24.             MsgBox "可以看:" & vbCr & "    G级电影"
  25.           Case Is <= 16
  26.             大人 = "是否有大人人陪同"
  27.              陪同 = MsgBox(大人, vbYesNo, "限制")
  28.               If 陪同 = vbYes Then
  29.                   MsgBox "可以看:" & vbCr & "    PG-13级电影."
  30.               Else
  31.                   MsgBox "可以看:" & vbCr & "    PG级电影"
  32.               End If
  33.           Case Is <= 18
  34.             MsgBox "可以看:" & vbCr & "    NC-17级电影"
  35.           Case Else
  36.             MsgBox "可以看:" & vbCr & "    R级电影"
  37.         End Select
  38. End Sub
  39. Sub 电影1()
  40.     Dim old As Long, 陪同 As String
  41.       old = InputBox("How old are you?")
  42.         Select Case old
  43.           Case Is <= 13
  44.             MsgBox "可以看:" & vbCr & "    G级电影"
  45.           Case Is <= 16
  46.            陪同 = MsgBox("是否有大人陪同", vbYesNo)
  47.               If 陪同 = vbYes Then
  48.                   MsgBox "可以看:" & vbCr & "    PG-13级电影."
  49.               Else
  50.                   MsgBox "可以看:" & vbCr & "    PG级电影"
  51.               End If
  52.           Case Is <= 18
  53.             MsgBox "可以看:" & vbCr & "    NC-17级电影"
  54.           Case Else
  55.             MsgBox "可以看:" & vbCr & "    R级电影"
  56.         End Select
  57. End Sub
  58. Sub 累加7()
  59.     Dim i As Long, sum As Long
  60.       sum = 0
  61.       For i = 7 To 100 Step 7
  62.          sum = sum + i
  63.       Next
  64.         MsgBox sum
  65. End Sub
  66. Sub 成绩()
  67. Dim i As Long, chengji As Long
  68. chengji = Val(InputBox("请输入小明的成绩: "))
  69.   If chengji >= 90 Then
  70.     MsgBox "奖励100"
  71.   Else
  72.     MsgBox "写100遍我再也不敢马虎了"
  73.      For i = 1 To 100
  74.      Debug.Print "小明正在抄写第" & i & "遍,我再也不敢马虎了。"
  75.      Next
  76.   End If
  77. End Sub
  78. Sub 奇偶加减()
  79. Dim i As Long, sum1 As Long
  80.      For i = 1 To 100
  81.        If i = 1 Or i Mod 2 = 0 Then
  82.        sum1 = sum1 + i
  83.        Else
  84.        sum1 = sum1 - i
  85.        End If
  86.      Next
  87.      MsgBox sum1
  88. End Sub
  89. Sub 班级成绩()
  90. Dim 人数 As Long, 成绩 As Long, 总分 As Long
  91.    人数 = InputBox("请输入班级人数")
  92.    For 成绩 = 1 To 人数
  93.    总分 = 总分 + InputBox("请输入分数")
  94.    Next
  95.    MsgBox "班级总分为:" & 总分
  96.    MsgBox "班级平均分为:" & 总分 \ 人数
  97. End Sub
复制代码
回复 支持 反对

使用道具 举报

发表于 2018-3-15 21:03:58 | 显示全部楼层
Sub 作业1()

Dim 考核 As String
考核 = InputBox("请输入考核等级")

    Select Case 考核

Case Is = "a"
MsgBox "考核结果为A,加500元"

Case Is = "b"
MsgBox "考核结果为B,加200元"

Case Is = "c"
MsgBox "考核结果为C,加0元"

Case Is = "d"
MsgBox "考核结果为D,扣200元"

Case Is = "e"
MsgBox "考核结果为E,扣500元"

    End Select
   
End Sub

Sub 作业2()

Dim 年龄 As Integer, ret

年龄 = InputBox("请输入您的年龄")

Select Case 年龄

Case Is <= 13
MsgBox "您可以观看的是G级别电影"

Case Is < 16
ret = MsgBox(msg, vbYesNo, "是否有家长陪同")

    If ret = vbYes Then

MsgBox "您可以观看的是PG-13级别电影"

    Else

MsgBox "您可以观看的是PG级别电影"

    End If

Case Is <= 18
MsgBox "您可以观看的是NG-17级别电影"

Case Is > 18
MsgBox "您可以观看的是R级别电影"

End Select
End Sub

Sub 循环作业1()

Dim i As Long, 成绩 As Long

成绩 = Val(InputBox("请输入小明的成绩: "))

  If 成绩 >= 90 Then
  
    MsgBox "奖励100"
   
  Else
    MsgBox "写100遍我再也不敢马虎了"
   
     For i = 1 To 100
     
     Debug.Print "小明正在抄写第" & i & "遍,我再也不敢马虎了。"
     
     Next
     
  End If

End Sub

Sub 循环作业2()

Dim i As Integer, sum As Integer

sum = 0

For i = 0 To 100 Step 7

sum = i + sum

Next
MsgBox sum

End Sub
Sub 循环作业3()
Dim i As Integer, a As Integer, sum As Integer, sum1 As Integer, sum2 As Integer

sum = 0
sum1 = 0
sum2 = 0

For i = 2 To 100
    If i Mod 2 <> 0 Then
sum1 = sum1 - i

    Else

sum2 = i + sum2

    End If
   
sum = sum1 + sum2 + 1
   
    Next
   
MsgBox sum
   

End Sub

Sub 循环作业4()
Dim 人数 As Long, 学生成绩 As Long, 总分 As Long, 平均分 As Long

人数 = InputBox("请输入学生人数")

For i = 1 To 人数

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

总分 = 总分 + 学生成绩

Next

MsgBox 总分

MsgBox 总分 / 人数

End Sub
回复 支持 反对

使用道具 举报

发表于 2018-3-15 21:25:18 | 显示全部楼层
  1. Sub 课程5作业1()
  2. Dim 小李的基本工资 As Integer, 小李的评级 As String
  3. 小李的基本工资 = 5000
  4. 小李的评级 = "A"
  5. Select Case 小李的评级
  6. Case Is = "A"
  7. MsgBox ("小李的来年的工资为:" & 小李的基本工资 + 500)
  8. Case Is = "B"
  9. MsgBox ("小李的来年的工资为:" & 小李的基本工资 + 200)
  10. Case Is = "C"
  11. MsgBox ("小李的来年的工资为:" & 小李的基本工资)
  12. Case Is = "D"
  13. MsgBox ("小李的来年的工资为:" & 小李的基本工资 - 200)
  14. Case Is = "E"
  15. MsgBox ("小李的来年的工资为:" & 小李的基本工资 - 500)
  16. Case Else
  17. MsgBox "无法正常显示"
  18. End Select
  19. End Sub[code]Sub 课程作业5作业2()
  20. Dim 观影年龄 As Integer, 观影提示 As String
  21. 观影年龄 = InputBox("请输入年龄:")
  22. Select Case 观影年龄
  23. Case Is >= 18
  24. MsgBox ("可以观看R级电影")
  25. Case Is >= 16
  26. MsgBox ("可以观看NC-17级的电影")
  27. Case Is >= 13
  28. ret = MsgBox("是否有家里大人陪同?", vbYesNo, "提示")
  29. If ret = vbYes Then
  30. MsgBox ("可以观看PG13级电影")
  31. Else
  32. MsgBox ("可以观看PG级电影")
  33. End If
  34. Case Else
  35. MsgBox ("可以观看G级电影")
  36. End Select
  37. End Sub[code]Sub 课程作业5循环作业1()
  38. Dim 小明的考试成绩 As Integer, i As Long
  39. 小明的考试成绩 = InputBox("小明的考试成绩为:")
  40. If 小明的考试成绩 >= 90 Then
  41. MsgBox ("奖励小明100元")
  42. Else
  43. For i = 1 To 100
  44. Debug.Print "小明已经抄写第" & i&; "遍了,我再也不敢马虎了。"
  45. Next
  46. End If
  47. End Sub[code]Sub 课程作业5循环作业2()
  48. Dim i As Long, sumv As Long
  49. For i = 0 To 100 Step 7
  50. sumv = sumv + i
  51. Debug.Print sumv
  52. Next
  53. MsgBox sumv
  54. End Sub[code]Sub 课程作业5循环作业3()
  55. Dim i As Long, a As Long, sumv As Long
  56. sumv = 1
  57. For i = 2 To 100
  58. a = i Mod 2
  59. If a = 0 Then
  60. sumv = sumv + i
  61. Else
  62. sumv = sumv - i
  63. End If
  64. Debug.Print sumv
  65. Next
  66. End Sub
复制代码
[/code][/code][/code][/code]
回复 支持 反对

使用道具 举报

发表于 2018-3-15 21:44:54 | 显示全部楼层
  1. Sub 作业1()
  2.     Dim 工资 As Long, 评定 As String
  3.     工资 = 5000
  4.     评定 = InputBox("输入评定结果")
  5.     Select Case 评定
  6.     Case "A"
  7.         MsgBox "来年的工资为" & (工资 + 500)
  8.     Case "B"
  9.         MsgBox "来年的工资为" & (工资 + 200)
  10.     Case "C"
  11.         MsgBox "来年的工资为" & (工资)
  12.     Case "D"
  13.         MsgBox "来年的工资为" & (工资 - 200)
  14.     Case "E"
  15.         MsgBox "来年的工资为" & (工资 - 500)
  16.     Case Else
  17.         MsgBox "输入错误"
  18.     End Select
  19.    
  20. End Sub

  21. Sub 作业2()
  22.     Dim 年龄 As Long, ret As String
  23.     年龄 = InputBox("请输入年龄")
  24.     Select Case 年龄
  25.         Case Is <= 13
  26.             MsgBox "可以看G级电影"
  27.         
  28.         Case Is <= 16
  29.    
  30.             ret = MsgBox("是否有家长陪同", vbYesNo, "提问")
  31.                 If ret = vbYes Then
  32.                 MsgBox "可以看PG-13级"
  33.                 Else
  34.                 MsgBox "可以看PG级"
  35.                 End If
  36.         Case Is <= 18
  37.             MsgBox "可以看NC-17级电影"
  38.         Case Else
  39.             MsgBox "可以看R级电影"
  40.             
  41.         End Select

  42.    
  43. End Sub

  44. Sub 循环作业1()
  45.     Dim 成绩 As Long, i As Long
  46.     成绩 = InputBox("请输入成绩")
  47.     Select Case 成绩
  48.     Case Is >= 90
  49.         MsgBox "奖励小明100元"
  50.     Case Else
  51.         For i = 1 To 100
  52.         Debug.Print "小明抄写第" & i & "遍,我再也不敢马虎了。"
  53.         Next
  54.     End Select
  55.    
  56. End Sub

  57. Sub 循环作业2()
  58.    Dim i As Long, sumseven As Long
  59.    For i = 1 To 100
  60.        If i Mod 7 = 0 Then _
  61.        sumseven = sumseven + i
  62.    Next
  63.    MsgBox sumseven
  64.    
  65. End Sub
  66. Sub 循环作业3()
  67.    Dim i As Long, sum As Long
  68.    For i = 1 To 100
  69.        If i = 1 Then
  70.        sum = sum + i
  71.        ElseIf i Mod 2 = 0 Then
  72.        sum = sum + i
  73.        Else
  74.        sum = sum - i
  75.        End If
  76.       
  77.    Next
  78.    MsgBox sum
  79.    
  80.    
  81. End Sub
  82. Sub 循环作业4()

  83.     Dim 人数 As Long, 学生成绩 As Long, 总分 As Long
  84.     Dim i As Long
  85.    人数 = InputBox("请输入班级人数")
  86.     For i = 1 To 人数
  87.    学生成绩 = InputBox(("请输入第") & i & ("位学生的成绩"))
  88.    总分 = 总分 + 学生成绩
  89.     Next

  90.     MsgBox ("该班学生成绩的总分是") & 总分
  91.     MsgBox ("该班学生成绩的平均分是") & (总分 / 人数)

  92. End Sub

  93. Sub 循环作业5()

  94.     Dim i As Long, inputV As Long, maxV As Long, maxi As Long
  95.     For i = 1 To 5
  96.         inputV = Val(InputBox("请输入一个正数"))
  97.         If inputV < 0 Then inputV = 0
  98.         Debug.Print inputV
  99.         If inputV > maxV Then
  100.             maxV = inputV
  101.             maxi = i
  102.         End If
  103.     Next

  104.     MsgBox (("用户输出过的最大数字是") & maxV & (",是第") & _
  105.     maxi & ("次输出的"))

  106. End Sub



复制代码
回复 支持 反对

使用道具 举报

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

本版积分规则

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