| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 684 人关注过本帖
标题:求助找下错误、、、
只看楼主 加入收藏
milanglang
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2010-11-11
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:5 
求助找下错误、、、
任意给一年,判断该年是否为闰年?并根据给出的月份来判断是什么季节和该月有多少天?、、、、新手求助!
代码
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
If (a Mod 4 = 0 And a Mod 100 <> 0) Or (a Mod 400 = 0) Then
Label3.Caption = "闰年"
Else
Label3.Caption = "非闰年"
End If
Select Case b
Case 3 To 5
Label4.Caption = "春季(spring)"
Case 6 To 8
Lable4.Caption = "夏季(summer)"
Case 9 To 11
Label4.Caption = "秋季(autumn)"
Case 12, 1, 2
Label4.Caption = "冬季(winter)"
End Select
Select Case b
Case 1, 3, 5, 7, 8, 10, 12
Label5.Caption = "31天!"
Case 4, 6, 9, 11
Label5.Caption = "30天!"
Case 2
If (a Mod 4 = 0 And a Mod 100 <> 0) Or (a Mod 400 = 0) Then
Label5.Caption = "29天!"
Else
Label5.Caption = "28天!"
End If
End Select
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Label3.Caption = ""
Label4.Caption = ""
Label5.Caption = ""
End Sub
搜索更多相关主题的帖子: spring autumn summer 秋季 
2010-11-11 16:48
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:103
帖 子:4211
专家分:28888
注 册:2009-4-8
收藏
得分:2 
那里出错了?

无知
2010-11-11 23:38
milanglang
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2010-11-11
收藏
得分:0 
,没有错啊?那我的电脑上说错了、、、
2010-11-12 00:53
haiyungood
Rank: 2
等 级:论坛游民
帖 子:83
专家分:98
注 册:2008-7-2
收藏
得分:8 
Lable4.Caption = "夏季(summer)"
“Labele4.caption”写错了,
其他的也没有什么错
2010-11-12 16:12
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:103
帖 子:4211
专家分:28888
注 册:2009-4-8
收藏
得分:10 
LS看得清楚
label

无知
2010-11-12 18:27
笑枫迎雪
Rank: 2
等 级:论坛游民
帖 子:13
专家分:10
注 册:2010-11-29
收藏
得分:0 
看的仔细,厉害,厉害.
2010-11-29 22:04
快速回复:求助找下错误、、、
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.060848 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved