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

零基础13期-第三课作业

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

交作业之前先看群文件作业提交说明及本版置顶帖
使用代码形式上交作业
回复

使用道具 举报

发表于 2018-3-9 22:14:05 | 显示全部楼层
  1. Sub 判断一个2000年及以后年份是否是闰年()
  2.    
  3.     Dim 年份 As Long
  4.     年份 = InputBox("请输入年份")
  5.     MsgBox (年份 Mod 4 = 0 And 年份 Mod 100 <> 0) Or (年份 Mod 400 = 0) And (年份 >= 2000)
  6.    
  7. End Sub
复制代码
回复 支持 反对

使用道具 举报

发表于 2018-3-9 22:15:03 | 显示全部楼层
本帖最后由 door19 于 2018-3-9 22:39 编辑
  1. Sub judgement()
  2.     Dim year As Long
  3.     year = InputBox("请输入要判断的年份")
  4.     MsgBox (year >= 2000) And ((year Mod 4 = 0 And year Mod 100 <> 0) Or (year Mod 400 = 0))
  5.    
  6. End Sub
复制代码
回复 支持 反对

使用道具 举报

发表于 2018-3-9 22:16:22 | 显示全部楼层

  1. Sub 判断闰年()
  2.     Dim year As Long
  3.     year = inputbox("今年是哪一年")
  4.     MsgBox year >= 2000 And ((year Mod 4 = 0 And year Mod 100 <> 0) Or year Mod 400 = 0)
  5.    
  6. End Sub
  7.    
复制代码
回复 支持 反对

使用道具 举报

发表于 2018-3-9 22:18:23 | 显示全部楼层

  1. Sub VBA13期3课时作业1()
  2.     Dim 年份 As Long
  3.     年份 = InputBox("请输入年份:")
  4.     Do While 年份 <= 2000
  5.         MsgBox "请输入大于2000年的年份"
  6.         年份 = InputBox("请输入年份:")
  7.     Loop
  8.     If 年份 Mod 4 <> 0 Then
  9.         MsgBox "输入的年份不是闰年"
  10.     Else
  11.         MsgBox "输入的年份是闰年"
  12.     End If
  13.    
  14. End Sub
复制代码
回复 支持 反对

使用道具 举报

发表于 2018-3-9 22:28:12 | 显示全部楼层
第三课作业
  1. Option Explicit

  2. Sub 作业1()
  3.     Dim year As Long
  4.         year = InputBox("请输入一个年份")
  5.         MsgBox ((year >= 2000) And ((year Mod 4 = 0 And year Mod 100 <> 0) Or (year Mod 400 = 0)))
  6.             
  7. End Sub
复制代码
回复 支持 反对

使用道具 举报

发表于 2018-3-9 22:29:48 | 显示全部楼层
  1. Sub 计算闰年()
  2.     Dim 年份 As Long
  3.     年份 = InputBox("请输入年份")
  4.     MsgBox (年份 >= 2000) And ((年份 Mod 4 = 0 And 年份 Mod 100 <> 0) Or (年份 Mod 400 = 0))
  5. End Sub
复制代码
回复 支持 反对

使用道具 举报

发表于 2018-3-9 22:34:03 | 显示全部楼层
  1. Sub 判断是不是2000年及其之后的闰年()

  2.     Dim 年份 As Long
  3.    
  4.     年份 = InputBox("请输入年份")
  5.    
  6.     MsgBox ((年份 Mod 4 = 0 And 年份 Mod 100 <> 0) Or (年份 Mod 400 = 0)) And (年份 / 2000 >= 1) '在满足闰年基础上判断是不是2000年及其之后的年份

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

使用道具 举报

发表于 2018-3-9 22:45:15 | 显示全部楼层
本帖最后由 叶舞冷清秋 于 2018-3-15 06:02 编辑
  1. '第三课作业

  2. Sub 三课()
  3.     Dim 年 As Long
  4.     年 = InputBox("请输入年份")
  5.     MsgBox (年 >= 2000) And (((年 Mod 4 = 0) And (年 Mod 100 <> 0)) Or (年 Mod 400 = 0))
  6. End Sub
  7. Sub 输入练习()
  8.     Dim 省市 As String
  9.     省市 = InputBox("请输入地址")
  10.     MsgBox "欢迎胡说老师到" & 省市 & "旅游"
  11. End Sub

  12. Sub old1()
  13.      Dim name1 As String, name2 As String, name3 As String, old1 As Integer, old2 As Integer, old3 As Integer, av As Double
  14.     name1 = "王晓红"
  15.     name2 = "周俊丽"
  16.     name3 = "吴三胖"
  17.     old1 = 11
  18.     old2 = 14
  19.     old3 = 13
  20.     av = Round((old1 + old2 + old3) / 3, 2)
  21.     MsgBox name1 & "的年龄是" & old1 & "," & name2 & "的年龄是" & old2 & "," & name3 & "的年龄是" & old3
  22.     MsgBox "三人的平均年龄是" & av
  23. End Sub
复制代码

回复 支持 反对

使用道具 举报

发表于 2018-3-9 23:00:35 | 显示全部楼层
Sub 第三课时作业()
   
    Dim 年份 As Long
        
        年份 = InputBox("请输入年份")
        
        MsgBox ((年份 Mod 4 = 0 And 年份 Mod 100 <> 0) Or (年份 Mod 400 = 0)) And (年份 >= 2000)
        
        
End Sub
回复 支持 反对

使用道具 举报

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

本版积分规则

关闭

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

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