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

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

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

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

使用道具 举报

发表于 2017-11-28 11:04:38 | 显示全部楼层
  1. Option Explicit
  2. Sub 张三的成绩()

  3.     Dim 语文成绩 As Long, 音乐成绩 As Long, 判断 As Boolean
  4.    
  5.    
  6.     语文成绩 = InputBox("请输入您的语文成绩")
  7.    
  8.     音乐成绩 = InputBox("请输入您的音乐成绩")
  9.    
  10.     If (语文成绩 >= 90 And 音乐成绩 >= 80) Or (语文成绩 = 100 And 音乐成绩 >= 70) Then
  11.         MsgBox "奖励100元"
  12.     End If
  13.       

  14. End Sub


  15. Sub 作业2()
  16.     Dim a As Long, b As Long
  17.     a = InputBox("请输入a的数值")
  18.     b = InputBox("请输入b的数值")
  19.     If (a Mod b = 0 Or a + b > 0) Then
  20.         MsgBox "a"
  21.     Else
  22.         MsgBox "b"
  23.     End If
  24. End Sub


  25. Sub 作业3()

  26.     Dim 用户名 As String, 密码 As String
  27.    
  28.     用户名 = InputBox("请输入用户名")
  29.    
  30.     If 用户名 = "小明" Then
  31.    
  32.         密码 = InputBox("请输入密码")
  33.         
  34.         If 密码 = "888888" Then
  35.             MsgBox "登录成功"
  36.             
  37.         Else
  38.             MsgBox "密码错误,登陆失败"
  39.             
  40.         End If
  41.         
  42.     Else
  43.         MsgBox "用户名不存在"
  44.       
  45.     End If

  46. End Sub


  47. Sub 作业4()
  48.     Dim 评定结果 As String, 基本工资 As Long
  49.     评定结果 = InputBox("请输入评定结果")
  50.     基本工资 = InputBox("请输入基本工资")
  51.     If 评定结果 = "A" Then
  52.    
  53.         MsgBox "您的来年工资是" & 基本工资 + 500
  54.     ElseIf 评定结果 = "B" Then
  55.       
  56.          MsgBox "您的来年工资是" & 基本工资 + 200
  57.     ElseIf 评定结果 = "C" Then
  58.       
  59.          MsgBox "您的来年工资是" & 基本工资
  60.     ElseIf 评定结果 = "D" Then
  61.       
  62.          MsgBox "您的来年工资是" & 基本工资 - 200
  63.     ElseIf 评定结果 = "E" Then
  64.       
  65.          MsgBox "您的来年工资是" & 基本工资 - 500
  66.     End If
  67.       

  68. End Sub


复制代码

点评

作业2结果错误,23行:正确是If (a Mod b = 0 Or a + b > 100) Then;其它正确  发表于 2017-12-1 13:39
回复 支持 1 反对 0

使用道具 举报

发表于 2017-11-28 11:09:05 | 显示全部楼层
本帖最后由 [如果,爱) 于 2017-11-30 14:13 编辑
  1. <div class="blockcode">Sub 作业1()
  2.     Dim ywcj As Long, yycj As Long
  3.     ywcj = 95
  4.     yycj = 85
  5.     If (ywcj >= 90 And yycj >= 80) Or (ywcj = 100 And yycj >= 70) Then
  6.         MsgBox "奖励100元。"
  7.     End If
  8.    
  9. End Sub
  10. Sub 作业2()
  11.     Dim a As Long, b As Long
  12.     a = 100
  13.     b = 25
  14.     If a Mod b = 0 Or a + b > 100 Then
  15.         MsgBox a
  16.     Else
  17.         MsgBox b
  18.     End If
  19. End Sub

  20.    
  21. Sub 作业3()
  22.     Dim yhm As String, mm As Long
  23.     yhm = InputBox("请输入用户名:")
  24.         If yhm = "小明" Then
  25.             mm = InputBox("请输入密码:")
  26.             If mm = 888888 Then
  27.                 MsgBox "登陆成功!"
  28.             Else
  29.                 MsgBox " 密码错误,登陆失败。"
  30.             End If
  31.         Else
  32.             MsgBox yhm & "用户名不存在。"
  33.         End If
  34.    
  35. End Sub
  36. Sub 作业4()
  37.     Dim jbgz As Long, pd As String
  38.     jbgz = 5000
  39.     pd = InputBox("请输入绩效评定等级:")
  40.     If pd = "A" Then
  41.         jbgz = jbgz + 500
  42.     ElseIf pd = "B" Then
  43.         jbgz = jbgz + 200
  44.     ElseIf pd = "C" Then
  45.         jbgz = jbgz
  46.     ElseIf pd = "D" Then
  47.         jbgz = jbgz - 200
  48.     Else
  49.         jbgz = jbgz - 500
  50.     End If
  51.         MsgBox "李四来年的基本工资是:" & jbgz
  52. End Sub

  53. Sub 作业5()
  54.     Dim num As Long, guessnum As Long
  55.     guessnum = Val(InputBox("请输入1-10之间的一个整数来猜:"))
  56.     num = WorksheetFunction.RandBetween(1, 10)
  57.     If guessnum < num Then
  58.         MsgBox "录入" & guessnum & ";电脑" & num & ";小了,小了。"
  59.     ElseIf guessnum = num Then
  60.         MsgBox "录入" & guessnum & ";电脑" & num & ";猜对了。"
  61.     Else
  62.         MsgBox "录入" & guessnum & ";电脑" & num & " ;大了,大了。"
  63.     End If
  64. End Sub
复制代码

点评

inputbox输入框的变量建议用变体类型,当什么也未输或类型不匹配的时候,无法运行代码  发表于 2017-12-1 13:44
不错  发表于 2017-12-1 13:40
回复 支持 反对

使用道具 举报

发表于 2017-11-28 11:22:24 | 显示全部楼层
本帖最后由 huwenjun727 于 2017-11-29 09:47 编辑
  1. '作业1
  2. Sub score()
  3.   Dim 张三的语文成绩 As Long, 张三的音乐成绩 As Long
  4.       张三的语文成绩 = 100
  5.       张三的音乐成绩 = 70
  6.   If (张三的语文成绩 >= 90 And 张三的音乐成绩 >= 80) Or (张三的语文成绩 = 100 And 张三的音乐成绩 >= 70) Then
  7.       MsgBox ("奖励100元")
  8.   Else
  9.       MsgBox ("没有奖励")
  10.   End If
  11. End Sub

  12. '作业2
  13. Sub 输出值()
  14.   Dim a As Long, b As Long
  15.       a = 50
  16.       b = 3
  17.   If (a Mod b = 0 Or a + b > 100) Then
  18.       MsgBox a
  19.   Else
  20.       MsgBox b
  21.   End If
  22. End Sub

  23. '作业3
  24. Sub 登录()
  25.   Dim username As String, password As Long
  26.          username = InputBox("请输入用户名")
  27.     If username = "小明" Then
  28.       password = InputBox("请输入密码")
  29.           If password = 888888 Then
  30.           MsgBox ("登录成功")
  31.           Else
  32.           MsgBox ("密码错误,登录失败")
  33.          End If
  34.     Else
  35.           MsgBox ("用户名不存在 ")
  36.     End If
  37. End Sub

  38. '作业4
  39. Sub KPI()
  40.   Dim wage As Long, KPI As String
  41.       wage = 5000
  42.       KPI = InputBox("输入评定成绩 ABCDE")
  43.   If KPI = "A" Then
  44.       MsgBox "明年工资" & (wage + 500)
  45.   ElseIf KPI = "B" Then
  46.       MsgBox "明年工资" & (wage + 200)
  47.   ElseIf KPI = "C" Then
  48.       MsgBox "明年工资" & (wage + 0)
  49.   ElseIf KPI = "D" Then
  50.       MsgBox "明年工资" & (wage - 200)
  51.   ElseIf KPI = "E" Then
  52.       MsgBox "明年工资" & (wage - 500)
  53.   Else
  54.       MsgBox "输入错误,请输入评定成绩 ABCDE"
  55.   End If
  56. End Sub

  57. '作业5
  58. Sub 猜数游戏雏形()
  59.   Dim num As Long, guessNum As Long
  60.       guessNum = Val(InputBox("请输入1-10之间的一个整数来猜"))
  61.       num = WorksheetFunction.RandBetween(1, 10)
  62.       If guessNum < num Then
  63.           MsgBox "您输入的是" & guessNum & "电脑生成 " & num & vbNewLine & guessNum & "小了小了"
  64.       ElseIf guessNum = num Then
  65.           MsgBox "您猜对了"
  66.       Else
  67.           MsgBox "您输入的是" & guessNum & "电脑生成 " & num & vbNewLine & guessNum & "大了,大了"
  68.       End If
  69.   End Sub


  70. '作业5补充   '进一步了:如果输入的数字在合理范围外,就不进行判断。

  71. Sub 猜数游戏雏形() '进一步了:如果输入的数字在合理范围外,就不进行判断。
  72.   Dim num As Long, guessNum As Long
  73.       guessNum = Val(InputBox("请输入1-10之间的一个整数来猜"))
  74.       num = WorksheetFunction.RandBetween(1, 10)
  75.         If 1 <= guessNum And guessNum <= 10 Then
  76.          If guessNum < num Then
  77.             MsgBox "您输入的是" & guessNum & "电脑生成 " & num & vbNewLine & guessNum & "小了小了"
  78.           ElseIf guessNum = num Then
  79.             MsgBox "您猜对了"
  80.           Else
  81.             MsgBox "您输入的是" & guessNum & "电脑生成 " & num & vbNewLine & guessNum & "大了,大了"
  82.           End If
  83.       Else
  84.           MsgBox " 您需要输入1-10之间的整数"
  85.       End If
  86. End Sub
复制代码

点评

不错,很赞,认真完成作业  发表于 2017-12-1 13:58
45行改成KPI = UCase(InputBox("输入评定成绩 ABCDE"))这样,会更友好些  发表于 2017-12-1 13:58
inputbox输入框的变量建议用变体类型,当什么也未输或类型不匹配的时候,无法运行代码  发表于 2017-12-1 13:55
回复 支持 反对

使用道具 举报

发表于 2017-11-28 11:34:48 | 显示全部楼层

  1. 'homework 1
  2. Sub zhangsanaward()
  3.     Dim CS As Long, MS As Long
  4.         CS = InputBox("please enter your Chinse score")
  5.         MS = InputBox("please enter your Music score")
  6.     If (CS >= 90 And MS >= 80) Or (CS = 100 And MS >= 70) Then
  7.         MsgBox "Zhang San gets the award of 100RMB"
  8.     End If
  9. End Sub

  10. 'homework2
  11. Sub onewayoranother()
  12.     Dim a As Long, b As Long
  13.         a = InputBox("please enter one number")
  14.         b = InputBox("please enter another number")
  15.     If (a Mod b = 0) Or ((a + b) > 100) Then
  16.         MsgBox a
  17.     Else
  18.         MsgBox b
  19.     End If
  20. End Sub

  21. 'homework3
  22. Sub login()
  23.     Dim name As String
  24.         name = InputBox("Please enter your name")
  25.     If name <> "Tom" Then
  26.         MsgBox "Your name does not exist, please enter your correct name"
  27.     Else
  28.         MsgBox "Please enter your password"
  29.         Dim password As Long
  30.         password = InputBox("Please enter your password")
  31.         If password <> 888888 Then
  32.             MsgBox "Failed to log in, wrong password"
  33.         Else
  34.             MsgBox "You have logged in successfully"
  35.         End If
  36.     End If
  37. End Sub

  38. 'homework4
  39. Sub salaryfornextyear()
  40.     Dim appraisal As String, basicsalary As Double
  41.     appraisal = InputBox("Please enter your appraisal result")
  42.     basicsalary = 5000
  43.     If appraisal = "A" Then
  44.         MsgBox "Mr. Li 's basic salary is " & basicsalary + 500 & "RMB next year"
  45.     ElseIf appraisal = "B" Then
  46.         MsgBox "Mr. Li 's basic salary is " & basicsalary + 200 & "RMB next year"
  47.     ElseIf appraisal = "C" Then
  48.         MsgBox "Mr. Li 's basic salary is " & basicsalary & "RMB next year"
  49.     ElseIf appraisal = "D" Then
  50.         MsgBox "Mr. Li 's basic salary is " & basicsalary - 200 & "RMB next year"
  51.     ElseIf appraisal = "E" Then
  52.         MsgBox "Mr. Li 's basic salary is " & basicsalary - 500 & "RMB next year"
  53.     End If
  54. End Sub

  55. 'homework5
  56. Sub prototypeofguessinggames()
  57.     Dim num As Long, guessNum As Long
  58.         num = WorksheetFunction.RandBetween(1, 10)
  59.         guessNum = Val(InputBox("Please enter one round number between 1 to 10"))
  60.     If guessNum < num Then
  61.         MsgBox guessNum & " vs " & num & "; You are smaller"
  62.     ElseIf guessNum = num Then
  63.         MsgBox guessNum & " vs " & num & "; Great,your guess is correct!"
  64.     ElseIf guessNum > num Then
  65.         MsgBox guessNum & " vs " & num & "; You are bigger"
  66.     End If
  67. End Sub
复制代码

点评

不错,赞  发表于 2017-12-1 14:05
inputbox输入框的变量建议用变体类型,当什么也未输或类型不匹配的时候,无法运行代码  发表于 2017-12-1 14:04
45行: appraisal =UCase( InputBox("Please enter your appraisal result"))这样,会更友好些  发表于 2017-12-1 14:03
回复 支持 反对

使用道具 举报

发表于 2017-11-28 11:43:12 | 显示全部楼层
  1. Sub Reward()
  2. '作业1: 张三的语文成绩大于等于90分并且音乐成绩大于等于80分 或者 语文等于100 分,
  3. '音乐大于等于70 分 则奖励 100 元。
  4. Dim Chinese#, Music#
  5.     Chinese = CDbl(InputBox("请输入张三的语文成绩"))
  6.     Music = CDbl(InputBox("请输入张三的音乐成绩"))
  7.     If (Chinese >= 90 And Music >= 80) Or (Chinese = 100 And Music >= 70) Then MsgBox "奖励100元"
  8. End Sub
复制代码
  1. Sub Number()
  2. '作业2: 已知两个数,如果a 能被b 整除 或者 a+b >100 就输出 a 否则就输出 b
  3. ' a/b 没有余数
  4.     Dim a%, b%
  5.     a = CInt(InputBox("请输入一个整数:"))
  6.     b = CInt(InputBox("请输入一个整数:"))
  7.     If a Mod b = 0 Or a + b > 100 Then
  8.     MsgBox a
  9.     Else
  10.     MsgBox b
  11.     End If
  12. End Sub
复制代码
  1. Sub Login()
  2. '作业3: 提示输入用户名,如果用户名不等于 “小明”, 就提示用户名不存在 。
  3. '否则提示输入密码: 如果密码不等于”888888”, 则提示密码错误,登录失败。
  4. '否则提示登录成功
  5.     Dim Name$, Password&
  6.     Name = CStr(InputBox("请输入用户名:"))
  7.     If Name <> "小明" Then
  8.     MsgBox "用户名不存在"
  9.     Else
  10.     Password = CLng(InputBox("请输入密码:"))
  11.         If Password <> 888888 Then
  12.         MsgBox "密码错误,登陆失败"
  13.         Else
  14.         MsgBox "登陆成功"
  15.         End If
  16.     End If
  17. End Sub
复制代码
  1. Sub Judge()
  2. '作业4: 年终评定,绩效工资,如果评定为A 每月工资加500,如果为B 每月工资加200
  3. '如果为C 不变,如果为D 降薪200 如果为E 降薪500。李四基本工资为5000,根据评
  4. '定计算他来年的工资。
  5.     Dim Judge$, Salary&
  6.     Judge = CStr(InputBox("请输入评定结果<A-E>:"))
  7.     Salary = 5000
  8.     If Judge = "A" Then
  9.     MsgBox "每月工资加500!" & "李四的工资为:" & Salary + 500
  10.     ElseIf Judge = "B" Then
  11.     MsgBox "每月工资加200!" & "李四的工资为:" & Salary + 200
  12.     ElseIf Judge = "C" Then
  13.     MsgBox "工资不变!" & "李四的工资为:" & Salary + 0
  14.     ElseIf Judge = "D" Then
  15.     MsgBox "降薪200!" & "李四的工资为:" & Salary - 200
  16.     ElseIf Judge = "E" Then
  17.     MsgBox "降薪500!" & "李四的工资为:" & Salary - 500
  18.     Else
  19.     MsgBox "评定结果输入有误,请输入大写A-E中的字母"
  20.     End If
  21.     End Sub
复制代码
  1. Sub GuessNum()
  2. '作业5:猜数游戏雏形,输入1-10 之间的整数
  3. 'Sub 猜数游戏雏形() '进一步了:如果输入的数字在合理范围外,就不进行判断。
  4. 'Dim num As Long, guessNum As Long
  5. 'guessNum = Val(InputBox("请输入1-10之间的一个整数来猜"))
  6. 'num = WorksheetFunction.RandBetween(1, 10) '生成了一个随机的1-10 之间的数
  7. '第一判断如果你输入的数比电脑生成的数小:就输出小了小了
  8. '如果相等 就输出猜对了
  9. '如果比电脑的数大,就输出大了,大了
  10.     Dim Num&, GuessNum&
  11.     GuessNum = Val(InputBox("请输入1-10之间的一个整数来猜"))
  12.     Num = WorksheetFunction.RandBetween(1, 10)
  13.     If GuessNum < Num Then
  14.     MsgBox "小了小了!"
  15.     Else
  16.         If GuessNum > Num Then
  17.         MsgBox "大了大了!"
  18.         Else
  19.         MsgBox "猜对了!"
  20.         End If
  21.     End If
  22. End Sub
复制代码

点评

非常棒!  发表于 2017-12-1 14:13

评分

参与人数 1登攀 +1 收起 理由
开心妙妙 + 1 赞一个!

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2017-11-28 11:58:11 | 显示全部楼层
本帖最后由 sweet17tian 于 2017-11-30 21:43 编辑
  1. '第4课作业

  2. Sub 第一题()
  3.     Dim 语文 As Long
  4.     Dim 音乐 As Long
  5.     语文 = 100
  6.     音乐 = 71
  7.    
  8.    
  9.     If (语文 >= 90 And 音乐 >= 80) Or (语文 = 100 And 音乐 >= 70) Then
  10.     MsgBox "奖励100元"
  11.     End If

  12. End Sub



  13. Sub 第二题()
  14.     Dim a As Long
  15.     Dim b As Long
  16.     a = 50
  17.     b = 3
  18.    
  19.     If a Mod b = 0 Or a + b > 100 Then
  20.         MsgBox a
  21.     Else
  22.         MsgBox b
  23.     End If
  24.    
  25. End Sub

  26. <blockquote>Sub 第三题()
复制代码

Sub 第四题()
    Dim 用户名 As String
    Dim 密码 As Long
   
    用户名 = InputBox("请输入您的姓名")
    If 用户名 = "小明" Then
        密码 = Val(InputBox("请输入密码"))
        If 密码 = 888888 Then
            MsgBox "登陆成功"
        Else
            MsgBox "密码错误,登录失败"
        End If
        
    Else
        MsgBox "该用户不存在"
    End If
   

End Sub



Sub 第五题()
    Dim 数字 As Long
    Dim 你猜 As Long
    数字 = WorksheetFunction.RandBetween(1, 10)
    你猜 = Val(InputBox("请输入1-10之间的一个整数来猜"))
    If 你猜 <= 10 And 你猜 >= 1 Then
        If 你猜 < 数字 Then
            MsgBox "小了"
        ElseIf 你猜 > 数字 Then
            MsgBox "大了"
        Else
            MsgBox "你猜对了"
        End If
        
    Else
        MsgBox "请重新输入1-10之间的任意一个整数"
    End If
   
   
End Sub

点评

不错,赞  发表于 2017-12-1 14:16
回复 支持 反对

使用道具 举报

发表于 2017-11-28 12:03:44 | 显示全部楼层
'作业1

Sub 是否奖励小明()
    Dim 语文 As Long, 音乐 As Long
   
    语文 = InputBox("请输入语文成绩")
    音乐 = InputBox("请输入音乐成绩")
            
    If (语文 >= 90 And 音乐 >= 80) Or (语文 = 100 And 音乐 >= 70) Then
    MsgBox "奖励100元"
    End If
     
   
   
End Sub

'作业2

Sub 判断AB()
    Dim A As Long, B As Long
   
    A = InputBox("请输入A的数值")
    B = InputBox("请输入B的数值")
   
    If ((A Mod B) = 0 Or (A + B) > 100) Then
    MsgBox "A"
    Else
    MsgBox "B"
   
    End If


End Sub

'作业3

Sub 绩效评定()

    Dim 绩效结果 As String
   
    绩效结果 = InputBox("请输入绩效结果")
   
    If 绩效结果 = "A" Then
        MsgBox "每月工资加500元"
    ElseIf 绩效结果 = "B" Then
        MsgBox "每月工资加200元"
    ElseIf 绩效结果 = "C" Then
         MsgBox "工资不变"
    ElseIf 绩效结果 = "D" Then
         MsgBox "每月工资降200元"
    Else
         MsgBox "每月工资降500元"
         
    End If
   
   
End Sub

'作业4


Sub 输入提示()

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

'作业5
Sub 猜数游戏()

    Dim num As Long, guessNum As Long
     
    guessNum = Val(InputBox("请输入1-10之间的一个整数来猜"))
    num = WorksheetFunction.RandBetween(1, 10)
   
    If guessNum >= 1 And guessNum <= 10 Then
   
        If guessNum = num Then
            MsgBox "猜对了"
        ElseIf guessNum > num Then
            MsgBox "大了,大了"
        Else
            MsgBox "小了,小了"
   
        End If
        
    End If
      
End Sub

点评

整体不错  发表于 2017-12-1 14:22
作业3,代码结构正确,要显示的结果有些偏差  发表于 2017-12-1 14:20
回复 支持 反对

使用道具 举报

发表于 2017-11-28 12:39:31 | 显示全部楼层
  1. Sub 作业1()
  2.     Dim 语文成绩 As Long
  3.     Dim 音乐成绩 As Long
  4.     Dim 奖励 As String
  5.    
  6.     语文成绩 = 100
  7.     音乐成绩 = 50
  8.     If (语文成绩 >= 90 And 音乐成绩 >= 80) Or 语文成绩 = 100 Then MsgBox "奖励100元"
  9.     MsgBox IIf((语文成绩 >= 90 And 音乐成绩 >= 80) Or 语文成绩 = 100, "奖励100元", "无奖励")
  10. End Sub

  11. Sub 作业2()
  12.     Dim a As Long
  13.     Dim b As Long
  14.     a = 2
  15.     b = 3
  16.     If a Mod b = 0 Or a + b > 100 Then
  17.     MsgBox "a is" & a
  18.     Else
  19.     MsgBox "b is" & b
  20.     End If
  21. End Sub

  22. Sub 作业3()
  23.     Dim uname As String
  24.     Dim upassword As String
  25.     uname = InputBox("请输入用户名")
  26.     upassword = InputBox("请输入密码")
  27.     If uname <> "小明" Then
  28.         MsgBox ("用户名不存在")
  29.     ElseIf upassword <> "88888" Then
  30.         MsgBox ("用户名密码错!")
  31.     Else
  32.         MsgBox ("登陆成功!")
  33.     End If
  34. End Sub

  35. Sub 作业4()
  36.     Dim 年中评定 As String
  37.     Dim 绩效工资 As Integer
  38.     年中评定 = "A"
  39.    
  40.     Select Case 年中评定
  41.         Case "A"
  42.         绩效工资 = 500
  43.         Case "B"
  44.         绩效工资 = 200
  45.         Case "C"
  46.         绩效工资 = 0
  47.         Case "D"
  48.         绩效工资 = -200
  49.         Case "E"
  50.         绩效工资 = -500
  51.     End Select
  52.     MsgBox "李四的来年工资为 " & 5000 + 绩效工资

  53. End Sub

  54. Sub 作业5_猜数游戏雏形() '进一步了:如果输入的数字在合理范围外,就不进行判断。
  55.     Dim num As Long, guessNum As Long
  56.     guessNum = Val(InputBox("请输入1-10之间的一个整数来猜"))
  57.     num = WorksheetFunction.RandBetween(1, 10) '生成了一个随机的1-10 之间的数
  58.     If guessNum < num Then MsgBox "小了"
  59.     If guessNum > num Then MsgBox "大了"
  60.     If guessNum = num Then MsgBox "猜对了"
  61. End Sub
复制代码

点评

作业2、4正确  发表于 2017-12-1 14:33
作业5:代码结构不正确,应该是一个多分结构语句  发表于 2017-12-1 14:33
作业3:代码的顺序不正确, upassword = InputBox("请输入密码"),输入密码,要判断输入的用户是正确后,才输入密码  发表于 2017-12-1 14:29
作业1:不正确,漏了音乐大等于70 分的条件  发表于 2017-12-1 14:25
回复 支持 反对

使用道具 举报

发表于 2017-11-28 14:37:02 | 显示全部楼层
本帖最后由 alexzhang921 于 2017-11-29 10:34 编辑
  1. Option Explicit

  2. Sub lesson0401()
  3.     Dim yuwen As Long, yinyue As Long
  4.    
  5.     yuwen = 100
  6.     yinyue = 680
  7.    
  8.     If yuwen >= 90 And yinyue >= 80 Then
  9.     MsgBox "pay 100"
  10.    
  11.     ElseIf yuwen = 100 And yinyue >= 70 Then
  12.     MsgBox "pay 100"
  13.    
  14.     Else
  15.     MsgBox "no money"
  16.    
  17. End If


  18. End Sub

  19. '======================================
  20. Sub lesson0402()
  21.     Dim a As Long, b As Long
  22.     a = 4
  23.     b = 2
  24.     If a Mod b = 0 Then
  25.       MsgBox "a"
  26.     ElseIf a + b > 100 Then
  27.       MsgBox "a"
  28.     Else
  29.       MsgBox "b"
  30.     End If
  31.    
  32. End Sub

  33. '================================
  34. Sub lesson0403()
  35.    
  36.     Dim userID As String, pw As Long
  37.    
  38.     userID = InputBox("please input your username")
  39.    
  40.     If userID <> "xiaoming" Then
  41.    
  42.         MsgBox "Not exist"
  43.    
  44.     Else
  45.    
  46.     pw = InputBox("please input your password")
  47.    
  48.    
  49.     If pw <> 888888 Then
  50.    
  51.         MsgBox "worng password, log in failed"
  52.     Else
  53.    
  54.         MsgBox "success"
  55.    
  56.     End If
  57.     End If
  58.    
  59.    
  60. End Sub

  61. '==============================

  62. Sub lesson0404()
  63.     Dim pay1 As Long, pay2 As Long, grade As String
  64.         pay1 = 5000

  65.     grade = InputBox("pleaes input evaluation degree ")
  66.     If grade = "A" Then
  67.     pay2 = pay1 + 500
  68.     MsgBox "next year salary is " & pay2
  69.     ElseIf grade = "B" Then
  70.     pay2 = pay1 + 200
  71.     MsgBox "next year salary is " & pay2
  72.     ElseIf grade = "C" Then
  73.     pay2 = pay1
  74.     MsgBox "next year salary is " & pay2
  75.     ElseIf grade = "D" Then
  76.     pay2 = pay1 - 200
  77.     MsgBox "next year salary is " & pay2
  78.     ElseIf grade = "E" Then
  79.     pay2 = pay1 - 200
  80.     MsgBox "next year salary is " & pay2
  81.     Else
  82.     MsgBox "Input wrong"
  83.    
  84.     End If
  85.    
  86. End Sub

  87. '================================================


  88. Sub lesson0405()
  89.    
  90.     Dim num As Long, guessnum As Long
  91.     guessnum = Val(InputBox("please input a integer between 1 to 10"))
  92.     num = WorksheetFunction.RandBetween(1, 10)
  93.    
  94.     If guessnum = 0 Or guessnum > 10 Then
  95.         MsgBox "Input wrong"
  96.     ElseIf guessnum > num Then
  97.         MsgBox "Too much"
  98.     ElseIf guessnum = num Then
  99.         MsgBox "Correct"
  100.     Else
  101.         MsgBox "too little"
  102.     End If
  103.    
  104.    
  105. End Sub
复制代码

点评

将MsgBox "next year salary is " & pay2这语句放在92行的后面,前面全部重复的可以去掉  发表于 2017-12-1 14:42
作业2:输入“a",不用分二次去判断,将28与30的语句合并  发表于 2017-12-1 14:39
作业1:奖励不用分开二次去判断,可以将09与12合在一起  发表于 2017-12-1 14:37
回复 支持 反对

使用道具 举报

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

本版积分规则

关闭

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

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