用VB设计三天打鱼两天晒网的程序

显示全部楼层 · 2011-4-4 17:09:22

某人从1990年1月1日开始三天打鱼两天晒网（如123号打渔，4、5号晒网），现请用VB编一程序，使随便输入某年月日，能打印今天打渔或者是晒网。最好用IF ELSE语句。

千问 · 2011-4-4 17:09:22

这是一个数学问题，观察之后可以知道规律是，凡是输入日期B与初始日期A的的差值与5的取余即可得到取余结果是1，2，3的日期为打渔，余数为4和0的为晒网下面是代码Private Sub Command1_Click()Dim aa, bb, ccaa = #12/31/1989#Text1.SetFocusbb = CDate(Text1.Text)
'月/日/年
并转换成日期格式cc = (bb - aa) Mod 5Form1.ClsSelect Case ccCase 0

千问 · 2011-4-4 17:09:22

来个最给力的Private Sub Command2_Click()a = InputBox(" 请输入日期")m = DateDiff("y", CDate("1990-01 -01"), CDate(a))If m = 0 ThenMsgBox "今日打渔！"ElseIf m Mod 5 = 0 Or m Mod 4 = 0

千问 · 2011-4-4 17:09:22

Private Sub Command1_Click()
On Error GoTo ERR_EXIT
Dim n As Long
n = DateDiff("d", CDate(InputBox("请输入一个日期", "渔夫")), #1/1/1990#) Mod 5
If n = 0 Or n = 4 Then

千问 · 2011-4-4 17:09:22

Option ExplicitPrivate Sub Command1_Click()Dim StDate As DateDim EndDate$, mMod%StDate = #1/1/1990#EndDate = InputBox("请输入查询日期", "打渔晒网")If Not IsDate(EndDate) Then Ms