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

零基础9期 第五课作业贴

  [复制链接]
发表于 2017-2-23 11:11:35 | 显示全部楼层
本帖最后由 廣西-梵音 于 2017-2-27 16:02 编辑
  1. Sub 作业1模拟登录()
  2.     Dim 用户名 As String, 正确密码 As Long
  3.     用户名 = InputBox("请输入用户名")
  4.    
  5.     If 用户名 = "小明" Then
  6.         正确密码 = Val(InputBox("请输入密码"))
  7.         If 正确密码 = 888888 Then
  8.             MsgBox "登录成功"
  9.         Else
  10.             MsgBox "密码错误,登录失败"
  11.         End If
  12.     Else
  13.         MsgBox "用户名不存在"
  14.     End If
  15. End Sub

  16. Sub 作业2限级电影()
  17.     Dim 年龄 As Long, 家人陪同否
  18.     年龄 = Val(InputBox("请输入你的年龄"))
  19.     Select Case 年龄
  20.     Case Is >= 18
  21.         MsgBox "可以观看R级电影"
  22.     Case Is > 16
  23.         MsgBox "可以观看NC-17级电影"
  24.     Case Is >= 13
  25.         家人陪同否 = MsgBox("是否有家人陪同?", vbYesNo)
  26.         If 家人陪同否 = vbYes Then
  27.             MsgBox "可以观看PG-13级电影"
  28.         Else
  29.             MsgBox "可以观看PG级电影"
  30.         End If
  31.     Case Is > 0
  32.         MsgBox "可以观看G级电影"
  33.     Case Else
  34.         MsgBox "年龄非法,不许看"
  35.     End Select
  36. End Sub

  37. Sub 作业3明年工资评定()
  38.     Dim 评定等级 As String, 工资 As Long
  39.     工资 = Val(InputBox("请输入你的基本工资"))
  40.     评定等级 = InputBox("请输入你的工资评定等级A-E")
  41.     Select Case 评定等级
  42.     Case Is = "A", "a"
  43.         工资 = 工资 + 500
  44.     Case Is = "B", "b"
  45.         工资 = 工资 + 200
  46.     Case Is = "C", "c"
  47.         工资 = 工资 + 0
  48.     Case Is = "D", "d"
  49.         工资 = 工资 - 200
  50.     Case Is = "E", "e"
  51.         工资 = 工资 - 500
  52.     End Select
  53.     MsgBox "你明年的工资为:" & 工资 & "元"
  54. End Sub
复制代码
谢谢狼班指出错误,已作修改,请过目。

点评

第三题重做  发表于 2017-2-24 20:37
回复 支持 反对

使用道具 举报

发表于 2017-2-23 12:59:24 | 显示全部楼层

  1. Sub 作业1用户名()
  2.     Dim 用户名 As String, 密码 As Long
  3.     用户名 = InputBox("请输入用户名")
  4.     If 用户名 = "小明" Then
  5.         密码 = InputBox("请输入密码")
  6.     If 密码 = 888888 Then
  7.         MsgBox "密码正确,登录成功"
  8.     Else
  9.         MsgBox "密码错误,登录失败"
  10.     End If
  11.     Else
  12.         MsgBox "用户名不存在"
  13.     End If
  14.          
  15. End Sub

  16. Sub 作业2可否看电影()
  17.     Dim 年龄 As Long
  18.     年龄 = Val(InputBox("请输入你的年龄"))
  19.     If 年龄 < 13 Then
  20.         MsgBox "你可以看G级电影。"
  21.     ElseIf 年龄 >= 13 And 年龄 <= 16 Then
  22.         Dim 是否陪同
  23.         是否陪同 = MsgBox("是否有大人陪同?", vbYesNo)
  24.         If 是否陪同 Then
  25.             MsgBox "你可以看PG-13级电影。"
  26.         Else
  27.             MsgBox "你可以看PG级电影。"
  28.         End If
  29.     ElseIf 年龄 > 16 And 年龄 < 18 Then
  30.         MsgBox "你可以看PG-17级电影。"
  31.     Else
  32.         MsgBox "你可以看R级电影。"
  33.     End If
  34. End Sub

  35. Sub 作业3工资()
  36.     Dim 绩效
  37.     绩效 = InputBox("请输入绩效,范围为 A-E")
  38.     Select Case 绩效
  39.     Case "A", "a"
  40.         MsgBox 5000 + 500
  41.     Case "B", "b"
  42.         MsgBox 5000 + 200
  43.     Case "C", "c"
  44.         MsgBox 5000
  45.     Case "D", "d"
  46.         MsgBox 5000 - 200
  47.     Case Else
  48.         MsgBox 5000 - 500
  49.     End Select
  50.    
  51. End Sub
复制代码


点评

缩进不规范 第三题做的不好 如果李四的工资不是5000 你代码要改的地方有很多  发表于 2017-2-24 20:38
回复 支持 反对

使用道具 举报

发表于 2017-2-23 13:46:32 | 显示全部楼层
  1. Sub test1()
  2.     Dim name As String, password As Long
  3.     name = InputBox("请输入用户名")
  4.     If name = "小明" Then
  5.         password = InputBox("请输入密码")
  6.         If password = 888888 Then
  7.             MsgBox "登录成功"
  8.         Else
  9.             MsgBox "密码错误,登录失败"
  10.         End If
  11.     Else
  12.         MsgBox "用户名不存在"
  13.     End If
  14. End Sub
复制代码
  1. Sub test2()
  2.     Dim age As Integer, 大人陪伴否
  3.     age = InputBox("请输入你的年龄")
  4.     Select Case age
  5.     Case Is < 13
  6.         MsgBox "可以看G级电影"
  7.     Case Is <= 16
  8.         大人陪伴否 = MsgBox("是否有家里大人陪同", vbYesNo)
  9.         If 大人陪伴否 = vbYes Then
  10.             MsgBox "可以看PG-13级电影"
  11.         Else
  12.             MsgBox "可以看PG级电影"
  13.         End If
  14.     Case Is < 18
  15.         MsgBox "可以看NC-17级电影"
  16.     Case Else
  17.         MsgBox "可以看R级电影"
  18.     End Select
  19. End Sub
复制代码
  1. Sub test3()
  2.     Dim level As String, money As Long
  3.     money = InputBox("请输入李四当前的工资")
  4.     level = InputBox("请输入李四年终评定等级")
  5.     Select Case level
  6.     Case "A"
  7.         money = money + 500
  8.     Case "B"
  9.         money = money + 200
  10.     Case "D"
  11.         money = money - 200
  12.     Case "E"
  13.         money = money - 500
  14.     End Select
  15.     MsgBox "李四明年的工资为" & money & "元"
  16. End Sub
复制代码


评分

参与人数 1登攀 +10 收起 理由
唐伯狼 + 10

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2017-2-23 14:03:58 | 显示全部楼层
  1. Option Explicit
  2. '作业1
  3. Sub homework1()

  4.     Dim name As String
  5.     Dim n As Long
  6.    
  7.     name = InputBox("请输入用户名")
  8.     If name <> "小明" Then
  9.         MsgBox "用户名不存在"
  10.     Else
  11.         n = InputBox("请输入密码")
  12.         If n = 888888 Then
  13.             MsgBox "登陆成功"
  14.         Else
  15.             MsgBox "登录失败"
  16.         End If
  17.     End If
  18. End Sub

  19. '作业2
  20. Sub homework2()

  21.     Dim age As Long
  22.     Dim yn
  23.    
  24.     age = InputBox("请输入年龄")
  25.     If age < 13 Then
  26.         MsgBox "可以观看G级电影"
  27.     ElseIf age >= 13 And age <= 16 Then
  28.         yn = MsgBox("是否有家长陪同", vbYesNo)
  29.         If yn = vbYes Then
  30.             MsgBox "可以观看PG-13级电影"
  31.         Else
  32.             MsgBox "可以观看PG级电影"
  33.         End If
  34.     ElseIf age > 16 And age < 18 Then
  35.         MsgBox "可以观看NC-17级电影"
  36.     Else
  37.         MsgBox "可以观看R级电影"
  38.     End If
  39. End Sub

  40. '作业3
  41. Sub homework3()

  42.     Dim eva As String
  43.     Dim s As Long
  44.    
  45.     s = 5000
  46.     eva = InputBox("请输入年终评级")
  47.     Select Case eva
  48.     Case "A"
  49.         s = s + 500
  50.     Case "B"
  51.         s = s + 200
  52.     Case "C"
  53.     Case "D"
  54.         s = s - 200
  55.     Case "E"
  56.         s = s - 500
  57.     End Select
  58.     MsgBox ("第二年工资为" & s & "元")
  59. End Sub
复制代码


点评

第二题要求用select case  发表于 2017-2-24 20:39
回复 支持 反对

使用道具 举报

发表于 2017-2-23 14:05:24 | 显示全部楼层
  1. '作业1: 提示输入用户名,如果用户名不等于 “小明”, 就提示用户名不存在 。
  2. '否则提示输入密码: 如果密码不等于”888888”, 则提示密码错误,登录失败。
  3. '如果两个都输入正确,则提示登录成功。
  4. Sub system_key5()
  5.     Dim user1 As String, key2 As Long
  6.     user1 = InputBox("请输入用户名:")
  7.     If user1 <> "小明" Then
  8.         MsgBox "用户不存在!"
  9.     Else
  10.         key2 = Val(InputBox("请输入密码:"))
  11.         If key2 = 888888 Then
  12.             MsgBox "登录成功!"
  13.         Else
  14.             MsgBox "密码错误,登录失败!"
  15.         End If
  16.     End If
  17. End Sub


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

  22. Sub movie_level5()
  23.     Dim age5 As Long
  24.     Dim adult5
  25.     age5 = Val(InputBox("请输入年龄:"))
  26.     If age5 > 0 Then
  27.         If age5 < 13 Then
  28.             MsgBox "您可以看G级电影。"
  29.         ElseIf age5 >= 13 And age5 <= 16 Then
  30.             Dim yesno5
  31.             yesno5 = MsgBox("是否有家里大人陪同?", vbYesNo)
  32.             If yesno5 = vbYes Then
  33.                 MsgBox "可以看PG-13级电影。"
  34.             Else
  35.                 MsgBox "可以看PG级电影"
  36.             End If
  37.         ElseIf age5 > 16 And age5 < 18 Then
  38.             MsgBox "可以看NC-17级电影"
  39.         Else
  40.             MsgBox "可以看R级电影"
  41.         End If
  42.     Else
  43.         MsgBox "输入年龄非法,请重新输入!"
  44.     End If
  45. End Sub

  46. '作业3: 年终评定,绩效工资,如果评定为A 每月工资加500,
  47. '如果为B 每月工资加200 如果为C 不变,如果为D 降薪200 如果为E 降薪500。
  48. '李四基本工资为5000,根据评定计算他来年的每月的工资。用 Select Case

  49. Sub annual_assessment5()
  50.     Dim rank5 As String, pay5 As Long
  51.     pay5 = 5000
  52.     rank5 = InputBox("请输入李四的年终评定等级:")
  53.     Select Case rank5
  54.     Case "A"
  55.         pay5 = pay5 + 500
  56.         MsgBox "李四来年的每月工资为" & pay5
  57.     Case "B"
  58.         pay5 = pay5 + 200
  59.         MsgBox "李四来年的每月工资为" & pay5
  60.     Case "C"
  61.         pay5 = pay5
  62.         MsgBox "李四来年的每月工资为" & pay5
  63.     Case "D"
  64.         pay5 = pay5 - 200
  65.         MsgBox "李四来年的每月工资为" & pay5
  66.     Case "E"
  67.         pay5 = pay5 - 500
  68.         MsgBox "李四来年的每月工资为" & pay5
  69.     End Select
  70. End Sub




复制代码


点评

作业2 要求用select case做 作业3 做的不好 先计算工资 然后最后用同一个msgbox输出  发表于 2017-2-24 20:41
回复 支持 反对

使用道具 举报

发表于 2017-2-23 15:22:26 | 显示全部楼层
本帖最后由 留白。 于 2017-2-23 15:38 编辑
  1. Sub 作业1()
  2. Dim yhm As String, mm As Long
  3.     yhm = InputBox("请输入用户名")
  4.     If yhm = "小明" Then
  5.         mm = Val(InputBox("请输入密码"))
  6.         If mm = 888888 Then
  7.             MsgBox ("密码正确,登陆成功")
  8.         Else
  9.             MsgBox ("密码错误,登陆失败")
  10.         End If
  11.     Else
  12.         MsgBox ("用户名不存在")
  13.     End If
  14.      
  15. End Sub
复制代码
  1. Sub 作业2()
  2. Dim age As Long, 陪同否
  3.     age = Val(InputBox("请输入年龄"))
  4.     Select Case age
  5.         Case Is < 13
  6.             MsgBox ("可以看G级电影")
  7.         Case 13 To 16
  8.             陪同否 = MsgBox("是否有家人陪同?", vbYesNo)
  9.             If 陪同否 = vbYes Then
  10.                 MsgBox ("有家人陪同,可以看PG-13 级")
  11.             Else
  12.                 MsgBox ("没有家人陪同,可以看PG 级")
  13.             End If
  14.         Case 16 To 17
  15.             MsgBox ("可以看NC-17级的电影")
  16.         Case Is >= 18
  17.             MsgBox ("可以看R级电影")
  18.     End Select
  19. End Sub
复制代码
  1. Sub 作业3()
  2. Dim 年终评定 As String, 工资 As Double
  3.     工资 = 5000
  4.     年终评定 = InputBox("请输入年终评定等级")
  5.     Select Case 年终评定
  6.     Case "A"
  7.         工资 = 工资 + 500
  8.     Case "B"
  9.         工资 = 工资 + 200
  10.     Case "C"
  11.         工资 = 工资 + 0
  12.     Case "D"
  13.         工资 = 工资 - 200
  14.     Case "E"
  15.         工资 = 工资 - 500
  16.     End Select
  17.         MsgBox "李四的工资为" & 工资 & "元"
  18. End Sub
复制代码

评分

参与人数 1登攀 +10 收起 理由
唐伯狼 + 10

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2017-2-23 16:02:01 | 显示全部楼层
  1. Sub 第五课第一题()
  2.     Dim 姓名 As String, 合法姓名 As String, 密码 As Long, 合法密码 As Long   '必须声明姓名、密码,否则无法inputbox
  3.     合法姓名 = "小明"
  4.     合法密码 = 888888
  5.     姓名 = inputbox("请输入姓名")
  6.     If 姓名 <> 合法姓名 Then
  7.         MsgBox "输入错误,用户名不存在"
  8.     Else
  9.     密码 = inputbox("请输入密码")
  10.         If 密码 = 合法密码 Then
  11.             MsgBox "密码正确,登录成功"
  12.         Else
  13.             MsgBox "密码错误,登录失败"
  14.         End If
  15.     End If
  16. End Sub


  17. Sub 第五课第二题()
  18.     Dim 年龄 As Long, 顾客年龄 As Long, 家长陪同
  19.     顾客年龄 = inputbox("请输入年龄")
  20.     If 顾客年龄 < 13 Then
  21.         MsgBox "你可以看G级电影"
  22.     ElseIf 顾客年龄 < 16 Then
  23.     家长陪同 = MsgBox("是否有家长陪同", vbYesNo)
  24.         If 家长陪同 = vbYes Then
  25.         MsgBox "你可以看PG-13级电影"
  26.         Else
  27.         MsgBox "你可以看PG级"
  28.         End If
  29.     ElseIf 顾客年龄 < 18 Then
  30.         MsgBox "你可以看NC-17级电影"
  31.     Else
  32.         MsgBox "那你可以看R级电影"
  33.     End If
  34. End Sub


  35. Sub 第五课第三题()
  36.     Dim 等级 As String, 李四基本工资 As Long, 李四工资
  37.     李四基本工资 = 5000
  38.     等级 = inputbox("请输入李四的等级")
  39.     Select Case 等级
  40.     Case "A"
  41.         李四工资 = 李四基本工资 + 500
  42.         MsgBox 李四工资
  43.     Case "B"
  44.         李四工资 = 李四基本工资 + 200
  45.         MsgBox 李四工资
  46.     Case "C"
  47.         李四工资 = 李四基本工资
  48.         MsgBox 李四工资
  49.     Case "D"
  50.         李四工资 = 李四基本工资 - 200
  51.         MsgBox 李四工资
  52.     Case "E"
  53.         李四工资 = 李四基本工资 - 500
  54.         MsgBox 李四工资
  55.     End Select
  56. End Sub
复制代码


点评

作业2要求用select case 做 作业3 做的不好 先计算工资 然后最后用同一个msgbox输出  发表于 2017-2-24 20:42
回复 支持 反对

使用道具 举报

发表于 2017-2-23 16:35:37 | 显示全部楼层
  1. Sub 第5课第1题()
  2.     Dim name As String
  3.     name = InputBox("请输入用户名")
  4.     If name <> "小明" Then
  5.         MsgBox ("用户名不存在")
  6.     Else
  7.         Dim password As String
  8.         password = InputBox("请输入密码")
  9.         If password <> "888888" Then
  10.             MsgBox ("密码错误,登录失败")
  11.         Else
  12.             MsgBox ("密码正确,登录成功")
  13.         End If
  14.     End If
  15. End Sub
复制代码
  1. Sub 第5课第2题b()

  2.     Dim age As Double
  3.     age = InputBox("请输入你的年龄")
  4.     Select Case age
  5.     Case Is >= 0
  6.         Select Case age
  7.         Case Is >= 18
  8.             MsgBox ("你可以观看R级电影")
  9.         Case Is > 16
  10.             MsgBox ("你可以观看NC-17级电影")
  11.         Case 13 To 16
  12.             Dim adult
  13.             adult = MsgBox("请问你是否有家长陪同?", vbYesNo)
  14.             If adult = vbYes Then
  15.                 MsgBox ("你可以观看PG-13级电影")
  16.             Else
  17.                 MsgBox ("你可以观看PG级电影")
  18.             End If
  19.         Case Is < 13
  20.             MsgBox ("可以观看G级电影")
  21.         End Select
  22.     Case Else
  23.         MsgBox ("年龄输入错误")
  24.     End Select

  25. End Sub
复制代码
  1. Sub 第5课第3题()

  2.     Dim grade As String
  3.     grade = InputBox("请输入李四的年终评定")
  4.     Select Case grade
  5.     Case "A"
  6.         MsgBox ("李四来年月工资为:5500")
  7.     Case "B"
  8.         MsgBox ("李四来年月工资为:5200")
  9.     Case "C"
  10.         MsgBox ("李四来年月工资为:5000")
  11.     Case "D"
  12.         MsgBox ("李四来年月工资为:4800")
  13.     Case "E"
  14.         MsgBox ("李四来年月工资为:4500")
  15.     Case Else
  16.         MsgBox ("年终评定输入错误")
  17.     End Select

  18. End Sub
复制代码


点评

第三题重做 如果A级评定标准是 增加13.5%工资 你也用计算机算好再去写代码?  发表于 2017-2-24 20:44
回复 支持 反对

使用道具 举报

发表于 2017-2-23 20:36:47 | 显示全部楼层

  1. '作业1: 提示输入用户名,如果用户名不等于 “小明”, 就提示用户名不存在 。
  2. '否则提示输入密码: 如果密码不等于”888888”, 则提示密码错误,登录失败。
  3. '如果两个都输入正确,则提示登录成功。

  4. '模拟登录: 提示你输入用户名
  5. '如果你的用户名不是小明---用户名不存在
  6. '否则让你输入密码
  7. '如果密码 888888 提示密码正确,登录成功
  8. '密码错误,登录失败

  9. Sub 登录()
  10.     Dim 用户名 As String, 密码 As String
  11.     用户名 = InputBox("请输入用户名")
  12.     If 用户名 = "小明" Then
  13.         密码 = InputBox("请输入密码")
  14.         If 密码 = 888888 Then
  15.             MsgBox "密码正确,登录成功"
  16.         Else
  17.            MsgBox "密码错误,登录失败"
  18.         End If
  19.     Else
  20.         MsgBox "你输入的用户名不存在"
  21.     End If
  22.    
  23. End Sub

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

  28. '作业2的提示:Msgbox 返回示例

  29. Sub 电影等级判断()
  30.     Dim age As Integer, 陪同否
  31.     age = Val(InputBox("请输入你的年龄"))
  32.     If age < 13 Then
  33.         MsgBox "你可以看G级电影"
  34.     ElseIf age >= 13 And age <= 16 Then
  35.         陪同否 = MsgBox("有家里大人陪同吗?", vbYesNo)
  36.         If 陪同否 = vbYes Then
  37.             MsgBox "可以看PG-13 级电影"
  38.         Else
  39.             MsgBox "可以看PG 级电影"
  40.         End If
  41.     ElseIf age > 16 And age < 18 Then
  42.         MsgBox "可以看NC-17级的电影"
  43.     Else
  44.         MsgBox "可以看R 级电影"
  45.     End If
  46.    
  47. End Sub

  48. '作业3: 年终评定,绩效工资,如果评定为A 每月工资加500,
  49. '如果为B 每月工资加200 如果为C 不变,如果为D 降薪200 如果为E 降薪500。
  50. '李四基本工资为5000,根据评定计算他来年的每月的工资。用 Select Case
  51. Sub 评定计算未来工资()
  52.     Dim 绩效评定 As String
  53.     绩效评定 = InputBox("请输入年终评定值,A/B/C/D")
  54.     Select Case 绩效评定
  55.     Case "A"
  56.         MsgBox "李四来年的每月工资为" & (5000 + 500)
  57.     Case "B"
  58.         MsgBox "李四来年的每月工资为" & (5000 + 200)
  59.     Case "C"
  60.         MsgBox "李四来年的每月工资为" & "5000 "
  61.     Case "D"
  62.         MsgBox "李四来年的每月工资为" & (5000 - 500)
  63.     End Select
  64. End Sub
复制代码

点评

作业3 做的不好 先计算工资 然后最后用同一个msgbox输出 而且初始工资要设一个变量  发表于 2017-2-24 20:45
回复 支持 反对

使用道具 举报

发表于 2017-2-23 20:45:34 | 显示全部楼层
本帖最后由 meyige 于 2017-2-25 23:22 编辑
  1. Sub 作业1()
  2.     Dim 用户名 As String, 密码 As Long
  3.    
  4.     用户名 = InputBox("请输入用户名")
  5.    
  6.     If 用户名 <> "小明" Then
  7.          MsgBox "用户名不存在"
  8.     Else
  9.         密码 = Val(InputBox("请输入密码"))
  10.         If 密码 <> 888888 Then
  11.             MsgBox "密码错误,登录失败"
  12.         ElseIf 密码 = 888888 Then
  13.             MsgBox "密码正确,登录成功"
  14.         End If
  15.       
  16.     End If
  17.    
  18. End Sub
复制代码
  1. Sub 作业2()
  2.    Dim 年龄 As Long
  3.       Dim 是否陪同
  4.       年龄 = Val(InputBox("输入年龄"))
  5.         
  6.       Select Case 年龄
  7.    Case Is <= 0, Is > 150
  8.               MsgBox "请核对年龄"
  9.       Case Is < 13
  10.               MsgBox "可以看G级的电影"
  11.       Case Is <= 16
  12.              是否陪同 = MsgBox("有大人陪同吗", vbYesNo)
  13.              If 是否陪同 = 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
复制代码
  1. Sub 作业3()
  2.      Dim 年终评定 As String
  3.      Dim 基本工资 As Long
  4.    
  5.      基本工资 = 5000
  6.      年终评定 = InputBox("请输入年终评定级别,共5个级别,分别是A,B,C,D,E")
  7.      Select Case 年终评定
  8.          Case Is = "A"
  9.                MsgBox "李四未来的基本工资是" & 基本工资 + 500
  10.          Case Is = "B"
  11.                MsgBox "李四未来的基本工资是" & 基本工资 + 200
  12.          Case Is = "C"
  13.                MsgBox "李四未来的基本工资是" & 基本工资
  14.          Case Is = "D"
  15.                MsgBox "李四未来的基本工资是" & 基本工资 - 200
  16.          Case Is = "E"
  17.                MsgBox "李四未来的基本工资是" & 基本工资 - 500
  18.          Case Else
  19.                MsgBox "请重新填写评定结果(A,B,C,D,E,F)"
  20.   End Select
  21. End Sub
复制代码
提交后缩进失效,手动更改的,请忽略缩进问题

点评

作业2要求用select case 做 作业3 重做  发表于 2017-2-24 20:46
回复 支持 反对

使用道具 举报

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

本版积分规则

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