用

vb

语言编写给出年月日

,

计算它是一年中的第几天

用

vb

语言编写

"

给出年月日

,

计算它是一年中的第几天

" 

Private Sub Command1_Click()MsgBox "

这是

" & Text1.T

ext & 

"

年

中

的

第

" 

& 

DatePart("y", 

DateSerial(Val(Text1.Text), 

Val(Text2.Text), Val(Text3.Text))) & "

天

"End Sub 

Text1

输入年，

Text2

输入月，

Text3

输入日，点

Command1

后

用公共对话方块输出结果。

如果要在

Text4

输出结果，则是：

Private 

Sub 

Command1_Click()Text4.Text 

= 

"

这

是

" 

& 

Text1.Text & "

年中的第

" & DatePart("y", DateSerial(Val(Text1.Text), 

Val(Text2.Text), Val(Text3.Text))) & "

天

"End Sub 

用

C

语言编写

:

运用函式输入年月日使之输出这是一年中的第几天

? 

执行结果：图片里

#include 

int 

main( 

void 

) 

{ 

int 

y,m,d,mm[]={31,28,31,30,31,30,31,31,30,31,30,31}; 

int 

i,ds; 

printf("

输

入

年

:"); 

scanf("%d",&y); 

printf("

输

入

月

:"); 

scanf("%d",&m); printf("

输入日

:"); scanf("%d",&d); if(y%4==0 && 

y%100!=0 || y%400==0) mm[1]++; if(y