实验名称：申请个人网站空间、定义本地站点、设计个人主页

所用软件：IE 浏览器、CuteFTP 软件

实验目的：到中国学生网申请  20MB、50MB 空间或 100M ASP 空间。

在国际互联网上建立一个自己的家。

实验过程：

1.登录“中国学生网”购买交费的 网站空间，

  建立一个“互联网上的家园，展现自我的空间，勾画心中的蓝图，描绘美好的人生”。

  发展方向提供网络虚拟空间，如朋友留言、知已聊天、学术论坛、……。

  20MB空间4个人共用每人5MB空间，每月交费2元，每人0.5元。

 2.共用的网站空间中每人一个文件夹，文件夹名用姓名的拼音首字母。

  每个人应有自己的主页 index.htm。

3.填写用户名和口令，要求用笔记录，用户名不能忘记。

  用户名：如，wltd828（网络天地828），只能用拼音或英文字母，不能用汉字。

  口令：如，******

 电子邮件：如，fsxss@tom.com，要求真实邮箱，

 用于接收学生网发送的有关个人网站空间开通的邮件。

4.交费开通个人网站空间后，下载“文件上传下载”的软件 CutFTP32.rar。 

  打开 CuteFTP 软件，建立新站点，填写资料。

  主机地址，如 asp2.6to23.com, vip.6to23.com, my.6to23.com

  用户名：如 wltd828

  口令：如，****** 

 连接远程站点

5.选择“本地站点”上的文件 如，index.htm，点击上传按钮传送到远程个人空间。

6.在 IE 浏览器地址栏输入网址，如 http://asp2.6to23.com/wltd828 ，

 打开个人主页。

 定义本地站点（P168）

1.在 Windows 资源管理器中新建文件夹，如 E:\本地站点。

2.在 Dreamweaver MX 中

站点—新站点—高级选项卡—类别：本地信息

• 站点名称：如，本地站点

• 本地根文件夹：如，E:\本地站点

建立个人主页

1.在资源管理器中建立文件夹，如 E:\本地站点。

2.打开 FrontPage，打开站点，如 E:\本地站点。

3.下载文件到 E:\本地站点。不要采取直接编辑、文件另存为的方法。

  要求采取复制粘贴的方法，可以保持链接老师网站的参考内容。

4.在 FrontPage 中打开主页 index.htm。

  链接实验要求时采取浏览方法找到实验要求文件。

5.实验要求页面：填写班级、学号、姓名。链连实验结果。

6.要求个人主页链接：|实验要求|期中机试|期末机试|老师网站

1.新建一个工程

 文件—新建工程—标准 EXE —打开。

2.添加控件

 工具箱—控件图标—在窗体工作区画控件，增加标签、按钮。

3.设置属性（P16）

 设置窗体属性：标题“欢迎/时间 班级 学号 姓名”。

 设置控件属性：

 标签控件：标题“显示欢迎词和时间”，边框凹进，背景绿色，黄字。

 按钮控件：标题“欢迎（&H）”“时间（&T）”。

 4. 编写代码（P17）

 视图—代码窗口—hy_sj.frm

对象：Form、过程：Load、代码：

Private Sub Form_Load()

Label1.Caption = "今天是：" & Chr(13) & Format(Date, "dddddd")

End Sub

对象：Command1、过程：Click、代码：

Private Sub Command1_Click()

Label1.Caption = "欢迎使用" & Chr(13) & "Visual Basic"

End Sub

对象：Command2、过程：Click、代码：

Private Sub Command2_Click()

Label1.Caption = "现在是北京时间：" & Chr(13) & Format(Time, "tttttt")

End Sub

 5. 运行工程（P18）

 工具栏—启动—打开窗体—单击“欢迎”“时间”按钮。

 6. 工程的编译（P20）

 文件—生成 .exe 文件，如hy_sj.exe。

实验3 条件语句（P34、P37）

 1.输入 a,b,c 3 个数，求最大数。

 设置窗体属性：标题“求最大数 班级 学号 姓名”。

 命令按钮事件过程：

Private Sub CmdMax_Click()

Label1.Caption = "请输入 a,b,c 3个数，系统输出其中最大数。"

Dim a, b, c, max As Integer

a = InputBox("输入 a")

b = InputBox("输入 b")

c = InputBox("输入 c")

max = a

If b > max Then

max = b

End If

If c > max Then

max = c

End If

Label1.Caption = "输入：a=" & a & " b=" & b & " c=" & c _

& " 计算结果：Max =" & max

End Sub

 2.使用 Select Case 语句实现评定成绩等级。

 设置窗体属性：标题“成绩等级 班级 学号 姓名”。

对象：Form、事件：Load、过程代码：

Private Sub Form_Load()

Label1.Caption = "今天是：" & Chr(13) & Format(Date, "dddddd")

End Sub

对象：CmdCount、事件：Click、过程代码：

Private Sub CmdCount_Click()

If Text1.Text <> "" Then

  score = Val(Text1.Text)

  Select Case score

    Case 0 To 59

       Label1.Caption = "你的成绩不及格"

    Case 60 To 69

       Label1.Caption = "你的成绩及格"

    Case 70 To 79

       Label1.Caption = "你的成绩中等"

    Case 80 To 89

       Label1.Caption = "你的成绩良好"

    Case 90 To 100

       Label1.Caption = "你的成绩优秀"

    Case Else

       Label1.Caption = "你输入的成绩有问题！"

   End Select

 End If

End Sub

实验4 数组（P43、P44）

输入 10 个数，由小到大对数据排序。（P43）

 设置窗体属性：标题“数据排序 班级 学号 姓名”。

 命令按钮事件过程：

Option Base 1

Private Sub cmdDataSort_Click()

Dim a(10) As Integer

Dim i, j, k As Integer

Print

Print " * * 请输入 10 个整数。"

Print

For i = 1 To 10

a(i) = InputBox("请输入整数：")

Print a(i);

Next i

Print

'数据排序

For i = 1 To 9

k = i

For j = i + 1 To 10

If a(j) < a(k) Then k = j

Next j

If k <> i Then

tmp = a(k)

a(k) = a(i)

a(i) = tmp

End If

Next i

Print

Print " * * 由小到大的数据排序结果："

Print

For i = 1 To 10

Print a(i);

Next i

End Sub

实验5 窗体图像、像框图像、背景图像（P74 P82 P14）

窗体像框图像3

 窗体1标题为：窗体图像 班级 学号 姓名。

 窗体2标题为：图像框图像 班级 学号 姓名。

 窗体3标题为：图片框图像 班级 学号 姓名。

 3个窗体控件各有：图像框、图片框、命令按钮。

 图像文件参考路径和尺寸：E:\VB，

4幅 100 * 100 图像、3幅背景 600 * 400 图像。

 0.背景图像 Form1 Form 属性 Picture（P14）

 1.窗体图像 Form1.Picture（P74）

'装载、鼠标经过、按下状态窗体图像，按钮还原窗体图像。

'切换到窗体 2

 命令按钮事件过程：

Private Sub Form_Click()

Form1.Hide

Form2.Show

Form3.Hide

End Sub

'装载窗体图像

Private Sub Form_Load()

Form1.Picture = LoadPicture("E:\VB\sstg.jpg")

End Sub

'鼠标经过状态窗体图像

Private Sub Form_MouseMove

(Button As Integer, Shift As Integer, X As Single, Y As Single)

Form1.Picture = LoadPicture("E:\VB\czxc.jpg")

End Sub

'按下状态窗体图像

Private Sub Form_MouseDown

(Button As Integer, Shift As Integer, X As Single, Y As Single)

Form1.Picture = LoadPicture("E:\VB\qdh_nr.jpg")

End Sub

'按钮还原窗体图像。

Private Sub CmdReset_Click()

Form1.Picture = LoadPicture("E:\VB\sstg.jpg")

End Sub

Private Sub CmdExit_Click()

End

End Sub

 2.图像框图像 Image1.Picture（P82）

'鼠标逐一经过像框显示像框图像，按钮切换像框图像。

'切换到窗体 3

Private Sub Form_Click()

Form1.Hide

Form2.Hide

Form3.Show

End Sub

'鼠标逐一经过像框显示像框图像

Private Sub Image1_MouseMove

(Button As Integer, Shift As Integer, X As Single, Y As Single)

Image1.Picture = LoadPicture("E:\VB\B0509y_x1.jpg")

End Sub

Private Sub Image2_MouseMove

(Button As Integer, Shift As Integer, X As Single, Y As Single)

Image2.Picture = LoadPicture("E:\VB\B0509x_x1.jpg")

End Sub

Private Sub Image3_MouseMove _

(Button As Integer, Shift As Integer, X As Single, Y As Single)

Image3.Picture = LoadPicture("E:\VB\B0501_x1.jpg")

End Sub

Private Sub Image4_MouseMove

(Button As Integer, Shift As Integer, X As Single, Y As Single)

Image4.Picture = LoadPicture("E:\VB\B0501a_x1.jpg")

End Sub

'按钮切换像框图像

Private Sub CmdTrans_Click()

Image1.Picture = LoadPicture("E:\VB\qdh_nr_x.jpg")

Image2.Picture = LoadPicture("E:\VB\sstg_x.jpg")

Image3.Picture = LoadPicture("E:\VB\czxc_x.jpg")

Image4.Picture = LoadPicture("E:\VB\hsyc_x.jpg")

End Sub

Private Sub CmdExit_Click()

End

End Sub

 3.图片框图像 PictureBox1.Picture

'鼠标经过窗体装入四个像框图像、鼠标经过像框切换像框图像。

'切换到窗体 1

Private Sub Form_Click()

Form1.Show

Form2.Hide

Form3.Hide

End Sub

'鼠标经过窗体装入四个像框图像

Private Sub Form_MouseMove

(Button As Integer, Shift As Integer, X As Single, Y As Single)

Picture1.Picture = LoadPicture("E:\VB\qdh_nr_x.jpg")

Picture2.Picture = LoadPicture("E:\VB\sstg_x.jpg")

Picture3.Picture = LoadPicture("E:\VB\czxc_x.jpg")

Picture4.Picture = LoadPicture("E:\VB\hsyc_x.jpg")

End Sub

'鼠标经过像框逐一切换像框图像

Private Sub Picture1_MouseMove

(Button As Integer, Shift As Integer, X As Single, Y As Single)

Picture1.Picture = LoadPicture("E:\VB\B0509y_x1.jpg")

End Sub

Private Sub Picture2_MouseMove

(Button As Integer, Shift As Integer, X As Single, Y As Single)

Picture2.Picture = LoadPicture("E:\VB\B0509x_x1.jpg")

End Sub

Private Sub Picture3_MouseMove

(Button As Integer, Shift As Integer, X As Single, Y As Single)

Picture3.Picture = LoadPicture("E:\VB\B0501_x1.jpg")

End Sub

Private Sub Picture4_MouseMove

(Button As Integer, Shift As Integer, X As Single, Y As Single)

Picture4.Picture = LoadPicture("E:\VB\B0501a_x1.jpg")

End Sub

Private Sub CmdExit_Click()

End

End Sub

实验6 文本框运算（P95）

文本框运算 TextOp

 设置窗体属性：标题“文本框运算 班级 学号 姓名”。

 命令按钮事件过程：

Private Sub CmdClear_Click()

TextData1.Text = ""

TextData2.Text = ""

TextOp.Text = ""

LblResult.Caption = ""

TextData1.SetFocus

End Sub

Private Sub CmdExit_Click()

End

End Sub

Private Sub CmdOperat_Click()

Data1 = Val(TextData1.Text)

Data2 = Val(TextData2.Text)

Select Case TextOp.Text

Case "+"

result = Data1 + Data2

LblResult.Caption = Str$(result)

Case "-"

result = Data1 - Data2

LblResult.Caption = Str$(result)

Case "*"

result = Data1 * Data2

LblResult.Caption = Str$(result)

Case "/"

result = Data1 / Data2

LblResult.Caption = Str$(result)

Case Else

Print "运算符错误！"

LblResult.Caption = ""

End Select

End Sub

实验7 单选和框架（P125）

 单选和框架 OptFrame

 设置窗体属性：标题“单选和框架 班级 学号 姓名”。

 命令按钮事件过程：

Private Sub Form_Load()

'设置初始值

OptFont1.Value = True

OptSize1.Value = True

OptColor1.Value = True

'设置文本

Label1.Caption = "欢迎浏览网络天地828！"

End Sub

Private Sub CmdShow_Click()

'确定字体

If OptFont1.Value Then Label1.FontName = "宋体"

If OptFont2.Value Then Label1.FontName = "楷体_GB2312"

If OptFont3.Value Then Label1.FontName = "黑体"

'确定字号

If OptSize1.Value Then Label1.FontSize = 20

If OptSize2.Value Then Label1.FontSize = 25

If OptSize3.Value Then Label1.FontSize = 30

'确定颜色

If OptColor1.Value Then Label1.ForeColor = QBColor(4)

If OptColor2.Value Then Label1.ForeColor = QBColor(2)

If OptColor3.Value Then Label1.ForeColor = QBColor(1)

If OptColor11.Value Then Label1.ForeColor = QBColor(12)

If OptColor12.Value Then Label1.ForeColor = QBColor(10)

If OptColor13.Value Then Label1.ForeColor = QBColor(9)

'显示文本

Label1.Caption = "欢迎浏览网络天地828！"

End Sub

Private Sub CmdExit_Click()

 End

End Sub

实验8 组合框（P141）

组合框 ComboBox

 设置窗体属性：标题“组合框 班级 学号 姓名”。

 组合框属性：Style=1

 命令按钮事件过程：

Private Sub Form_Load()

 CboCity.AddItem "北京"

 CboCity.AddItem "天津"

 CboCity.AddItem "上海"

 CboCity.AddItem "郑州"

 CboCity.AddItem "武汉"

 CboCity.AddItem "长沙"

 CboCity.AddItem "广州"

End Sub

'选择城市

Private Sub CboCity_Click()

 LabelCity.Caption = CboCity.Text

End Sub

Private Sub CmdAdd_Click()

 Flag = 0

 If CboCity.Text <> "" Then

  For i = 0 To CboCity.ListCount

  If CboCity.Text = CboCity.List(i) Then

    Flag = 1

  End If

  Next

 If Flag = 0 Then

  CboCity.AddItem CboCity.Text

 End If

 Else

  MsgBox "请输入城市名称！"

 End If

End Sub

Private Sub CmdDelete_Click()

 If CboCity.ListIndex = -1 Then

  MsgBox "请选择要删除的项目！"

 Else

  CboCity.RemoveItem CboCity.ListIndex

 End If

End Sub

Private Sub CmdExit_Click()

 End

End Sub