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

零基础13期-第三课作业

[复制链接]
发表于 2018-3-9 23:22:13 | 显示全部楼层
本帖最后由 zf5345 于 2018-3-12 11:54 编辑

'作业1
'输入一个年份,判断这个年份是否是2000年(包含)及之后的闰年, 用inputbox 输入,不考虑错误输入
'定义一个变量用long类型
'dim 年份 as long
' 年份 = inputbox()
'闰年的定义:a.年份能够被4整除并且不能被100整除
'                     b. 年份能够被400整除


Sub 闰年()
Dim 年份 As Long
年份 = InputBox("请输入年份")
MsgBox (年份 >= 2000 And 年份 Mod 4 = 0 And 年份 Mod 100 <> 0) Or (年份 Mod 400 = 0)
End Sub



Sub 闰年()
Dim 年份 As Long
年份 = InputBox("请输入需要查询的年份:")
If 年份 >= 2000 Then
MsgBox (年份 Mod 4 = 0 And 年份 Mod 100 <> 0) Or (年份 Mod 400 = 0)
Else
MsgBox "请输入需要查询的年份:“大于或等于2000!”我才帮你查询。"
End If
End Sub

Sub 计算闰年()
Dim 年份 As Integer, 输出计算结果 As String
年份 = InputBox("请您输入需要查询年份:")
输出计算结果 = (年份 Mod 4 = 0 And 年份 Mod 100 <> 0) Or (年份 Mod 400 = 0)
    If 输出计算结果 = True Then
    MsgBox "你要求计算的年份是:" & 年份 & "年,它是闰年!"
    Else
    MsgBox "你要求计算的年份是:" & 年份 & "年,它不是闰年!不是!不是!"
    End If
End Sub





回复 支持 反对

使用道具 举报

发表于 2018-3-10 16:24:49 | 显示全部楼层
Sub 判断年份()

    Dim 年份 As Long
   
    年份 = InputBox("请输入年份")
   
    MsgBox 年份 >= 2000 And (年份 Mod 4 = 0 And 年份 Mod 100 <> 0) Or 年份 Mod 400 = 0
   

End Sub

回复 支持 反对

使用道具 举报

发表于 2018-3-11 08:15:39 | 显示全部楼层
  1. Sub 判断是否为闰年()
  2.    Dim 年份 As Long

  3.    年份 = InputBox("请输入年份")
  4.    MsgBox ((年份 Mod 4 = 0 And 年份 Mod 100 <> 0) Or (年份 Mod 400 = 0)) And (年份 >= 2000)
  5.    
  6.    
  7. End Sub
复制代码
回复 支持 反对

使用道具 举报

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

使用道具 举报

发表于 2018-3-11 12:03:46 | 显示全部楼层
  1. Sub 是否是闰年()

  2.    Dim 年份 As Long
  3.    
  4.     年份 = InputBox("请输入您要查找的年份是否是包含2000年之后的闰年")
  5.      
  6.       
  7.    
  8.     MsgBox (年份 >= 2000 And (年份 Mod 4 = 0) And (年份 Mod 100 <> 0)) Or (年份 >= 2000 And (年份 Mod 400 = 0))
  9.    

  10.    
  11.    
  12.    
  13. End Sub
复制代码
回复 支持 反对

使用道具 举报

发表于 2018-3-11 12:15:41 | 显示全部楼层

Sub homework()
Dim y As Long
   
    y = InputBox("Please enter a year")
   
    MsgBox (y >= 2000) And ((y Mod 4 = 0) And (y Mod 100 <> 0) Or (y Mod 400 = 0))
   
End Sub
回复 支持 反对

使用道具 举报

发表于 2018-3-11 19:27:03 | 显示全部楼层
Sub 判断一个2000年及以后年份是否是闰年()
   
    Dim 年份 As Long
   
    年份 = InputBox("请输入年份")
   
    MsgBox (年份 Mod 4 = 0 And 年份 Mod 100 <> 0) Or (年份 Mod 400 = 0)
   
End Sub
回复 支持 反对

使用道具 举报

发表于 2018-3-11 20:19:51 | 显示全部楼层
  1. Sub 闰年()

  2.     Dim year As Long, 闰年 As Boolean
  3.     year = InputBox("请输入年份:")
  4.     闰年 = ((year Mod 4 = 0) And (year Mod 100 <> 0)) Or (year Mod 400 = 0)
  5.     MsgBox (((year Mod 4 = 0) And (year Mod 100 <> 0)) Or (year Mod 400 = 0)) And (year >= 2000)
  6.     '判断语句详细说明
  7.     If (year >= 2000) And (闰年 = True) Then
  8.         MsgBox "年份是2000年(包含)及之后的闰年"
  9.     ElseIf (year < 2000) And (闰年 = True) Then
  10.         MsgBox "年份是2000年前的闰年"
  11.     Else
  12.         MsgBox "年份不是闰年"
  13.     End If
  14.    
  15. End Sub
复制代码
回复 支持 反对

使用道具 举报

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

使用道具 举报

发表于 2018-3-11 21:02:53 | 显示全部楼层
Sub 判断闰年()
    Dim 年份 As Long, 闰年 As Boolean
    年份 = InputBox("请输入年份")
    闰年 = 年份 Mod 4 = 0 And 年份 Mod 100 <> 0 Or 年份 Mod 400 = 0 And 年份 >= 2000
    MsgBox 闰年
   
End Sub
回复 支持 反对

使用道具 举报

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

本版积分规则

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