篱枣

任务一：浏览器设置

1、  将默认主页设成：zthdd.bokee.com

2、  设置网页保存在历史记录中的天数为10天

3、  将默认主页设置为“使用空白页”

任务二：收藏夹的使用

1、  将www.hao123.com和www.google.cn 直接添加到收藏夹中；

2、  将www.baidu.com添加到名为“搜索引擎*”（*为自己班级名称）的子收藏夹中；

3、  整理收藏夹：将收藏夹中的www.google.cn移动到“搜索引擎*”的子收藏夹中；

任务三：下载

准备工作：在E：\高一\109文件夹中新建一个“学号download1”文件夹（如“01 download1”）

1、  将“第29届奥林匹克运动会网站”（http://www.beijing2008.com　）保存到“学号download1”文件夹中；

2、  将奥运场馆 “鸟巢”（可任选一张）图片下载到“学号download1”文件夹中；

3、  将讲述第29届奥运会吉祥物五个福娃有关名字、形象、寓意的文字以“fuwa.doc”为名保存到“学号download1”文件夹中；

4、  下载一首自己喜欢的mp3音乐保存到“学号download1”文件夹中；

任务完成后，请思考下表（可脑子思考一下，不用具体填写）

上交说明：完成后请将“学号download1”文件夹上传到FTP中的“109下载”文件夹中

地址：ftp://192.168.11.200　

用户名：109

一、图像蒙板效果

星期几问题 参考程序代码如下：

Public Function leap(y As Integer) As Integer '判断是否为闰年函数
  If y Mod 100 = 0 Then   '是返回1，不是返回0
    If y Mod 400 = 0 Then leap = 1 Else leap = 0
  Else
    If y Mod 4 = 0 Then leap = 1 Else leap = 0
  End If
End Function

Private Sub Command1_Click()
Dim year As Integer, month, day, w, c, y, m, d, ok As Integer
year = Val(Text1.Text)
month = Val(Text2.Text)
day = Val(Text3.Text)
ok = 0     '判断输入的日期是否有效，根据平年、闰年、不同月份的不同情况来判断
If (year >= 1900) And (month = 1 Or month = 3 Or month = 5 Or month = 7 Or month = 8 Or month = 10 Or month = 12) And (day >= 1 And day <= 31) Then ok = 1
If (year >= 1900) And (month = 4 Or month = 6 Or month = 9 Or month = 11) And (day >= 1 And day <= 30) Then ok = 1
If (year >= 1900) And leap(year) = 1 And month = 2 And (day >= 1 And day <= 29) Then ok = 1
If (year >= 1900) And leap(year) = 0 And month = 2 And (day >= 1 And day <= 28) Then ok = 1
If ok = 0 Then
 Text4.Text = "输入日期有错误"
Else
  If month = 1 Or month = 2 Then
    year = year - 1
    month = month + 12
  End If
  c = year \ 100   '取年份的前两位
  y = year Mod 100   '取年份的后两位
  m = month
  d = day
  w = Int(c / 4) - 2 * c + y + Int(y / 4) + Int(13 * (m + 1) / 5) + d - 1   '蔡勒公式
  Text4.Text = Str(c) + Str(y) + Str(m) + Str(d) + Str(w)
  w = (w + 700) Mod 7 + 1  '求除以7的余数，w加上700保证余数一定是整数
  Text4.Text = WeekdayName(w)  'WeekdayName函数可以将数值转换成星期形式，值1转换成星期日，值2转换成星期一……，值7转换成星期六
 End If
End Sub

Private Sub Text1_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub

蔡勒公式的由来

在Command1对象的Click事件中输入如下代码: