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...