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

零基础9期 第五课作业贴

  [复制链接]
发表于 2017-2-24 11:29:05 | 显示全部楼层
本帖最后由 石流 于 2017-2-26 20:52 编辑
  1. '作业1,用户名和密码登录
  2. Sub 用户和密码()
  3.     Dim 用户 As String, 密码 As Variant  '定义名称和声明变量
  4.     用户 = InputBox("请输入用户名:")     '提示输入用户名称
  5.     If 用户 = "小明" Then               '如果输入用户名是小明,则提示:请输入密码,
  6.         密码 = InputBox("请输入密码:")
  7.         If 密码 = 888888 Then           '如果输入密码是888888,则提示:登录成功,
  8.             MsgBox "登录成功"
  9.         Else
  10.             MsgBox "密码错误,登录失败" '否则提示:密码错误,登录失败
  11.         End If
  12.     Else
  13.         MsgBox "用户名不存在"           '如果用户名输入错误,否则提示用户名不存在
  14.     End If    'if判断结束
  15. End Sub
复制代码
  1. '作业2,电影分级确认
  2. Sub 电影分级管控确认()  '利用IF多分支结构确认
  3.     Dim 年龄 As Long, 陪同确认 As String '定义名称和声明变量
  4.         年龄 = InputBox("请输入年龄:")
  5.     If 年龄 >= 18 Then                   '首先利用IF语句判定,条件1是否大于等于18岁,如果判断为真则输出:可以看R级电影
  6.         MsgBox "可以看R级电影"
  7.     ElseIf 年龄 > 16 Then  '条件1不成立,则判断条件是否大于16岁,如果判断为真,则输出:可以看NC-17级电影
  8.         MsgBox "可以看NC-17级的电影"
  9.     ElseIf 年龄 >= 13 Then  '如果条件2不成立,则判断条件3是否大于等于13岁,如果判断为真,则确认是否有家里大人陪同,
  10.         陪同确认 = MsgBox("请问有家里大人陪同吗?", vbYesNo) '
  11.         If 陪同确认 = vbYes Then  '有家人陪同,则输出:可以看PG-13级电影
  12.             MsgBox "可以看PG-13级电影"
  13.         Else '否则没有家人陪同,就输出:可以看PG级电影
  14.             MsgBox "可以看PG级电影"
  15.         End If '家人陪同确认判断语句结束
  16.     Else '如果以上条件都不成立的话,则输出:可以看G级电影
  17.         MsgBox "可以看G级电影"
  18.     End If '整个条件判断IF语句结束
  19. End Sub
复制代码

  1. <div>'作业3,利用select case
  2. Sub 年终评定()
  3.     Dim 基本工资 As Long, 绩效等级 As String '定义名称和声明变量
  4.     基本工资 = 5000
  5.     绩效等级 = InputBox("请输入绩效考评等级(请使用英文大写字母:A、B、C、D、E):") '提示输入绩效考评等级,请使用大写字母A、B、C、D、E来输入
  6.     Select Case 绩效等级 '判断绩效是A、B、C、D、E其中的哪个一个级别,然后分别输出对应的工资为增加还是减少
  7.     Case "A"
  8.         基本工资 =  基本工资 + 500 '评定A级,则增加500
  9.     Case "B"
  10.         基本工资 =  基本工资 + 200 '评定B级,则增加200
  11.     Case "C"
  12.         基本工资 =  基本工资          '评定C级,则不变
  13.     Case "D"
  14.         基本工资 =  基本工资 - 500 '评定D级,则降低200
  15.     Case "E"
  16.         基本工资 =  基本工资 - 500 '评定E级,则降低500
  17.     Case Else '如果以上判断都不成立,则提示:绩效考评等级错误,请重新输入
  18.         MsgBox "你输入的绩效考评等级错误,请重新输入"
  19.     End Select</div><div>        MsgBox "李四来年的每月工资为:" & 基本工资
  20. End Sub
  21. </div>
复制代码



点评

不错 第三题 最好先计算工资 最后 msgbox输出  发表于 2017-2-24 20:58
回复 支持 反对

使用道具 举报

发表于 2017-2-24 12:24:06 | 显示全部楼层
本帖最后由 kuiblue 于 2017-2-24 12:37 编辑
  1. <div class="blockcode"><blockquote>Option Explicit

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

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

  10. Sub 输入密码_if嵌套()
  11.     Dim 用户名 As String, 密码 As Long
  12.     用户名 = InputBox("提示你输入用户名:")
  13.     If 用户名 <> "小明" Then
  14.         MsgBox ("此用户名不存在")
  15.     Else
  16.         密码 = InputBox("请输入密码:")
  17.         If 密码 <> 888888 Then
  18.             MsgBox ("密码错误")
  19.         Else
  20.             MsgBox ("登录成功")
  21.         End If
  22.     End If
  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, 是否有家里大人陪同 As Boolean
  31.     age = InputBox("请输入年龄:")
  32.     If age < 13 Then
  33.         MsgBox "可以看 G 级电影"
  34.     Else
  35.         If age >= 13 And age <= 16 Then
  36.             '是否有家里大人陪同 = InputBox("是否有家里大人陪同?")
  37.             'If 是否有家里大人陪同 = "是" Then
  38.             是否有家里大人陪同 = MsgBox("是否有家里大人陪同?", vbYesNo)
  39.             If 是否有家里大人陪同 = vbYes Then
  40.                 MsgBox "可以看PG-13 级"
  41.             Else
  42.                 MsgBox "可以看PG 级"
  43.             End If
  44.         End If
  45.     End If
  46.     If age > 16 And age < 18 Then
  47.         MsgBox ("可以看NC-17级的电影")
  48.     Else
  49.         If age >= 18 Then
  50.             MsgBox ("可以看R 级电影")
  51.         End If
  52.     End If
  53. End Sub


  54. '作业3: 年终评定,绩效工资,如果评定为A 每月工资加500,
  55. '如果为B 每月工资加200 如果为C 不变,如果为D 降薪200 如果为E 降薪500。
  56. '李四基本工资为5000,根据评定计算他来年的每月的工资。用 Select Case
  57. Sub 每月如可加工资()
  58.     Dim 评定 As String, 工资 As Integer
  59.     工资 = 5000
  60.     评定 = InputBox("请输入评定的结果A\B\C\D\E?")
  61.     Select Case 评定
  62.     Case Is = "A"
  63.         MsgBox "你现在的月工资是" & 工资 + 500
  64.     Case Is = "B"
  65.         MsgBox "你现在的月工资是" & 工资 + 200
  66.     Case Is = "C"
  67.         MsgBox "你现在的月工资是" & 工资 + 0
  68.     Case Is = "D"
  69.         MsgBox "你现在的月工资是" & 工资 - 200
  70.     Case Is = "E"
  71.         MsgBox "你现在的月工资是" & 工资 - 500
  72.     Case Else
  73.         MsgBox ("你请输入评定的结果错误!")
  74.     End Select
  75. End Sub
复制代码




点评

不错 第三题 最好先计算工资 最后 msgbox输出  发表于 2017-2-24 20:58
回复 支持 反对

使用道具 举报

发表于 2017-2-24 13:21:04 | 显示全部楼层
Sub 作业1()
    Dim 用户名 As String, 密码 As Long
    用户名 = InputBox("输入名字")
    If 用户名 = "小明" Then
          MsgBox ("输入密码")
       密码 = InputBox("输入密码")
       If 密码 = 888888 Then
          MsgBox ("登陆成功")
       Else
          MsgBox ("密码错误")
    End If
    Else
       MsgBox ("用户名不存在")
    End If

Sub 作业2()
  Dim 年龄 As Integer
  Dim 大人陪同
  年龄 = InputBox("输入年龄")
  If 年龄 < 13 Then
     MsgBox ("可以看G级电影")
  ElseIf 年龄 >= 13 And 年龄 <= 16 Then
     大人陪同 = MsgBox("有大人陪同吗?", vbYesNo)
     If 大人陪同 = vbYes Then
        MsgBox ("可以看PG - 13")
     Else
        MsgBox ("可以看PG")
     End If
ElseIf 年龄 > 16 And 年龄 < 18 Then
    MsgBox ("可以看NC-17")
ElseIf 年龄 > 18 Then
    MsgBox ("R级")
End If
End Sub


Sub 作业3()
    Dim 绩效工资 As Integer, 基本工资 As Integer, 每月工资 As Integer, 评级 As String
    基本工资 = 5000
    评级 = InputBox("请输入评级")
    Select Case 评级
    Case Is = "A"
        MsgBox (基本工资 + 500)
    Case Is = "B"
        MsgBox (基本工资 + 200)
    Case Is = "C"
        MsgBox (基本工资)
    Case Is = "D"
        MsgBox (基本工资 - 200)
    Case Is = "E"
        MsgBox (基本工资 - 500)
    Case Else
        MsgBox ("不存在")
        
    End Select
   
   
End Sub

评分

参与人数 1登攀 -1 收起 理由
唐伯狼 -1 不按 代码方式提交的不批改

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2017-2-24 15:19:01 | 显示全部楼层
1.提示输入用户名,如果用户名不等于 “小明”, 就提示用户名不存在 。 否则提示输入密码: 如果密码不等于”888888”, 则提示密码错误,登录失败。
如果两个都输入正确,则提示登录成功。
2.美国电影分级制度演示程序:提示输入年龄,如果小于 13 岁,提示可以看 G 级电影,如果大于13岁但是小于18 岁,提问是否有家里大人陪同,如果是,可以看PG-13 级, 否则可以看PG 级。如果大于16岁 但小于18岁,可以看NC-17级 级的电影,大于18岁可以看R 级电影。
3.年终评定,绩效工资,如果评定为A 每月工资加500,如果为B 每月工资加200 如果为C 不变,如果为D 降薪200 如果为E 降薪500。李四基本工资为5000,根据评定计算他来年的工资。用 Select Case
  • 第一题:
  • Sub 用户名密码输入()
  • Dim username As String
  • Dim password As Long
  • username = InputBox("请输入用户名:")
  •     If username <> "小明" Then
  •         MsgBox "用户不存在!"
  •     Else
  •         password = Val(InputBox("请输入密码:"))
  •         If password <> 88888888 Then
  •             MsgBox "密码错误,登录失败"
  •         Else
  •             MsgBox "登录成功!"
  •         End If
  •     End If
  • End Sub
  • Sub 用户名密码输入1()
  • Dim username As String
  • Dim password As Long
  • Dim i As String
  • Dim j As Long
  • i = 0
  • j = 0
  • Do While i = 0
  •     username = InputBox("请输入用户名:")
  •     If username <> "小明" Then
  •         MsgBox "用户不存在,请重新输入用户名!"
  •         i = 0
  •     Else
  •         Do While j = 0
  •         password = Val(InputBox("请输入密码:"))
  •         If password <> 88888888 Then
  •             MsgBox "密码错误,登录失败,请重新输入密码"
  •             j = 0
  •         Else
  •             MsgBox "登录成功!"
  •             Exit Do
  •         End If
  •         Loop
  •         Exit Do
  •     End If
  • Loop
  • End Sub

[color=rgb(51, 102, 153) !important]复制代码

  • 第二题:
  • Sub 美国电影分级制度程序()
  • Dim 年龄 As Integer
  • Dim 确认结果
  • 年龄 = Val(InputBox("请输入年龄:"))
  • If 年龄 = 0 Then
  •     MsgBox "输入非法的年龄"
  • Else
  •     Select Case 年龄
  •     Case 1 To 13
  •         MsgBox "可以看G级电影"
  •     Case 13 To 18
  •        确认结果 = MsgBox("是否有家里大人陪同", vbQuestion + vbYesNo, "确认")
  •         If 确认结果 = vbYes Then
  •             MsgBox "可以看PG-13级电影"
  •         Else
  •             MsgBox "可以看PG级电影"
  •         End If
  •     Case 16 To 18
  •         MsgBox "可以看NC-17级电影"
  •      Case Else
  •         MsgBox "可以看R级电影"
  •     End Select
  • End If
  • End Sub

[color=rgb(51, 102, 153) !important]复制代码

  • 第三题:
  • Sub 工资评定()
  • Dim 当年工资 As Long
  • Dim 来年工资 As Long
  • Dim 评定级别 As String
  • 当年工资 = 5000
  • 评定级别 = InputBox("请输入评定级别:")
  • Select Case 评定级别
  • Case "A"
  •     来年工资 = 当年工资 + 500
  •     MsgBox "来年工资是:" & 来年工资
  • Case "B"
  •     来年工资 = 当年工资 + 200
  •     MsgBox "来年工资是:" & 来年工资
  • Case "C"
  •     '来年工资 = 当年工资 + 0
  •     MsgBox "来年工资是:" & 当年工资
  • Case "D"
  •     来年工资 = 当年工资 - 200
  •     MsgBox "来年工资是:" & 来年工资
  • Case "E"
  •     来年工资 = 当年工资 - 500
  •     MsgBox "来年工资是:" & 来年工资
  • Case Else
  •     MsgBox "输入级别有错入,不能评定!"
  • End Select
  • End Sub



评分

参与人数 1登攀 -1 收起 理由
唐伯狼 -1 不按 插入代码 方式提交作业 不批改

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2017-2-24 16:24:29 | 显示全部楼层
[code]Sub 模拟登陆()


    Dim 用户名 As String, 密码 As String
    用户名 = InputBox("请输入用户名")
    If 用户名 = "小明" Then
          密码 = InputBox("请输入密码")
       If 密码 = "888888" Then
          MsgBox "密码正确,登陆成功"
       Else
           MsgBox "密码错误,登陆失败"
       End If
    Else
        MsgBox "用户名不存在"
    End If

End Sub
Sub 电影分级制()
      Dim 年龄 As Integer
      Dim 家长
      年龄 = InputBox("请输入年龄")
      If 年龄 < 13 Then
          MsgBox "可以看G级电影"
      Else
          If 年龄 <= 16 Then
              家长 = MsgBox("是否有家长陪同", vbYesNo)
              If 家长 = vbYes Then
                 MsgBox "可以看PG-13级电影"
              Else
                 MsgBox "可以看PG级电影"
              End If
           Else
              If 年龄 < 18 Then
                MsgBox "可以看PG-17级电影"
              Else
                MsgBox "可以看R级电影"
              End If
           End If
       End If
      
End Sub

评分

参与人数 1登攀 -1 收起 理由
唐伯狼 -1 不按 插入代码 方式提交作业 不批改

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2017-2-24 17:43:47 | 显示全部楼层
  1. 'Homework 1

  2. Sub login()

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

  20. 'Homework 2

  21. Sub movie()

  22.     Dim age As Double
  23.         age = Val(InputBox("请输入年龄"))
  24.         
  25.     Select Case age
  26.         Case Is <= 0
  27.             MsgBox ("年龄输入错误,请重新输入")
  28.         Case Is < 13
  29.             MsgBox ("可以观看G级电影")
  30.         Case Is <= 16
  31.             Dim parent
  32.             parent = MsgBox("是否有成年监护人陪同", vbYesNo)
  33.                 If parent = vbYes Then
  34.                     MsgBox ("可以观看PG-13级电影")
  35.                 Else
  36.                     MsgBox ("可以观看PG级电影")
  37.                 End If
  38.         Case Is < 18
  39.             MsgBox ("可以观看NC-17级电影")
  40.         Case Else
  41.             MsgBox ("可以观看R级电影")
  42.     End Select
  43.                  
  44. End Sub

  45. 'Homework 3

  46. Sub salary()

  47.     Dim base As Double
  48.         base = 5000

  49.     Dim rate
  50.         rate = InputBox("请输入评定级别")
  51.         
  52.     Select Case rate
  53.         Case "A"
  54.             base = base + 500
  55.             MsgBox ("李四来年的每月工资为" & base & "元")
  56.         Case "B"
  57.             base = base + 200
  58.             MsgBox ("李四来年的每月工资为" & base & "元")
  59.         Case "C"
  60.             MsgBox ("李四来年的每月工资为" & base & "元")
  61.         Case "D"
  62.             base = base - 200
  63.             MsgBox ("李四来年的每月工资为" & base & "元")
  64.         Case "E"
  65.             base = base - 500
  66.             MsgBox ("李四来年的每月工资为" & base & "元")
  67.         Case Else
  68.             MsgBox ("输入错误,请重新输入")
  69.     End Select
  70.         
  71. End Sub
复制代码

点评

第三题 最好先计算工资 最后 msgbox输出  发表于 2017-2-24 21:00

评分

参与人数 1登攀 +1 收起 理由
唐伯狼 + 1 注意代码缩进 和 不必要的空行

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2017-2-24 19:16:44 | 显示全部楼层
本帖最后由 guiguiqiuhua 于 2017-2-24 20:09 编辑

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

'模拟登录: 提示你输入用户名
'如果你的用户名不是小明---用户名不存在
'否则让你输入密码
'如果密码 888888 提示密码正确,登录成功
'密码错误,登录失败
  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. End Sub
复制代码

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

'作业2的提示:Msgbox 返回示例
Sub 成绩合格否()
    Dim 合格否

    合格否 = MsgBox("成绩合格了吗?", vbYesNo)
    If 合格否 = vbYes Then
        MsgBox "合格了"
    Else
        MsgBox "没合格"
    En
  1. Sub 作业2()
  2.     Dim 年龄 As Integer, 陪同 As Variant
  3.     年龄 = InputBox("请输入您的年龄")
  4.     Select Case 年龄
  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
复制代码

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

  1. Sub 作业3()
  2.     Dim 评级 As String, 工资 As Integer
  3.     工资 = 5000
  4.     评级 = InputBox("请输入评级")
  5.     Select Case 评级
  6.     Case "A"
  7.         工资 = 工资 + 500
  8.         MsgBox "李四的工资为" & 工资 & "元"
  9.     Case "B"
  10.         工资 = 工资 + 200
  11.         MsgBox "李四的工资为" & 工资 & "元"
  12.     Case "C"
  13.         工资 = 工资 + 0
  14.         MsgBox "李四的工资为" & 工资 & "元"
  15.     Case "D"
  16.         工资 = 工资 - 200
  17.         MsgBox "李四的工资为" & 工资 & "元"
  18.     Case "E"
  19.         工资 = 工资 - 500
  20.         MsgBox "李四的工资为" & 工资 & "元"
  21.     Case Else
  22.         MsgBox "您输入的评级不正确"
  23.     End Select
  24. End Sub
复制代码

点评

第三题 最好先计算工资 最后 msgbox输出  发表于 2017-2-24 21:01
回复 支持 反对

使用道具 举报

发表于 2017-2-24 19:47:30 | 显示全部楼层
  1. 小凯
  2. Sub 成绩合格否()
  3.     Dim 合格否
  4.    
  5.     合格否 = MsgBox("成绩合格了吗?", vbYesNo)
  6.     If 合格否 = vbYes Then
  7.         MsgBox "合格了"
  8.     Else
  9.         MsgBox "没合格"
  10.     End If
  11. End Sub

  12. '作业3: 年终评定,绩效工资,如果评定为A 每月工资加500,
  13. '如果为B 每月工资加200 如果为C 不变,如果为D 降薪200 如果为E 降薪500。
  14. '李四基本工资为5000,根据评定计算他来年的每月的工资。用 Select Case
  15. Sub zuoye1()
  16.     Dim 用户名$, 密码&
  17.     用户名 = InputBox("请输入用户名")
  18.     If 用户名 = "小明" Then
  19.         密码 = InputBox("请输入密码")
  20.         If 密码 = 888888 Then
  21.             MsgBox "登陆成功"
  22.         Else
  23.             MsgBox "登陆失败"
  24.         End If
  25.     Else
  26.         MsgBox "用户不存在"
  27.     End If
  28. End Sub
  29. Sub zuoye2()
  30.     Dim 年龄$, 陪同 As Integer
  31.     年龄 = InputBox("请输入年龄")
  32.     Select Case 年龄
  33.     Case Is < 13
  34.         MsgBox "可以看G级电影"
  35.     Case 13 To 16
  36.         陪同 = MsgBox("是否有大人陪同", vbYesNo)
  37. '        MsgBox 陪同
  38.         MsgBox IIf(陪同 = 6, "可以看PG_13级", "可以看PG级")
  39.     Case 16 To 18
  40.         MsgBox "可以看NC-17级电影"
  41.     Case Is > 18
  42.         MsgBox "可以看r级电影"
  43.    End Select
  44. End Sub
  45. Sub 作业3311()
  46.     Dim 年终评定$, 绩效工资%, 基本工资%
  47.     基本工资 = 5000
  48.     年终评定 = InputBox("李四的年终评定为:")
  49.     Select Case 年终评定
  50.     Case "a"
  51.         MsgBox "李四的工资为:" & 基本工资 + 500
  52.     Case "b"
  53.         MsgBox "李四的工资为:" & 基本工资 + 200
  54.     Case "c"
  55.         MsgBox "李四的工资为:" & 基本工资
  56.     Case "d"
  57.         MsgBox "李四的工资为:" & 基本工资 - 200
  58.     Case "e"
  59.         MsgBox "李四的工资为:" & 基本工资 - 500
  60.     End Select
  61. End Sub
复制代码

点评

第三题 最好先计算工资 最后 msgbox输出  发表于 2017-2-24 21:02
回复 支持 反对

使用道具 举报

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

  1. '2017-2-22 作业1

  2. Sub loard()
  3.     Dim username As String, psw As Long
  4.    
  5.     username = InputBox("请输入用户名")
  6.    
  7.     If username = "小明" Then
  8.    
  9.         psw = Val(InputBox("请输入密码"))
  10.         
  11.         If psw = 888888 Then
  12.         
  13.             MsgBox "欢迎登陆!"
  14.         Else
  15.         
  16.             MsgBox "密码错误!"
  17.         End If
  18.         
  19.       Else
  20.         MsgBox "你输入的用户名错误!"
  21.     End If
  22. End Sub




  23. '2017-2-22作业2

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


  28. Sub 电影分级()
  29.     Dim 年龄 As Long, 电影 As String, 陪同
  30.    
  31.     年龄 = InputBox("请输入您的年龄:")
  32.     Select Case 年龄
  33.     Case Is < 13
  34.         MsgBox "你可以看G级电影"
  35.     Case Is < 16
  36.         陪同 = MsgBox("是否有大人陪同?", vbYesNo)
  37.         If 陪同 = vbYes Then
  38.             MsgBox "你可以看PG-13级电影"
  39.         Else
  40.             MsgBox "你可以看PG级电影。"
  41.         End If
  42.     Case Is < 18
  43.         MsgBox "你可以看NC-17级电影。"
  44.     Case Else
  45.         MsgBox "你可以看R级电影"
  46.     End Select
  47.    

  48. End Sub
复制代码

点评

作业漏做一题 注意代码缩进和避免不必要的空行  发表于 2017-2-24 21:02
回复 支持 反对

使用道具 举报

发表于 2017-2-24 20:06:02 | 显示全部楼层
  1. Option Explicit

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

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

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

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


点评

第三题 最好先计算工资 最后 msgbox输出  发表于 2017-2-24 21:05
回复 支持 反对

使用道具 举报

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

本版积分规则

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