高级计算机基础.docx

高级计算机基础.docx

《高级计算机基础.docx》由会员分享，可在线阅读，更多相关《高级计算机基础.docx（11页珍藏版）》请在冰豆网上搜索。

高级计算机基础

计算机基础高级班实验指导书

实验是巩固课堂所学知识、掌握可视化程序设计的方法、提高分析问题和解决问题能力的最重要的途径。

因此明确实验目的、内容与要求、实验步骤及实验规则，一方面有助于实验任务的顺利完成，另一方面也有利于养成严谨科学的作风。

每个实验都要遵循认真预习准备、认真做好实验、认真写好实验报告三个阶段进行。

1．实验的基本目的

（1）通过实验熟悉综合设计性实验的做法。

（2）通过实验熟练掌握课本内容的融会贯通。

（3）通过实验掌握计算机的调试方法，加强应用能力的训练与培养，从而具有

计一般应用程序和解决事务管理问题的能力。

2．实验的基本要求

（1）上机实验之前，应认真预习有关实验内容及相应教材。

（2）实验过程中应记录实验中的有关数据（包括出错信息等），以便课后进行分析。

（3）所有实验都应具备下列条件：

①硬件：

IBMPC及其兼容机，要求CPU为Pentium166以上，内存在32MB以上，硬盘有200MB以上的自由空间。

②软件：

操作系统为中文win7,开发环境为VisualBasic6.0中文企业版。

（4）上机时要遵守实验室的规章制度，爱护实验设备。

３．实验报告

每个实验结束后都应写出实验报告，报告中应包括下列内容：

（1）实验目的

（2）实验内容与要求

（3）实验步骤

（4）实验结果及分析讨论、实验心得体会等。

实验一VisualBasic顺序程序

【实验目的】

1．熟悉VisualBasic6.0集成开发环境。

2.学习怎样启动和退出VB

3．掌握开发一个简单程序的基本步骤。

4．掌握简单代码的编写。

【实验内容】

已知地球的赤道半径为6378.137千米。

假设在赤道上，有两个处于不同经度（单位为度）的城市，用VB编程序求出这两个城市之间的地面距离（即劣弧的长度）。

实验要求：

1.设计合适的运行界面并编写相应的事件代码。

2.计算结果要有尽可能高的精确度。

3.将工程中所有的文件压缩为一个RAR文件。

4.最后提交完成的RAR文件。

【实验要求及操作步骤】

一、启动和退出VB

1、进入VB集成开发环境

要进入VB应用程序，首先要运行VB的集成开发环境。

启动VB的方法如下：

[方法1]

◇单击任务栏上的“开始”按钮；

◇选择“程序”文件夹，接着选取“MicrosoftVisualBasic6.0中文版”文件夹，再选取“MicrosoftVisualBasic6.0中文版”项，如图1-1所示；

图1-1启动VB的方法1

◇单击鼠标左键。

[方法2]

◇单击任务栏上的“开始”按钮；

◇选择“程序”文件夹；

◇使用“Windows资源按理器”查找VB可执行文件VB6.exe；

◇双击图标。

[方法3]

◇在桌面创建一个VB快捷键；

◇双击该快捷键。

VB启动后，出现VB6.0的“新建工程”对话框（图１-2）单击“打开”按钮，带有一个窗体的新工程将被创建，并可以看到VB集成开发环境的界面，如图1-3所示。

有的系统启动后可直接进入图1-3所示的界面。

图1-2VB6.0的“新建工程”对话框

图1-3VB的集成开发环境窗口

1、退出VB方法：

（1）单击主窗口右上角的“关闭”按钮。

（2）执行“文件”菜单中的“退出”命令。

（3）按Alt+Q键。

二、开发一个简单程序

要求：

新建一工程，在窗体（Form）上添加一个标签（Label），当单击窗体时标签（Label）显示“床前明月光”。

实验步骤：

（1）新建工程

在桌面上双击MicrosoftVisualBasic6.0快捷方式图标，系统进入VisualBasic6.0集成开发环境，并显示“新建工程”对话框，默认选择是建立“标准EXE”（即标准工程）。

单击“打开”按钮，VisualBasic6.0进入设计模式。

如图1－4所示。

图1－4“新建工程”对话框

单击“文件”菜单，选择“新建工程”菜单项，也可进入设计模式。

（2）设计界面

在系统提供的名为Form1的窗体上进行界面设计。

单击工具箱上的标签（Label）控件，在窗体上添加标签的位置处按下鼠标左键，并拖动，调整虚框的大小，松开鼠标，就将标签控件添加到窗体上。

初始界面如图1－5所示。

图1－5初始界面

（3）设置属性

如表1－1所示。

表1－1属性设置

对象

属性

属性值

Form1

Caption

两点之间距离

Label1

Caption

 A点

Label2

Caption

B点

Text1

Text

“”

Text2

text

“”

Command1

caption

确定

Command2

Caption

退出

Label3

Caption

距离

（4）编写程序代码

PrivateSubForm_Click（）

Dimrassingle

R=6378.137

Text3.text=abs（val（text1.text）-val（text2.text））*2*3.14*r/360

EndSub

（5）运行程序

运行VB程序有三种方法：

①单击工具栏上的“启动”按钮；②从“运行”菜单中选择“启动”菜单项；③按F5键。

例如，单击工具栏上的“启动”按钮运行程序后，单击窗体，程序运行效果如图1－7所示。

（6）保存程序

单击工具栏中的“保存”按钮或单击“文件”菜单中的“保存工程”菜单项，选择合适的保存路径，先保存窗体文件（例如窗体文件名为“实验一.frm”），然后保存工程文件（例如工程文件名为“实验一.vbp”）。

三、将VisualBasic工程编译生成可执行文件

单击“文件”菜单中的“生成实验一.exe”菜单项，就可生成可执行的.exe文件。

退出VisualBasic集成开发环境，双击实验一.exe文件，则实验一.exe文件就可直接运行。

实验二VisualBasic流程控制

【实验目的】

1．掌握命令按钮、文本框和标签常用属性值的设置方法。

2．学会使用命令按钮、文本框和标签在窗体上建立用户界面的方法。

3．掌握命令按钮的主要事件的使用。

【实验内容】

1．利用命令按钮、文本框和标签输入和输出数据。

2．建立应用程序，做一个简单的计算器。

【实验要求与步骤】

1．实验内容

设计合适的运行界面并编写相应的事件代码。

1.要求用标签显示运算数据及运算结果。

2.要求用命令按钮输入运算数据。

窗体中包含0-9、+、-、*、/、=、C等16个命令按钮。

3.当单击数字按钮时，在标签上显示运算数据。

4.当单击+、-、*、/按钮时，将第一个运算数取出，并清除标签。

5.当单击“=”按钮时，将第二个运算数取出，计算出运算结果之后显示到标签上。

6.当单击“C”按钮时，清除两个运算数及标签。

7.将工程中所有的文件压缩为一个RAR文件。

8.最后提交完成的RAR文件。

步骤：

（1）设计界面

在窗体上添加一个标签、16个命令按钮。

初始界面如图2－1所示。

图2－1初始界面

（2）设置属性

设置属性后的界面如图2－1所示。

表2－1属性设置

对象

属性

属性值

Label1

Caption

“”

Command1

Caption

0

Command2

Caption

1

command3

Caption

2

Command4

Caption

3

Command5

Caption

4

Command6

Caption

5

Command7

Caption

6

Command8

Caption

7

Command9

Caption

8

Command10

Caption

9

Command12

Caption

+

Command13

Caption

-

Command14

Caption

*

Command15

Caption

/

（3）编写程序代码

OptionExplicit

DimaAsSingle

DimbAsSingle

PrivateSubCommand1_Click（）

Text1.Caption=Text1.Caption+"1"

EndSub

PrivateSubCommand10_Click（）

Text1.Caption=Text1.Caption+"0"

EndSub

PrivateSubCommand11_Click（）

Text1.Caption=""

EndSub

PrivateSubCommand12_Click（）

Ifb="14"Then

Text1.Caption=a-Text1.Caption

ElseIfb="13"Then

Text1.Caption=a+Text1.Caption

ElseIfb="15"Then

Text1.Caption=a*Text1.Caption

ElseIfb="16"Then

Text1.Caption=a\Text1.Caption

EndIf

EndSub

PrivateSubCommand13_Click（）

a=Text1.Caption

b=13

Text1.Caption=""

EndSub

PrivateSubCommand14_Click（）

a=Text1.Caption

b=14

Text1.Caption=""

EndSub

PrivateSubCommand15_Click（）

a=Text1.Caption

b=15

Text1.Caption=""

EndSub

PrivateSubCommand16_Click（）

a=Text1.Caption

b=16

Text1.Text=""

EndSub

PrivateSubCommand2_Click（）

Text1.Caption=Text1.Caption+"2"

EndSub

PrivateSubCommand3_Click（）

Text1.Caption=Text1.Caption+"3"

EndSub

PrivateSubCommand4_Click（）

Text1.Caption=Text1.Caption+"4"

EndSub

PrivateSubCommand5_Click（）

Text1.Caption=Text1.Caption+"5"

EndSub

PrivateSubCommand6_Click（）

Text1.Caption=Text1.Caption+"6"

EndSub

PrivateSubCommand7_Click（）

Text1.Caption=Text1.Caption+"7"

EndSub

PrivateSubCommand8_Click（）

Text1.Caption=Text1.Caption+"8"

EndSub

PrivateSubCommand9_Click（）

Text1.Caption=Text1.Caption+"9"

EndSub

（4）运行程序

在窗体上点击对应的命令按钮，在标签中显示对应的数字，例如，输入3*69，则显示对应的值。

实验三 ACCESS数据库应用