題目：計算輸入的年份是否為閏年，閏年的條件為：
１.可被1000，400，4整除。 ２.不可被100整除
我要讓Label1顯現是否為閏年 Text1 輸入年份
我這邊哪邊錯了
Private Sub Command1_Click()
Dim a As Integer
Label1.Caption = Text1.Text
Text1.Text = a
Text1.Text = ""
End Sub
Private Sub Label1_Click()
If a Mod 1000 Or 400 Or 4 Then
Label1.Caption = Text1.Text + 年是閏年
Else
Label1.Caption = Text1.Text + 年不是閏年
End If
End Sub
2006-09-27 16:08:00 · 4 個解答 · 發問者 古董 1 in 電腦與網際網路 ➔ 程式設計
目前至少發現:Dim a As Integer放到最上面...(不然其它程序不認得 a )另外；你的:"可被1000，400，4整除"似乎不大對...如2004年是潤年，但不能被1000及400整除，你寫的意思感覺好像是3個都得整除才行!!!回歸正題...要判斷是不是潤年只要:Private Sub Command1_Click() Label1.Caption = Text1.Text & "年" & IIf(IsDate(Text1.Text & "/2/29"), "", "不") & "是閏年"End Sub
2006-09-27 20:19:33 · answer #1 · answered by ? 7 · 0⤊ 0⤋
參考一下區區(武俠小說看太多)之前拋磚引玉出的問題:計算當月的最後一天這一題有許多好朋友都參與(可惜戊大當時還沒來到知識+,有點遺憾XD),稍微變通一下就可得知是否為閏年了.
2006-09-27 23:10:04 · answer #2 · answered by W.J.S. 7 · 0⤊ 0⤋
這樣改還是怪怪的耶
2006-09-27 17:47:40 · answer #3 · answered by 古董 1 · 0⤊ 0⤋
改成:
Label1.Caption = Text1.Text & "年是閏年"
Else
Label1.Caption = Text1.Text & "年不是閏年"
還有這行刪掉
Text1.Text = ""
你的a是多少?
2006-09-27 21:43:13 補充：
判斷式改一下:
If (a Mod 1000 Or 400 Or 4 )=0 Then
2006-09-27 22:14:07 補充：
哪裡怪,全部提出來,可以的話用及時通交談
2006-09-27 17:32:45 · answer #4 · answered by 胖胖的阿胖 3 · 0⤊ 0⤋