求VB編寫判斷是否閏年同時輸出各月天數的編不好了

2022-03-23 04:01:44 字數 4535 閱讀 9918

1樓:匿名使用者

呵呵這是書上的一道題吧,以前見過。。今天寫個最簡單的··()

/*用到的控制元件:

label,command1,text1,text2,text3

*/private sub command1_click()

dim day as integer: day = 31 '若m無符合條件就31不變

y = val(text1.text)

m = val(text2.text)

if m = 4 or m = 6 or m = 9 or m = 11 then day = 30

if m = 2 then

if y mod 400 = 0 or (y mod 4 = 0 and y mod 100 <> 0) then

day = 29

else

day = 28

end if

end if

text3.text = day

end sub

呵呵好久沒程式設計了,寫的……

也可以加點

if m > 12 or m < 1 or int(m) <> m then text3.text = "月份格式錯誤"等等

2樓:

閏年的定義是被四整除且不是百數年,或者是百數年且可以被400整除,所以應該是:

if (y mod 4 = 0 and y mod 100 <> 0) or (y mod 400 =0) then

閏年處理

else

平年處理

vb程式設計 判斷閏年

vb程式設計題:任意給定一年,判斷該年是否為閏年,並根據給出的月份判斷是什麼季節和該月有多少天。閏年的... 30

3樓:泥凌波

昏暗的一年為基於整數判斷是否是閏年

(mod 4年= 0,mod 100年》 0)或一年mod 400 = 0 _

然後列印一年閏年「 br />其他印刷年「,是不是閏年endif

對於i = 1 100'for週期,1 +2 + ...... .. +100

總和= sum +我下

4樓:匿名使用者

private sub command1_click()dim nian as integer, yue as integer, yuetian as integer

dim jj as string

dim rnain as boolean

5樓:匿名使用者

function longyear(y) as boolean '已知年返回是否潤年

if (y mod 4 = 0 or y mod 400 = 0) and y mod 100 <> 0 then

longyear=true

else

longyear=false

end if

end function

function monthdaycount(y,m) '已知年月返回月天數

select case month

case 4,6,9,11

monthdaycount=30

case 2

monthdaycount=iif(longyear(y)=true,29,28)

case else

monthdaycount=31

end select

end function

function season(m)'已知月返回季節

select case month

case 3,4,5

season="春"

case 6,7,8

season="夏"

case 9,10,11

season="秋"

case else

reason="冬"

end select

end function

使用者用vb編寫程式:輸入年份 和月份,程式能夠判斷其是否是閏年,那個季節,這個月多少天 5

6樓:匿名使用者

我只給出一個判斷是否為閏年的演算法,致於季節,多少天這個問題你可以自己解決了

int leapyear(int year) //判斷某年是否閏年 閏年返回1,平年返回0

c語言程式設計:編寫函式1實現判斷是不是閏年,編寫函式2用於輸出某年某月的天數

7樓:金色潛鳥

c語言程式:

#include

int ry(int y)

int dym(int y, int m);

if (m==2) return (monthday[2]+ry(y));

else return monthday[m];

}int main()

---函式 int ry(int y); 輸入年,閏年返回1,非 閏年返回 0。

函式 int dym(int y, int m); 輸入年月,返回該月天數。

(程式未考慮對輸入資料的合理性作檢查。)

要求 編寫程式,實現:輸入年、月,輸出該年份該月的天數。要用選擇語句

8樓:電子產品第一線

#include

using namespace std;

boolean ifleap(int y)//判斷是否閏年int getdays(int y,int m)//獲得某年某月的天數

return 31;

} void main()

揹著寫的,可能有錯,大概的意思和他們一樣,就是多了個判斷閏年2月份的功能。。。

9樓:好好加加油

#include

int days(int year,int month) /*某一年的某一個月的天數*/

else

printf("you are wrong!");

return(z);

}void main()

用vb編一個程式,要求輸入一個年份,判斷出是否為閏年

10樓:很多很多

1、開啟visual basic軟體(vb軟體),新建工程,在form1窗體黑點區域雙擊進入form1的編輯區域:

2、清空後,就可以編寫**了。這裡在輸入欄中輸入年份,輸入之後點選確定,就會在form1中會顯示出是否閏年。關於閏年的判斷只要滿足能被4整除不能被100整除或者被4和400整除就是達成條件,最後儲存即可:

3、儲存後執行查詢,在form1中輸入一個年份,點選確定即可輸出是否為閏年:

11樓:匿名使用者

private sub command1_click()if text1.text mod 4 = 0 and text1.text mod 100 <> 0 or text1.

text mod 4 = 0 and text1.text mod 400 = 0 then

msgbox text1.text & "是閏年"

else

msgbox text1.text & "不是閏年"

end if

end sub

12樓:匿名使用者

private sub command1_click()dim a%text1=a

if a mod 4 = 0 and a mod 100 <> 0 then

msgbox a & "是閏年"

else

msgbox a & "不是閏年"

end if

end sub

編寫函式實現輸入年月日,輸出該日是該年的第幾天.要求考慮閏年情況,並編寫判斷閏年函式提供呼叫

13樓:

判斷閏年的函式體:

int yearmore(int y)

全程式如下:

#include

int days(int y,int m,int d) ;

if((y%4==0 && y%100!=0) || y%400==0)

mm=1;

else

mm=0;

if(mm==1)

a[3]=29;

for(i=m-1;i>=0;i--)

return d;

}main()

用vb編寫判斷某年是否為閏年的函式過程

14樓:紅山人

private function juge(x%) as string

if x mod 4 = 0 or x mod 400 = 0 then

juge = "閏年"

else

juge = "平年"

end if

end function

vb中,閏年怎麼表示,vb6 0中,閏年判斷 如何表示

閏年是我們生活中再平常不過的事了。不過你知道它是怎麼計算的嗎?閏年公式如下 若公立年可以被 4 整除,則很有可能為公立年,除非.這個公立年可以被 100 整除,但是不可以被 400 整除,就不是閏年 測試程式及模組如下 public function isleapyear yr as integer...

vb中判斷是否為迴文數,急 求 VB判斷迴文數的程式碼

參考 private sub mand1 click text1.text trim text1.text if isnumeric text1.text thenif text1.text strreverse text1.text then msgbox text1.text 是迴文數。else...

判斷所輸入的年份是否為閏年 是閏年的條件 能被4整除但不能被

可先判斷它是否被100整除。然後分情況,如果不被100整除,那麼執行是否能被4整除,進行判斷後輸出。如果被100整除,那麼執行是否能被400整除,判斷並輸出。所以 程式設計如下 private sub command1 click dim year as integer text1.text yea...