1樓：泥凌波
昏暗的一年為基於整數判斷是否是閏年
（mod 4年= 0，mod 100年》 0）或一年mod 400 = 0 _
然後列印一年閏年「 br />其他印刷年「，是不是閏年endif
對於i = 1 100'for週期，1 +2 + ...... .. +100
總和= sum +我下
2樓：匿名使用者
private sub command1_click()dim nian as integer, yue as integer, yuetian as integer
dim jj as string
dim rnain as boolean
3樓：匿名使用者
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
輸入年份和月份，判斷輸出該年是否是閏年，並根據月份判斷輸出是什麼季節和該月有多少天。
4樓：匿名使用者
#include
int main()
printf("%d 年 %d 月有 %d 天",y,m,day_num); //輸出某年某月天數
return 0;
}輸入示例：
請輸入年和月:2014 2
2014 年不是閏年
2 月是冬季
2014 年 2 月有 28 天
（10） 編寫一個程式，輸入年份和月份，判斷該年是否是閏年，並根據給出的月份判斷是什麼季節和該月。
5樓：墨汁諾
用個判斷就行，年份根據是否是閏年的條件判斷，月份用個switch語句，列出每個月份的天數，注意二月份有兩種可能，所以先判斷年份，再判斷季節月份。
int main()
int year,month;
scanf("%d%d",&year,&month);
if((year%4==0 && year%100!=0) || year%400==0)
printf("閏年");
switch(month)
case 1: printf("春季,31天"); break;
case 2: if((year%4==0 && year%100!=0) || year%400==0)
printf("春季,29天");
else
printf("春季,28天");
break;
case 3:
case 4: printf("夏季,30天"); break;
return 0;
使用者用vb編寫程式：輸入年份 和月份，程式能夠判斷其是否是閏年，那個季節，這個月多少天 5
6樓：匿名使用者
'將以下內容復到記事本中 然後 儲存為 form1.frm
version 5.00
begin vb.form form1
caption = "form1"
clientheight = 4830
clientleft = 60
clienttop = 450
clientwidth = 8325
linktopic = "form1"
scaleheight = 4830
scalewidth = 8325
startupposition = 3 '視窗預設
begin vb.commandbutton command1
caption = "command1"
height = 495
left = 3315
tabindex = 0
top = 1905
width = 1215
endend
attribute vb_name = "form1"
attribute vb_globalnamespace = false
attribute vb_creatable = false
attribute vb_predeclaredid = true
attribute vb_exposed = false
private sub command1_click()
dim y$, m$, s$
y = val(inputbox("請輸入年（四位）", , "1999"))
m = val(inputbox("請輸入月", , "1"))
s = y & "年是 " & iif(datediff("d", cdate(y & "-2-1"), cdate(y & "-3-1")) = 29, "閏年", "平年") & vbcrlf
s = s & y & "年" & m & "月是第 " & mid("一二三四", datediff("d", cdate(y & "-1-1"), cdate(y & "-" & m & "-15")) \ 90 + 1, 1) & " 季度" & vbcrlf
s = s & y & "年" & m & "月有 " & datediff("d", cdate(y & "-" & m & "-1"), cdate(y & "-" & m + 1 & "-1")) & " 天" & vbcrlf
msgbox s
end sub
7樓：匿名使用者
我只給出一個判斷是否為閏年的演算法，致於季節，多少天這個問題你可以自己解決了
int leapyear(int year) //判斷某年是否閏年 閏年返回1，平年返回0
VB程式設計題
五十分太少，十幾道題，太虧了，不做 蒼鬱 你把題分開，一道題一個帖子，就會有很多人幫你做了，都是些很簡單的題 五十分太多，十幾道題，太賺了，我做 1.在文字框text1中輸入一串字元，統計其中字母 不區分大小寫 數字和其他字元的個數。dim i as integer,a as integer,b a...
VB程式設計題，VB程式設計練習題？
1.新建工程 工程1 2.新建一下combobox控制元件 combo1,並將屬性style改為2 3.新建五個label label1，label2，label3,label4，label5 4.新建兩個text文字框 text1,text2 5.新建一個commandbutton按鈕 comma...
vb程式設計設計題 紅綠燈，VB程式設計設計題 紅綠燈
如圖在窗體上新增 1 四個shape控制元件，作為燈框 紅燈 黃燈 綠燈，分別命名為 lampbox redlamp yellowlamp greenlamp 2 一個命令按鈕，命名為 cmdrun，標題為 啟動 3 三個文字框控制元件，來設定紅燈 黃燈 綠燈亮的時間 秒 分別命名為 txtredt...