零基础13期-第三课作业

唐伯狼

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

poim

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
   

复制代码

door19

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

复制代码

ejijier

1. 
   
2. Sub 判断闰年()
   
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
   
8.    

复制代码

phliji

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

复制代码

wushuijingchun

第三课作业

1. Option Explicit
   
2. 
   
3. Sub 作业1()
   
4.     Dim year As Long
   
5.         year = InputBox("请输入一个年份")
   
6.         MsgBox ((year >= 2000) And ((year Mod 4 = 0 And year Mod 100 <> 0) Or (year Mod 400 = 0)))
   
7.             
   
8. End Sub

复制代码

selfecho

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

复制代码

莫里莫斯

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

复制代码

叶舞冷清秋

1. '第三课作业
   
2. 
   
3. Sub 三课()
   
4.     Dim 年 As Long
   
5.     年 = InputBox("请输入年份")
   
6.     MsgBox (年 >= 2000) And (((年 Mod 4 = 0) And (年 Mod 100 <> 0)) Or (年 Mod 400 = 0))
   
7. End Sub
   
8. Sub 输入练习()
   
9.     Dim 省市 As String
   
10.     省市 = InputBox("请输入地址")
    
11.     MsgBox "欢迎胡说老师到" & 省市 & "旅游"
    
12. End Sub
    
13. 
    
14. Sub old1()
    
15.      Dim name1 As String, name2 As String, name3 As String, old1 As Integer, old2 As Integer, old3 As Integer, av As Double
    
16.     name1 = "王晓红"
    
17.     name2 = "周俊丽"
    
18.     name3 = "吴三胖"
    
19.     old1 = 11
    
20.     old2 = 14
    
21.     old3 = 13
    
22.     av = Round((old1 + old2 + old3) / 3, 2)
    
23.     MsgBox name1 & "的年龄是" & old1 & "," & name2 & "的年龄是" & old2 & "," & name3 & "的年龄是" & old3
    
24.     MsgBox "三人的平均年龄是" & av
    
25. End Sub
    

复制代码

魔幻天空

Sub 第三课时作业()
   
    Dim 年份 As Long
        
        年份 = InputBox("请输入年份")
        
        MsgBox ((年份 Mod 4 = 0 And 年份 Mod 100 <> 0) Or (年份 Mod 400 = 0)) And (年份 >= 2000)
        
        
End Sub