6月5/6日 Excel函数实战技巧精粹 300集Office 2010微视频教程
5月7日 Excel VBA开发实战 高效办公必会的Office实战技巧
5月6日 Excel透视表实战秘技 网易云课堂-Excel数据透视表应用大全
Excel数据处理与分析实战技巧第1季
查看: 829|回复: 40

零基础13期-第四课作业

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

规则如前





回复

使用道具 举报

发表于 2018-3-12 23:27:30 | 显示全部楼层
本帖最后由 叶舞冷清秋 于 2018-3-15 06:08 编辑
  1. '第四课作业

  2. Sub 奖励()
  3.     Dim yuwen As Long, yinyue As Long
  4.     yuwen = 100
  5.     yinyue = 69
  6.     If ((yuwen >= 90 And yinyue >= 80) Or (yuwen = 100 And yinyue >= 70)) Then
  7.       MsgBox "奖励100"
  8.     End If

  9. End Sub
  10. Sub 整除()
  11.     Dim a As Long, b As Long
  12.     a = 50
  13.     b = 40
  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. Sub 猜数游戏雏形()
  21.     Dim 要你猜 As Long, 你猜 As Long
  22.     要你猜 = WorksheetFunction.RandBetween(1, 3)
  23.     你猜 = InputBox("输入你猜的数")
  24.     If 你猜 = 要你猜 Then
  25.      MsgBox "真棒,你猜对了"
  26.     ElseIf 你猜 < 要你猜 Then
  27.      MsgBox "你猜小了,小了"
  28.     Else
  29.      MsgBox "你猜大了,大了"
  30.     End If
  31. End Sub

  32. Sub 登录()
  33.     Dim name As String, mima As String
  34.     name = InputBox("请输入用户姓名")
  35.     If name <> "小明" Then
  36.         MsgBox "没有这个用户"
  37.     Else
  38.         mima = InputBox("请输入用户密码")
  39.           If mima = "t888888" Then
  40.             MsgBox "密码正确,登录成功"
  41.           Else
  42.             MsgBox "密码错误"
  43.           End If
  44.     End If
  45.         
  46. End Sub
  47.       
  48. Sub 生日天数()
  49.     Dim 生日 As Date, 间隔 As Long
  50.     生日 = CDate(InputBox("请输入你的生日:"))
  51.     间隔 = Date - 生日
  52.     MsgBox "我出生到现在的天数是" & 间隔 & "天"
  53. End Sub

  54. Sub 多数据()
  55.     Dim name As String, mi As String
  56.     name = InputBox("请输入用户名")
  57.     If (name <> "小林") And (name <> "小杜") Then
  58.        MsgBox "用户名不存在"
  59.     Else
  60.        mi = InputBox("请输入密码")
  61.          If name = "小林" And mi = "888" Or name = "小杜" And mi = "777" Then
  62.             MsgBox "密码正确,登录成功"
  63.          Else
  64.             MsgBox "密码错误"
  65.          End If
  66.     End If
  67. End Sub
复制代码
回复 支持 反对

使用道具 举报

发表于 2018-3-13 00:49:39 | 显示全部楼层
本帖最后由 Max0713 于 2018-3-16 00:40 编辑
  1. Sub homework1()
  2.     Dim 生日 As Date, 天数 As Long
  3.     生日 = CDate(InputBox("请输入你的生日"))
  4.     天数 = Date - 生日
  5.     MsgBox "自你出生以来到现在已经过了" & 天数 & "天了"
  6.    
  7.    
  8. End Sub

  9. Sub homework2()
  10.     Dim 语文 As Long, 音乐 As Long
  11.     语文 = InputBox("张三语文成绩是?")
  12.     音乐 = InputBox("张三音乐成绩是?")
  13.    
  14.     If 语文 >= 90 And 音乐 >= 80 Or 语文 = 100 And 音乐 >= 70 Then
  15.     MsgBox "奖励100元"
  16.    
  17.     End If


  18. End Sub


  19. Sub homework3()
  20.     Dim a As Long, b As Long
  21.     a = InputBox("请输入a的值")
  22.     b = InputBox("请输入b的值")
  23.     If a Mod b = 0 Or a + b > 100 Then
  24.     MsgBox a
  25.     Else
  26.     MsgBox b
  27.     End If
  28.    
  29. End Sub




  30. Sub homework4()
  31.         Dim 要你猜 As Long, 你猜 As Long
  32.         要你猜 = WorksheetFunction.RandBetween(1, 3)
  33.         你猜 = InputBox("请输入你猜的数")
  34.         If 要你猜 = 你猜 Then
  35.         MsgBox "真棒,猜对了"
  36.         ElseIf 你猜 > 要你猜 Then
  37.         MsgBox "大了大了"
  38.         Else
  39.         MsgBox "小了小了"
  40.         End If
  41.         
  42.         
  43.         
  44. End Sub


  45. Sub homework5()

  46.     Dim 用户名 As String, 密码 As Long
  47.     用户名 = InputBox("输入用户名")
  48.    
  49.     If 用户名 <> "小明" Then
  50.         MsgBox "没有这个用户"
  51.         
  52.         Else: MsgBox "输入密码"
  53.      密码 = InputBox("输入密码")
  54.         If 密码 = 888888 Then
  55.            MsgBox "密码正确,登陆成功"
  56.            Else
  57.            MsgBox "密码错误"
  58.            
  59.     End If
  60.     End If
  61.    
  62.    
  63.    

  64.    
  65.    
  66.    
  67.    

  68. End Sub
复制代码

点评

代码缩进  发表于 2018-3-20 11:49
回复 支持 反对

使用道具 举报

发表于 2018-3-13 10:03:21 | 显示全部楼层
  1. Sub 作业1()
  2.     Dim 生日 As Date, 天数 As Long
  3.     生日 = CDate(InputBox("请输入您的生日:"))
  4.     MsgBox "自你出生以来现在已经过了" & Date - 生日 & "天了"
  5. End Sub

  6. Sub 作业2()
  7.     Dim 语文 As Double, 音乐 As Double
  8.     语文 = WorksheetFunction.RandBetween(1, 100)
  9.     音乐 = WorksheetFunction.RandBetween(1, 100)
  10.     If 语文 > 90 And 音乐 > 80 Then
  11.         MsgBox "奖励100元"
  12.         ElseIf 语文 = 100 And 音乐 > 70 Then
  13.         MsgBox "奖励100元"
  14.     Else
  15.         MsgBox 语文 & 音乐
  16.     End If
  17.       
  18. End Sub

  19. Sub 作业3()
  20.     Dim a  As Double, b As Double
  21.     a = InputBox("first num")
  22.     b = InputBox("second num")
  23.     If a Mod b = 0 Or a + b > 100 Then
  24.        MsgBox a
  25.     Else
  26.         MsgBox b
  27.     End If
  28. End Sub

  29. Sub 猜数游戏雏形()
  30.     Dim 要你猜 As Long, 你猜 As Long
  31.     要你猜 = WorksheetFunction.RandBetween(1, 3)
  32.     你猜 = InputBox("我猜:")
  33.     Do While 你猜 <> 要你猜
  34.         If 你猜 > 要你猜 Then
  35.             MsgBox "大了"
  36.             你猜 = InputBox("我再猜:")
  37.         Else
  38.             MsgBox "小了"
  39.             你猜 = InputBox("我再猜:")
  40.         End If
  41.     Loop
  42.     MsgBox "太棒了"
  43.               
  44.    
  45. End Sub

  46. Sub 作业5()
  47.     Dim 用户名 As String, 密码 As Long
  48.     用户名 = InputBox("用户名")
  49.     密码 = Val(InputBox("密码"))
  50.     If 用户名 <> "小明" Then
  51.         MsgBox "没有这个用户"
  52.     ElseIf 密码 <> 888888 Then
  53.         MsgBox "密码错误"
  54.     Else
  55.         MsgBox "密码正确,登陆成功"
  56.     End If
  57.      
  58.      
  59. End Sub
复制代码
回复 支持 反对

使用道具 举报

发表于 2018-3-13 10:08:51 | 显示全部楼层
  1. '定义一个日期型变量作为你的生日
  2. '用inputbox 语句输入你的生日(不考虑不合规的输入)
  3. '老师用内置强制转换数据类型函数帮你把合规的生日输出转换成为日期型
  4. '输出,自你出生以来到现在已经过了多少天了
  5. 'Cdate(参数)-->转成日期时间型



  6. Sub 作业1计算自出生以来已经过了多少天()
  7.     Dim bd As Date, days As Long
  8.     bd = CDate(InputBox("输入正确生日"))
  9.     days = Date - bd
  10.     MsgBox "出生以来已经过了" & days


  11.    
  12. End Sub

  13. '要求你用单分支单语句结构解答下面作业:
  14. '作业2: 张三的语文成绩大于等于90分并且音乐成绩大于等于80分
  15. '或者  语文等于100 分, 音乐大于等于70 分 则奖励 100 元。

  16. Sub 成绩奖励100块钱()
  17.     Dim yw As Long, yy As Long
  18.     yw = 90
  19.     yy = 80
  20.     If ((yw >= 90 And yy >= 80) Or (yw = 100 And yy >= 70)) Then
  21.     MsgBox "奖励100块钱"
  22.     End If


  23. End Sub


  24. ' 作业3: 已知两个数,如果a 能被b 整除 或者 a+b >100 就输出 a 否则就输出 b
  25. 'a mod b= 0

  26. '作业4:多分支题目
  27. '猜数游戏的雏形

  28. Sub 猜数游戏()
  29.     Dim a As Long, b As Long
  30.     a = 1
  31.     b = 10
  32.     If a Mod b = 0 Or a + b > 100 Then
  33.         MsgBox a
  34.     Else
  35.         MsgBox b
  36.     End If



  37. End Sub



  38. Sub 猜数游戏雏形()
  39.     Dim 要你猜 As Long, 你猜 As Long
  40.     要你猜 = WorksheetFunction.RandBetween(1, 3)
  41.     '用inputbox 输入你猜的数
  42.     '如果你猜对了,你就输出,真棒,猜对了。
  43.     '如果你猜错了,你猜的数和要你猜的大小关系,如果你猜的大了,你要输出
  44.     '大了,大了
  45.     '否则,就输出,小了,小了。
  46.     你猜 = InputBox("输入你猜的数字")
  47.     If 你猜 = 要你猜 Then
  48.         MsgBox "猜对了"
  49.     ElseIf 你猜 > 要你猜 Then
  50.         MsgBox "大了"
  51.     Else
  52.         MsgBox "小了"
  53.     End If
  54.    
  55. End Sub

  56. '作业5:模拟登录系统
  57. '提示输入一个用户名,如果用户名是"小明" 就提示用户输入密码
  58. '如果用户输入的密码是"888888" 就提示密码正确,登录成功。
  59. '否则就输出:密码错误。
  60. '如果不是"小明" 就提示"没有这个用户"

  61. Sub 模拟登录系统()
  62.     Dim user As String, password As Long
  63.     user = InputBox("type in user name")
  64.     If user <> "小明" Then
  65.         MsgBox "没有这个用户"
  66.     Else
  67.         If Val(InputBox("输入密码")) = 888888 Then
  68.             MsgBox "密码正确"
  69.         Else
  70.             MsgBox "密码错误"
  71.         End If
  72.     End If
  73.         



  74. End Sub
复制代码
回复 支持 反对

使用道具 举报

发表于 2018-3-13 13:07:59 | 显示全部楼层
第四课
  1. Option Explicit

  2. Sub 作业1()
  3.     Dim birthday As Date
  4.     Dim day As Integer
  5.     birthday = CDate(InputBox("请输入你的生日"))
  6.     day = Date - birthday
  7.     MsgBox "自你出生以来到现在已经过了" & day & "天了"
  8. End Sub

  9. Sub 作业2()
  10.     Dim grade1 As Long
  11.     Dim grade2 As Long
  12.     grade1 = InputBox("请输入张三的语文成绩")
  13.     grade2 = InputBox("请输入张三的音乐成绩")
  14.     If (grade1 >= 90 And grade2 >= 80) Or (grade1 = 100 And grade2 >= 70) Then MsgBox "奖励100元"
  15. End Sub

  16. Sub 作业3()
  17.     Dim a As Long
  18.     Dim b As Long
  19.     a = InputBox("输入a")
  20.     b = InputBox("输入b")
  21.     If (a Mod b = 0) Or (a + b > 100) Then
  22.         MsgBox a
  23.     Else
  24.         MsgBox b
  25.     End If
  26. End Sub

  27. Sub 作业4()
  28.     Dim 要你猜 As Long, 你猜 As Long
  29.     要你猜 = WorksheetFunction.RandBetween(1, 3)
  30.     你猜 = InputBox("输入一个你猜的数")
  31.     If 你猜 = 要你猜 Then
  32.         MsgBox ("真棒,猜对了")
  33.     Else
  34.         If 你猜 < 要你猜 Then
  35.             MsgBox ("小了,小了")
  36.         Else
  37.             MsgBox ("大了,大了")
  38.         End If
  39.     End If
  40. End Sub

  41. Sub 作业5()
  42.     Dim name As String
  43.     Dim pw As Long
  44.     name = InputBox("请输入用户名")
  45.         If name <> "小明" Then
  46.             MsgBox "没有这个用户"
  47.         Else
  48.             pw = InputBox("请输入密码")
  49.             If pw = 888888 Then
  50.                 MsgBox "密码正确,登录成功"
  51.             Else
  52.                 MsgBox "密码错误"
  53.             End If
  54.         End If
  55. End Sub
复制代码
回复 支持 反对

使用道具 举报

发表于 2018-3-13 15:23:04 | 显示全部楼层
  1. Option Explicit

  2. '定义一个日期型变量作为你的生日
  3. '用inputbox 语句输入你的生日(不考虑不合规的输入)
  4. '老师用内置强制转换数据类型函数帮你把合规的生日输出转换成为日期型
  5. '输出,自你出生以来到现在已经过了多少天了
  6. 'Cdate(参数)-->转成日期时间型
  7. Sub 作业1()
  8.    
  9.     Dim 生日 As Date, 天数 As Long
  10.     生日 = CDate(InputBox("请输入您的生日:"))
  11.     天数 = Date - 生日
  12.     MsgBox "自你出生以来到现在已经过了" & 天数 & "天了"
  13.    
  14. End Sub

  15. '要求你用单分支单语句结构解答下面作业:
  16. '作业2: 张三的语文成绩大于等于90分并且音乐成绩大于等于80分
  17. '或者  语文等于100 分, 音乐大于等于70 分 则奖励 100 元。

  18. Sub 作业2()
  19.    
  20.     Dim chinese As Integer, music As Integer
  21.     chinese = InputBox("语文成绩是:")
  22.     music = InputBox("音乐成绩是:")
  23.     If (chinese >= 90 And music >= 80) Or (chinese = 100 And music >= 70) Then MsgBox "奖励100元"
  24.    
  25.    
  26. End Sub

  27. ' 作业3: 已知两个数,如果a 能被b 整除 或者 a+b >100 就输出 a 否则就输出 b
  28. 'a mod b= 0

  29. Sub 作业3()

  30.     Dim a As Long, b As Long
  31.     a = 55
  32.     b = 2
  33.     If a Mod b = 0 Or a + b > 100 Then
  34.         MsgBox a
  35.     Else
  36.         MsgBox b
  37.     End If
  38.    
  39. End Sub

  40. '作业4:多分支题目
  41. '猜数游戏的雏形

  42. Sub 猜数游戏雏形()
  43.    
  44.     Dim 要你猜 As Long, 你猜 As Long
  45.     要你猜 = WorksheetFunction.RandBetween(1, 3)
  46.     '用inputbox 输入你猜的数
  47.     你猜 = InputBox("输入你猜的数")
  48.     If 要你猜 = 你猜 Then
  49.      '如果你猜对了,你就输出,真棒,猜对了。
  50.         MsgBox "真棒,猜对了"
  51.     '如果你猜错了,你猜的数和要你猜的大小关系,如果你猜的大了,你要输出大了,大了
  52.     ElseIf 要你猜 < 你猜 Then
  53.         MsgBox "大了,大了"
  54.      '否则,就输出,小了,小了。
  55.     Else
  56.         MsgBox "小了,小了"
  57.     End If
  58.          
  59. End Sub

  60. '作业5:模拟登录系统

  61. Sub 作业5()

  62.     Dim user As String, password As String
  63.     '提示输入一个用户名,如果用户名是"小明" 就提示用户输入密码
  64.     user = InputBox("用户名:")
  65.     If user = "小明" Then
  66.         password = InputBox("密码:")
  67.         '如果用户输入的密码是"888888" 就提示密码正确,登录成功。
  68.         If password = "888888" Then
  69.             MsgBox "密码正确,登陆成功"
  70.         '否则就输出:密码错误。
  71.         Else
  72.             MsgBox "密码错误"
  73.         End If
  74.     '如果不是"小明" 就提示"没有这个用户"
  75.     Else
  76.         MsgBox "没有这个用户"
  77.     End If
  78.    

  79. End Sub
复制代码
回复 支持 反对

使用道具 举报

发表于 2018-3-13 17:05:22 | 显示全部楼层
Sub homework1()
  Dim birthday As Date, day As Long
  
  birthday = CDate(InputBox("please input your birthday"))
  
  day = #3/13/2018# - birthday
  
  
  MsgBox "自你出生以来到现在已经过了" & day & "天了"
  
  
  End Sub
  
  
  Sub homework2()
   Dim score1 As Long, score2 As Long
   
   score1 = 95
   score2 = 88
   
   If (score1 >= 90 And score2 >= 80) Or (score1 = 100 And score2 >= 70) Then
        MsgBox "奖励100元"
        
        End If
        
    End Sub
   
   
    Sub homework3()
    Dim a As Long, b As Long
   
    a = 96
    b = 48
   
    If a Mod b = 0 Or a + b > 100 Then
        MsgBox a
        
        Else
        MsgBox b
        
        End If
        
    End Sub
   
  Sub 猜数游戏雏形()
    Dim 要你猜 As Long, 你猜 As Long
   
    要你猜 = WorksheetFunction.RandBetween(1, 3)
    你猜 = InputBox("请猜一个数")
   
    If 要你猜 = 你猜 Then
        MsgBox "真棒,猜对了"
        
       ElseIf 要你猜 < 你猜 Then
        MsgBox "大了,大了"
        
        Else
        MsgBox "小了,小了"
        
    End If
      
End Sub

Sub 模拟登录系统()

Dim username As String, password As Long

username = InputBox("please enter your user name")

If username = "小明" Then

password = InputBox("please enter your password")

  If password = 888888 Then
  MsgBox "登陆成功"
  
  Else
  MsgBox "密码错误"
  End If
  
Else

MsgBox "没有这个用户"
End If

  End Sub
回复 支持 反对

使用道具 举报

发表于 2018-3-13 17:51:57 | 显示全部楼层
本帖最后由 zf5345 于 2018-3-13 23:40 编辑

'定义一个日期型变量作为你的生日
'用inputbox 语句输入你的生日(不考虑不合规的输入)
'老师用内置强制转换数据类型函数帮你把合规的生日输出转换成为日期型
'输出,自你出生以来到现在已经过了多少天了
'Cdate(参数)-->转成日期时间型
Sub 作业1()
    Dim 生日 As Date, 天数 As Long
    生日 = CDate(InputBox("请输入您的生日:(输入格式示例:1988-1-31)"))
    天数 = Date - 生日
    MsgBox ("你出生以来到现在已经过了" & 天数 & "天")
End Sub

'要求你用单分支单语句结构解答下面作业:
'作业2: 张三的语文成绩大于等于90分并且音乐成绩大于等于80分
'或者  语文等于100 分, 音乐大于等于70 分 则奖励 100 元。

Sub 作业2()
Dim 语文成绩 As Long, 音乐成绩 As Long, 条件判断 As Boolean
语文成绩 = InputBox("请输入张三同学的语文成绩:")
音乐成绩 = InputBox("请输入张三同学的英语成绩:")
条件判断 = (语文成绩 >= 90 And 音乐成绩 >= 80) Or (语文成绩 = 100 And 音乐成绩 >= 70)
MsgBox (IIf(条件判断 = True, "张三同学的语文成绩和音乐成绩达标,奖励100元!", "张三同学的语文成绩和音乐成绩不达标不能奖励!"))
End Sub



' 作业3: 已知两个数,如果a 能被b 整除 或者 a+b >100 就输出 a 否则就输出 b
'a mod b= 0
Sub 作业3()
Dim a As Double, b As Double
    If a Mod b = 0 Or a + b > 100 Then
    MsgBox a
    Else
    MsgBox b
    End If
End Sub


'作业4:多分支题目
'猜数游戏的雏形
Sub 猜数游戏雏形()
    Dim 要你猜 As Long, 你猜 As Long
    要你猜 = WorksheetFunction.RandBetween(1, 3)

   '用inputbox 输入你猜的数
    你猜 = InputBox("请输入你要猜的数字(从1到3的数字):")
        '如果你猜对了,你就输出,真棒,猜对了。
        If 你猜 = 要你猜 Then
        MsgBox ("真棒,猜对了")

       '如果你猜错了,你猜的数和要你猜的大小关系,如果你猜的大了,你要输出
        ElseIf 你猜 > 要你猜 Then
        MsgBox ("猜不对:大了,大了")

        '大了,大了
        '否则,就输出,小了,小了。
        Else
        MsgBox ("猜不对:小了,小了!")
        End If
End Sub


'作业5:模拟登录系统
'提示输入一个用户名,如果用户名是"小明" 就提示用户输入密码
'如果用户输入的密码是"888888" 就提示密码正确,登录成功。
'否则就输出:密码错误。
'如果不是"小明" 就提示"没有这个用户"
Sub 作业5()
Dim 用户名 As String, 密码 As Long
用户名 = InputBox("请输入用户名:")
    If 用户名 = "小明" Then

       密码 = Val(InputBox("请输入密码:"))  '用VAL转换成数字,如果录入非数字,自动结果为0而且不报错!
           If 密码 = 888888 Then
               MsgBox ("密码正确,登录成功!")
            Else
                MsgBox ("密码错误!再见!")
            End If
    Else
        MsgBox ("用户名错误!")
    End If
End Sub

点评

注意看一下共享我上传的视频 你这样交作业编辑起来多累啊  发表于 2018-3-14 22:10
回复 支持 反对

使用道具 举报

发表于 2018-3-13 20:23:25 | 显示全部楼层
Sub 生日天数()
Dim 生日 As Date, 天数 As Long

生日 = CDate(InputBox("请输入您的生日:"))

天数 = Date - 生日

MsgBox "您的出生天数已经有" & 天数

End Sub

Sub fenshu()

Dim 语文 As Long, 音乐 As Long
    语文 = 95
    音乐 = 90
    If ((语文 >= 90 And 音乐 >= 80) Or (语文 = 100 And 音乐 >= 70)) Then MsgBox "奖励100"

End Sub

Sub AB()

Dim a As Long, b As Long

a = 62
b = 30

If ((a Mod b = 0) Or (a + b > 100)) Then

MsgBox a

Else

MsgBox b

End If

End Sub

Sub 猜数游戏()

Dim 要你猜 As Long, 你猜 As Long
    要你猜 = WorksheetFunction.RandBetween(1, 3)
    InputBox ("请输入您的数字")

If 要你猜 = 你猜 Then

MsgBox "真棒,对了"

ElseIf 要你猜 < 你猜 Then

MsgBox "大了"

Else

MsgBox "小了"

End If


End Sub
回复 支持 反对

使用道具 举报

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

本版积分规则

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