Public Class Form1
Public n As String

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim y, m, d As Integer
Dim flag As Boolean
y = CInt(TextBox1.Text)
m = CInt(TextBox2.Text)
If (y Mod 4 = 0 And y Mod 100 <> 0) Or (y Mod 400 = 0) Then
flag = True
Else
flag = False
End If
Select Case m
Case CInt(m >= 3 And m <= 5)
n = "春季"
Case CInt(m >= 6 And m <= 8)
n = "夏季"
Case CInt(m >= 9 And m <= 11)
n = "秋季"
Case CInt(m = 12 Or m = 1 Or m = 2)
n = "冬季"
End Select
Select Case m = 2
Case m Mod 2 = 0
d = 30
Case Else
d = 31
End Select
Label3.Text = CStr(y) & "年" & "闰年" & Chr(100) & _
CStr(m) & "月有" & CStr(d) & "天" & ",在" & n

End Sub
End Class

各位,小女子刚开始学习编程,还望大家多多帮忙啊!

Case CInt(m == 12 Or m == 1 Or m == 2)

Dim y, m As Integer
Dim result As String
Dim result2 As String = ""
Dim result3 As String = ""
y = Val(TextBox1.Text)
m = Val(TextBox2.Text)
If y Mod 400 = 0 Or (y Mod 4 = 0 And y Mod 100 <> 0) Then
result = "润年"
Else
result = "平年"

End If
Select Case m
Case 1, 3, 5, 7, 8, 10, 12
result3 = "31天"
Case 4, 6, 9, 11
result3 = "30天"
Case Else
If m = 2 And result = "润年" Then
result3 = "29天"
Else
result3 = "28天"
End If

End Select

Select Case m
Case 3, 4, 5
result2 = "春季"
Case 6, 7, 8
result2 = "夏季"
Case 9, 10, 11
result2 = "秋季"
Case 12, 1, 2
result2 = "冬季"
End Select

Label3.Text = Str(y) & "年是" & result & m & "月有" & result3 & "现在是" & result2



你的变量n没有声明
select case 语句，不能用逻辑运算符
chr(100)不知道要实现什么功能

bygg
这是vb程序.呵呵.

abble
Select Case m = 2
Case m Mod 2 = 0
d = 30
Case Else
d = 31
End Select
m=2成立了,m Mod 2 = 0不是一定成立吗?
再看一看程序吧.

呵呵,不好意思.糊涂了.
4楼那样比较好,因为是数字型嘛

chr(100),輸出字符d,沒什么作用！我想。4樓的方法已經很好 了！！
建議樓主多看看vb.net的基礎書！因為很多情況下，別人能給你思路就很不錯了！！！

[此贴子已经被作者于2007-11-12 16:59:18编辑过]