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

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

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

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

使用道具 举报

发表于 2017-11-24 22:22:06 | 显示全部楼层
本帖最后由 huwenjun727 于 2017-11-27 10:53 编辑
  1. 作业1
  2. Sub leapyear()
  3.     Dim year As Long
  4.     year = inputbox("请输入年份")
  5.     MsgBox (year Mod 4 = 0 And year Mod 100 <> 0) Or (year Mod 400 = 0)
  6.   End Sub

  7. 作业2
  8. Sub day()
  9.     Dim 生日 As Date, 天数 As Long
  10.     生日 = CDate(inputbox("请输入你的生日"))
  11.     天数 = Date - 生日
  12.     MsgBox "自从您出世以来已经过了" & 天数 & "天了."
  13. End Sub
复制代码

点评

不错  发表于 2017-11-30 09:16
回复 支持 反对

使用道具 举报

发表于 2017-11-24 22:29:46 | 显示全部楼层
本帖最后由 salvatore 于 2017-11-27 22:42 编辑
  1. Sub Leapyear()
  2. Dim Year As long
  3. Year = InputBox("请输入需要判断闰年的年份")
  4. MsgBox (Year Mod 4 = 0 And Year Mod 100 <> 0) Or (Year Mod 400 = 0)
  5. End Sub
复制代码

  1. Sub lifedays()
  2. Dim Birthday As Date, Days As Long
  3. Birthday = CDate(InputBox("请输入您的生日"))
  4. Days = Date - Birthday
  5. MsgBox "自从您出世以来已经过了" & Days & "天了。"
  6. End Sub
复制代码

点评

不错  发表于 2017-11-30 09:17
回复 支持 反对

使用道具 举报

发表于 2017-11-24 22:57:21 | 显示全部楼层
写完作业,睡觉


  1. Option Explicit

  2. '作业1
  3. '输入一个年份,算出这个年份是否闰年, 用inputbox 输入,不考虑错误输入

  4. '闰年的定义:a.年份能够被4整除并且不能被100整除
  5. '           b. 年份能够被400整除


  6. Sub zuoye1()

  7.     Dim year As Integer
  8.    
  9.     year = InputBox("Please input a year")
  10.    
  11.     MsgBox (year Mod 4 = 0 And year Mod 100 <> 0) Or (year Mod 400 = 0)



  12. End Sub




  13. '作业2 定义一个日期型变量为你的生日,用inputbox 语句输入生日
  14. '已经提示了做法,要求输出你出生之后已经生活了多少天了
  15. '要下面的结果,在作业2 后面完成
  16. ' "自从您出世以来已经过了 xxx 天了。"
  17. 'Bif Cate 强制将输入的值转换成为日期时间型

  18. Sub 作业2()
  19.     Dim 生日, 今天 As Date, 天数 As Long
  20.     生日 = CDate(InputBox("请输入你的生日"))
  21.     今天 = Date
  22.    
  23.     天数 = CLng(今天) - CLng(生日)
  24.    
  25.    
  26.     MsgBox "自从您出世以来已经过了已经过了" & 天数 & "天了。"
  27.    
  28.    
  29.    
  30. End Sub

复制代码

点评

日期可以直接相减  发表于 2017-11-30 11:22
回复 支持 反对

使用道具 举报

发表于 2017-11-24 23:24:18 | 显示全部楼层
本帖最后由 [如果,爱) 于 2017-11-27 23:25 编辑

  1. Sub 作业1()
  2.     Dim years As String
  3.     years = InputBox("输入一个年份:")
  4.     MsgBox (years Mod 4 = 0 And years Mod 100 <> 0) Or (years Mod 400 = 0)
  5. End Sub

  6. Sub 作业2()
  7.     Dim sr As Date, ts As Long
  8.     sr =cdate ( InputBox("请输入你的生日:"))
  9.     ts = Date - sr
  10.     MsgBox "你出生之后已经生活了" & ts & " 天了。"
  11. End Sub
复制代码

点评

不错  发表于 2017-11-30 11:23
回复 支持 反对

使用道具 举报

发表于 2017-11-25 08:45:12 | 显示全部楼层
  1. Sub 判断闰年()
  2. Dim a As Long
  3. a = InputBox("请输入年份")
  4. MsgBox ((a Mod 4 = 0) And (a Mod 100 <> 0)) Or (a Mod 400 = 0)
  5. End Sub
复制代码

点评

还少一题 加油  发表于 2017-11-30 11:24
回复 支持 反对

使用道具 举报

发表于 2017-11-25 09:21:55 | 显示全部楼层
本帖最后由 chymmych 于 2017-11-27 20:32 编辑
  1. '闰年的定义:a.年份能够被4整除并且不能被100整除
  2. '           b. 年份能够被400整除

  3. Sub year4()
  4. Dim y As long
  5. y = InputBox("请输入年份")

  6. MsgBox (y Mod 4 = 0 And y Mod 100 <> 0) Or (y Mod 400 = 0)
  7. End Sub
  8. '作业2 定义一个日期型变量为你的生日,用inputbox 语句输入生日
  9. '已经提示了做法,要求输出你出生之后已经生活了多少天了
  10. '要下面的结果,在作业2 后面完成
  11. ' "自从您出世以来已经过了 xxx 天了。"
  12. 'Bif Cate 强制将输入的值转换成为日期时间型
  13. Sub birthday()
  14.     Dim birth As Date, days As Long
  15.     birth = CDate(InputBox("请输入您的生日:"))
  16.     days = date - birth
  17.     MsgBox "自从您出世以来已经过了" & days & "天了。"
  18. End Sub
复制代码

评分

参与人数 1登攀 +1 收起 理由
唐伯狼 + 1 不错 注意缩进

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2017-11-25 10:17:43 | 显示全部楼层
  1. Sub homework1()
  2.     Dim year As Long
  3.     year = InputBox("请输入年份")
  4.     MsgBox (year Mod 4 = 0 And year Mod 100 <> 0) Or year Mod 400 = 0
  5. End Sub
复制代码

评分

参与人数 1登攀 +1 收起 理由
唐伯狼 + 1 还缺一题 加油

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2017-11-25 10:25:47 | 显示全部楼层
本帖最后由 乞力马扎罗梦 于 2017-11-25 10:54 编辑
  1. '====================================================================================
  2. Sub 作业1闰年问题()

  3.     Dim Year As Long
  4.    
  5.         Year = InputBox("请您输入年份:")
  6.         MsgBox (Year Mod 4 = 0) And (Year Mod 100 <> 0) Or (Year Mod 100 = 0)
  7.    
  8. End Sub

  9. '====================================================================================
  10. Sub 作业2生日问题()
  11.    
  12.     Dim 生日 As Date, 天数 As Long, 秒数
  13.         生日 = CDate(InputBox("请输入你的生日(年-月-日):"))
  14.         天数 = Now() - 生日
  15.         秒数 = 天数 * 24 * 60 * 60
  16.    
  17.         MsgBox "你出生之后已经生活了" & 天数 & "天了"
  18.         MsgBox "你出生之后已经生活了" & 秒数 & "秒了"

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

使用道具 举报

发表于 2017-11-25 10:33:35 | 显示全部楼层
  1. Sub 是否是闰年()
  2.     Dim year As Long
  3.     year = InputBox("请输入一个年份")
  4.     MsgBox (year Mod 4 = 0 And year Mod 100 <> 0) Or (year Mod 400 = 0)
  5.    
  6. End Sub

  7. Sub 作业2()
  8.     Dim birthday As Date, days As Long
  9.     birthday = CDate(InputBox("请输入你的生日"))
  10.     days = CLng(#11/25/2017# - birthday)
  11.     MsgBox "自从您出世以来已经过了" & days & "天了"
  12.    
  13. End Sub
复制代码
回复 支持 反对

使用道具 举报

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

本版积分规则

关闭

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

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