会员登录 立即注册

搜索

开启左侧

使用VBA判断平闰年

[复制链接]
etthink 发表于 2018-12-21 08:46:13 | 显示全部楼层 |阅读模式
etthink
2018-12-21 08:46:13 147 0 看全部
示例代码
  1. Sub 判断闰年()
  2. Dim year As Integer '用于保存输入的年份
  3. year = CInt(InputBox("请输入需要判断的年份:", "判断闰年")) '输入年份
  4. If year Mod 4 = 0 And year Mod 100 <> 0 Then
  5.   MsgBox "" & "是一个闰年", vbOKOnly, "判断闰年"
  6. Else
  7.     If year Mod 100 = 0 And year Mod 400 = 0 Then
  8.         MsgBox "" & "是一个闰年", vbOKOnly, "判断闰年"
  9.     Else
  10.         MsgBox "" & "不是一个闰年", vbOKOnly, "判断闰年"
  11.     End If
  12. End If
  13. End Sub
复制代码
如果在PPT中使用控件比如文本框来生成或输入年份,修改为:
  1. Dim year As Integer

  2. Private Sub CommandButton1_Click()
  3. year = Rnd * 1000 + 2000
  4. TextBox1.Text = year
  5. End Sub
  6. Private Sub CommandButton2_Click()
  7. year = Int(TextBox1.Text)
  8. If year Mod 4 = 0 And year Mod 100 <> 0 Then
  9.     MsgBox (TextBox1.Text + "年" + "是闰年")
  10.     Else
  11.     If year Mod 100 = 0 And year Mod 400 = 0 Then
  12.     MsgBox (TextBox1.Text + "年" + "是闰年")
  13.     Else
  14.     MsgBox (TextBox1.Text + "年" + "不是闰年")
  15.     End If
  16. End If

  17. End Sub
复制代码
使用时一定要注意自已添加的控件名和事件名。
源文件下载:

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
欢迎大家多发帖,参与讨论,增进彼此了解。
  • 您可能感兴趣
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则 返回列表

查看:147 | 回复:0

教育技术论坛,教育技术人交流的专业社区,专注于教育技术应用与推广!让更多的人了解教育技术,用好教育技术!
关于我们
社区简介
发展历程
联系我们
社区管理
新手指南
申请版主
申请开店
赞助我们
微信赞助
支付宝赞助

官方微信

手机版

手机APP

站点统计| Archiver| 手机版| 小黑屋| 帮助| 教育技术论坛  
联系电话:13355549901 地址:安徽省淮南市田家庵区朝阳街道 邮箱:sf@etthink.com ICP备案号: ( 皖ICP备10014945号-4 )
Copyright © 2001-2013 Comsenz Inc. All Rights Reserved.   Powered by Discuz! X3.2
快速回复 返回顶部 返回列表

皖公网安备 34040302000242号