本帖最后由 叶舞冷清秋 于 2018-3-15 06:02 编辑
- '第三课作业
- Sub 三课()
- Dim 年 As Long
- 年 = InputBox("请输入年份")
- MsgBox (年 >= 2000) And (((年 Mod 4 = 0) And (年 Mod 100 <> 0)) Or (年 Mod 400 = 0))
- End Sub
- Sub 输入练习()
- Dim 省市 As String
- 省市 = InputBox("请输入地址")
- MsgBox "欢迎胡说老师到" & 省市 & "旅游"
- End Sub
- Sub old1()
- Dim name1 As String, name2 As String, name3 As String, old1 As Integer, old2 As Integer, old3 As Integer, av As Double
- name1 = "王晓红"
- name2 = "周俊丽"
- name3 = "吴三胖"
- old1 = 11
- old2 = 14
- old3 = 13
- av = Round((old1 + old2 + old3) / 3, 2)
- MsgBox name1 & "的年龄是" & old1 & "," & name2 & "的年龄是" & old2 & "," & name3 & "的年龄是" & old3
- MsgBox "三人的平均年龄是" & av
- End Sub
复制代码
|