代码看下面的,谢谢你采纳:
Private Sub Form_Click()
On Error Resume Next
Dim D As Date
Do
Err.Clear
D = CDate(InputBox("请输入要判断的日期(格式如: 2008-9-11)" & vbCrLf & "不能早于 1990-1-1", , Date))
Loop While Err.Number > 0 Or D < #1/1/1990#
i = D - #1/1/1990#
If i Mod 5 < 3 Then
Print Format(D, "YYYY年MM月DD日:"); "打鱼"
Else
Print Format(D, "YYYY年MM月DD日:"); "晒网"
End If
End SubPrivate Sub Form_Click()
On Error Resume Next
Dim D As Date
Do
Err.Clear
D = CDate(InputBox("请输入要判断的日期(格式如: 2008-9-11)" & vbCrLf & "不能早于 1990-1-1", , Date))
Loop While Err.Number > 0 Or D < #1/1/1990#
i = D - #1/1/1990#
If i Mod 5 < 3 Then
Print Format(D, "YYYY年MM月DD日:"); "打鱼"
Else
Print Format(D, "YYYY年MM月DD日:"); "晒网"
End If
End Sub这个能看懂了吧
根据题意可以将解题过程分为三步:
1)计算从1990年1月1日开始至指定日期共有多少天;
2)由于“打鱼”和“晒网”的周期为5天,所以将计算出的天数用5去除;
3)根据余数判断他是在“打鱼”还是在“晒网”;
若 余数为1,2,3,则他是在“打鱼”
否则 是在“晒网”
在这三步中,关键是第一步。求从1990年1月1日至指定日期有多少天,要判断经历年份中是否有闰年,二月为29天,平年为28天。闰年的方法可以用伪语句描述如下:
如果 ((年能被4除尽 且 不能被100除尽)或 能被400除尽)
则 该年是闰年;
否则 不是闰年。
C语言中判断能否整除可以使用求余运算(即求模)
*程序与程序注释
#includeint days(struct date day); struct date{ int year; int month; int day; }; void main() { struct date today,term; int yearday,year,day; printf("Enter year/month/day:"); scanf("%d%d%d",&today.year,&today.month,&today.day); /*输入日期*/ term.month=12; /*设置变量的初始值:月*/ term.day=31; /*设置变量的初始值:日*/ for(yearday=0,year=1990;year0&&day<4) printf("he was fishing at that day.\n"); /*打印结果*/ else printf("He was sleeping at that day.\n"); } int days(struct date day) { static int day_tab[2][13]= {{0,31,28,31,30,31,30,31,31,30,31,30,31,}, /*平均每月的天数*/ {0,31,29,31,30,31,30,31,31,30,31,30,31,}, }; int i,lp; lp=day.year%4==0&&day.year%100!=0||day.year%400==0; /*判定year为闰年还是平年,lp=0为平年,非0为闰年*/ for(i=1;i