第六套 试题三 渔夫 三天打 渔 两天晒网 :每年的第一天开始,三天打 鱼 ,然 后两天 时间 晒网 (1月1-3打 渔 fishing , 4 日 5 日两天晒网 basking, 6-8 打 渔 , 9 日 10日两天晒网)假 设 没有任何特殊情况的影响, 编程实现输入任 意一天后, 输 出 渔 夫是打 渔还 是晒网! 运行结果如图 3 所示: 图 3 操作要求: 打开 “试题三“文件夹中的工程文件“test3.vbp”,完成下列操作: 1.(18分)分 别 在代 码 中的( 1)、(2)、(3)、(4)、(5)、(6) 处补充 完整的代 码 (填写完成后,保存注 释 符,(每空 3 分,共 18 分。不得修改其他部分的代 码 ),以 让 程序正确 执 行。 调试 并运行程序。 Option Base 1 Private Sub Command1_Click() Dim a, T%, y%, x%, n% a = Array(31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31) y = '(1 ) If y Mod 400 = 0 Or y Mod 4 = 0 And y Mod 100 <> 0 Then ' (2) End If n = Val( ) '(3) For i = 1 To n - 1 T = '(4) Next i T = T + Val(List1.Text) x = '(5) If x > 3 Or x < 1 Then '(6) Else Label7.Caption = "fishing" End If End Sub Private Sub Command2_Click() End End Sub Private Sub Form_Load() For i = 1 To 31 List1.AddItem i Next i For i = 1 To 12 Combo1.AddItem i Next i End Sub