软件技术基础实验报告.docx

资源描述

软件技术基础实验报告.docx

《软件技术基础实验报告.docx》由会员分享，可在线阅读，更多相关《软件技术基础实验报告.docx（38页珍藏版）》请在冰豆网上搜索。

软件技术基础实验报告.docx

软件技术基础实验报告

实验一简易计算器实验4

一、实验目的4

二、实验设备及器件4

三、实验内容4

1．对象4

2．对象的属性4

3．事件4

四、实验代码4

1.创建新工程4

2.设计窗体4

3.运行调试程序4

4.保存文件4

5.生成可执行文件4

五、实验代码4

实验二成绩录入系统8

一、实验目的8

二、实验设备及器件8

三、实验内容8

四、实验步骤8

1.创建新工程8

2.设计窗体8

3.运行调试程序8

4.保存文件8

5.生成可执行文件8

五、实验代码8

实验三控件14

一、实验目的14

二、实验设备及器件14

三、实验内容14

四、实验步骤14

1.创建新工程14

2.设计窗体及功能说明14

3.运行调试程序14

4.保存文件14

5.生成可执行文件14

五、实验代码14

实验四对话框程序设计20

一、实验目的20

二、实验设备及器件20

三、实验内容20

四、实验步骤20

1.创建新工程20

2.设计窗体及功能说明20

3.运行调试程序20

4.保存文件20

5.生成可执行文件20

五、实验代码20

实验五文件操作22

一、实验目的22

二、实验设备及器件22

三、实验内容22

四、实验步骤22

1.创建新工程22

2.设计窗体及功能说明22

3.运行调试程序22

4.保存文件22

5.生成可执行文件22

五、实验代码22

实验六员工管理系统设计案例24

一、实验目的24

二、实验设备及器件24

三、实验内容24

四、实验步骤24

1.设计数据库24

2.设计窗体24

3.运行调试程序24

4.保存文件24

5.生成可执行文件24

五、实验代码24

实验一简易计算器实验

一、实验目的

●初步学会VB集成开发环境的使用；

●初步掌握VB语言的基本语法及数据类型；

●掌握VB可视化编程的设计方法；

●初步掌握应用VB应用程序的开发步骤。

二、实验设备及器件

●硬件：

PC机

●软件：

VisualBasic6.0集成开发环境

三、实验内容

编写一段程序实现一个简易计算器（可进行加、减、乘、除）的功能。

1．对象

对象（Object）是对具有某些特性的具体事物的抽象。

每个对象都具有描述其特征

的属性及附属于它的行为。

在可视化的编程中，常见的对象有：

窗体、标签、文本框等。

2．对象的属性

属性（Property）是指对象的一项描述内容，用来描述对象的一个特性，不同的对象具有不同的属性，而每个对象又有若干属性描述。

3．事件

事件（Event）是对象触发的行为描述，事件是预先定义的动作，由用户或者系统激活。

VB中的事件通常包括键盘事件和鼠标事件等，本实验中应用到的就是鼠标的单击事即“Click”事件。

为了响应事件，可以为事件加入响应的代码。

四、实验代码

1.创建新工程

2.设计窗体

3.运行调试程序

4.保存文件

5.生成可执行文件

“文件”菜单中选择“生成<工程名>.exe”命令即可。

五、实验代码

DimsAsString

DimaAsDouble

DimbAsDouble

DimpAsDouble

DimqAsVariant

DimxAsVariant

DimyAsVariant

PrivateSubCommand1_Click（IndexAsInteger）

y="0"+"."

IfCommand1（Index）.Caption="."Then'限制小数点的个数,按小数点怎代表"0."

IfCommand1（Index）.Caption="."Ands=""Then

s="0"

s="0"+Command1（Index）.Caption

ElseIfsOrNotsAndCommand1（Index）.Caption="."Then

Ifs=xOrs=yThen

Text1.Text=s

ElseIfs<>s+"."Then

s=s+"."

x=s

EndIf

Text1.Text=s

ElseIf（Command1（Index）.CaptionOrNotCommand1（Index）.Caption）Then

Cls'清空屏幕

Ifq="/"AndCommand1（Index）.Caption=0Then

s=0

Text1.Text=0'二次判断b=0，则出错

ElseIfCommand1（Index）.CaptionOrNotCommand1（Index）.CaptionThen

s=s+Command1（Index）.Caption'继续输入数字

Text1.Text=s

EndIf

EndSub

PrivateSubCommand2_Click（IndexAsInteger）

q=Command2（Index）.Caption&""'运算符

Ifs=""Then'等号后的累运算

s=Text1.Text

a=CDbl（s）

ElseIf1Then'运算判断，“数字+运算符+数字”累运算的实现

a=CDbl（s）

SelectCaseq

Case"+"

p=p+a

s=""

Text1.Text=""

Text1.Text=p

Case"-"

Ifp=0Then

p=a

ElseIfpThen

p=p-a

EndIf

s=""

Text1.Text=""

Text1.Text=p

Case"*"

Ifp=0Then

p=1*a

ElseIfpThen

p=p*a

EndIf

s=""

Text1.Text=""

Text1.Text=p

Case"/"'分母为0时出错判断

Ifa=0Then

Ifa=0AndpThen

p=0

Cls

PrintText1.Text=""

ElseIfa=0AndNotpThen

p=0

Cls

PrintText1.Text=""

EndIf

ElseIfaThen

Ifp=0Then

p=a

ElseIfpThen

p=p/a

EndIf

s=""

Text1.Text=""

Text1.Text=p

EndSelect

EndIf

s=""

EndSub

PrivateSubCommand3_Click（）

Ifs=""Then'连击等号的累计算

Text1.Text=p

ElseIfsThen

Text1.Text=s

b=CDbl（s）

EndIf

SelectCaseq'运算判断

Case"+"

p=p+b

s=""

Text1.Text=""

Text1.Text=p

Case"-"

p=p-b

s=""

Text1.Text=""

Text1.Text=p

Case"*"

p=p*b

s=""

Text1.Text=""

Text1.Text=p

Case"/"

Ifb=0Then

Cls

PrintText1.Text=""

p=0

ElseIfbThen

p=p/b

EndIf

s=""

Text1.Text=""

Text1.Text=p

EndSelect

b=0

EndSub

PrivateSubCommand4_Click（）'AC的彻底清空

p=0

s=""

Text1.Text=0

Cls

EndSub

PrivateSubCommand5_Click（）'退格键

IfLen（Text1.Text）>1Then

Text1.Text=Left（Text1.Text,Len（Text1.Text）-1）

Else

Text1.Text="0"'没有数字时清0

EndIf

EndSub

PrivateSubCommand6_Click（）

End

EndSub

实验二成绩录入系统

一、实验目的

●掌握VB的基本控制语句；

●掌握通过VB的调试程序来进行错误查找；

●掌握VB的工程管理及事件机制。

●熟练掌握VB数组的使用

二、实验设备及器件

●硬件：

PC机

●软件：

VisualBasic6.0集成开发环境

三、实验内容

VB实现应用程序实现成绩录入的功能。

分为如下三个模块

Ø登录模块

Ø成绩录入模块

Ø成绩显示模块

四、实验步骤

1.创建新工程

2.设计窗体

3.运行调试程序

4.保存文件

5.生成可执行文件

“文件”菜单中选择“生成<工程名>.exe”命令即可。

五、实验代码

Dims（10）Astypmembers

DimstrAsString

PrivateSubCommand1_Click（）

DimtAsString

DimqAsString

'Kill"e:

\matal__vb\成绩录入器\save.txt"

'str=Dir（"e:

\matal__vb\成绩录入器\save.txt"）

'Ifstr<>""Then'说明文件存在

Open"C:

\DocumentsandSettings\Administrator\桌面\save.txt"ForInputAs#1'读出文件

DoWhileNotEOF

（1）'循环至文件尾

LineInput#1,t'读出一行并赋给t

Loop

Shell"explorerC:

\DocumentsandSettings\Administrator\桌面\save.txt",vbNormalFocus'以窗口的形式显示文本

Close#1

'ElseIfstr=""Then'说明文件不存在

'Printt;'打印在窗体上

Command1.Enabled=False

EndSub

PrivateSubCommand2_Click（）

frmcheck.Hide

frminput.Show

Command1.Enabled=True

EndSub

PrivateSubCommand3_Click（）

frmcheck.Hide

frminput.Show

Command1.Enabled=True

EndSub

PrivateSubDir1_Change（）

dir1sorted=True

EndSub

PrivateSubForm_KeyDown（KeyCodeAsInteger,ShiftAsInteger）

IfKeyCode=32Then

Command1.Visible=True

Command2.Visible=True

Command3.Visible=True

EndIf

EndSub

Dims（100）Astypmembers

DimaAsDouble,mAsInteger,nAsInteger,pAsInteger,qAsInteger,bAsString,cAsString,dAsString,eAsString,XAsString

DimiAsInteger

PrivateSubCommand1_Click（）

DimtAsString

DimqAsString

'Kill"e:

\matal__vb\成绩录入器\save.txt"

'str=Dir（"e:

\matal__vb\成绩录入器\save.txt"）

'Ifstr<>""Then'说明文件存在

Open"C:

\DocumentsandSettings\Administrator\桌面\save.txt"ForInputAs#1'读出文件

DoWhileNotEOF

（1）'循环至文件尾

LineInput#1,t'读出一行并赋给t

Loop

Shell"explorerC:

\DocumentsandSettings\Administrator\桌面\save.txt",vbNormalFocus'以窗口的形式显示文本

Close#1

'ElseIfstr=""Then'说明文件不存在

'Printt;'打印在窗体上

Command1.Enabled=False

EndSub

PrivateSubCommand2_Click（）

Command1.Enabled=True

i=1

e=member（0）.Text

b=member

（1）.Text

c=member

（2）.Text

d=member（3）.Text

IfIsNumeric（member

（1）.Text）AndIsNumeric（member

（2）.Text）AndIsNumeric（member（3）.Text）Then

s（i）.姓名=member（0）.Text

s（i）.数学=CDbl（b）

s（i）.英语=CDbl（c）

s（i）.政治=CDbl（d）

s（i）.平均分=（s（i）.数学+s（i）.英语+s（i）.政治）/3

m=LenB（e）

'n=LenB（b）

'n=m\2+n

'p=LenB（c）

'p=p+n

'q=LenB（d）

'q=q+p

IfAsc（s（i）.姓名）>0Then'判断是否是字母

Open"C:

\DocumentsandSettings\Administrator\桌面\save.txt"ForAppendAs#1'Append方式打开文件依次连接到文件尾部

Print#1,s（i）.姓名;Tab（12）;s（i）.数学;Tab（24）;s（i）.英语;Tab（36）;s（i）.政治;Tab（48）;s（i）.平均分

'save.txt.SelAlignment=0

Close#1

'Print"姓名","数学","英语","政治","平均分"'连接

'Prints（i）.姓名,s（i）.数学,s（i）.英语,s（i）.政治,s（i）.平均分

w="添加成功"

X=MsgBox（w）

ElseIfAsc（s（i）.姓名）Then

Open"C:

\DocumentsandSettings\Administrator\桌面\save.txt"ForAppendAs#1'Append方式打开文件依次连接到文件尾部

Print#1,s（i）.姓名;Tab（12-m/2）;s（i）.数学;Tab（24-m/2）;s（i）.英语;Tab（36-m/2）;s（i）.政治;Tab（48-m/2）;s（i）.平均分

'save.txt.SelAlignment=0

Close#1

'Print"姓名","数学","英语","政治","平均分"'连接

'Prints（i）.姓名,s（i）.数学,s（i）.英语,s（i）.政治,s（i）.平均分

w="添加成功"

X=MsgBox（w）

EndIf

ElseIf1Then

w="成绩输入错误！

X=MsgBox（w）

EndIf

EndSub

PrivateSubCommand3_Click（）'重置

Command1.Enabled=True

member（0）.Text=""

member

（1）.Text=""

member

（2）.Text=""

member（3）.Text=""

EndSub

PrivateSubCommand4_Click（）

Command1.Enabled=True

frminput.Hide

frmmain.Show

EndSub

PrivateSubForm_KeyDown（KeyCodeAsInteger,ShiftAsInteger）

IfKeyCode=32Then

Frame1.Visible=True

Frame2.Visible=True

EndIf

EndSub

PrivateSubCom登录_Click（）

Open"C:

\DocumentsandSettings\Administrator\桌面\save.txt"ForAppendAs#1'append方式打开文

Print#1,"姓名";Tab（10）;"数学";Tab（21）;"英语";Tab（31）;"政治";Tab（41）;"平均分",Chr（13）;'固定输出模板

Close#1

If账号

（1）.Text<>"admin"Or密码.Text<>"123"Then'登录设置

w="请输入正确的账号和密码！

X=MsgBox（w）

ElseIf账号

（1）.Text="admin"And密码.Text="123"Then

Com登录.Enabled=False

Com重置.Enabled=False

Com退出.Enabled=True

录入.Enabled=True

查看.Enabled=True

账号

（1）.Enabled=False

密码.Enabled=False

w="登陆成功"

X=MsgBox（w）

EndIf

EndSub

PrivateSubCom退出_Click（）'退出登录

Com登录.Enabled=True

Com重置.Enabled=True

账号

（1）.Enabled=True

密码.Enabled=True

录入.Enabled=False

查看.Enabled=False

EndSub

PrivateSubCom重置_Click（）

账号

（1）.Text=""

密码.Text=""

EndSub

PrivateSubForm_KeyDown（KeyCodeAsInteger,ShiftAsInteger）

IfKeyCode=32Then

Frame1.Visible=True

Frame2.Visible=True

EndIf

录入.Enabled=False

查看.Enabled=False

EndSub

PrivateSubForm_Load（）

录入.Enabled=False

查看.Enabled=False

EndSub

PrivateSub查看_Click（）

frmmain.Hide

frminput.Hide

frmcheck.Show

EndSub

PrivateSub录入_Click（）

frmmain.Hide

frmcheck.Hide

frminput.Show

EndSub

PrivateSub退出_Click（）'退出系统

w="是否退出成绩录入器？

X=MsgBox（w,1,s）

IfX=1Then

w="是否清空存档？

X=MsgBox（w,1,s）

IfX=1Then

Kill"C:

\DocumentsandSettings\Administrator\桌面\save.txt"

e="感谢您的使用"

X=MsgBox（e）

End

ElseIfXThen

End

EndIf

ElseIfXThen

frmmain.Show

EndIf

EndSub

实验三控件

一、实验目的

掌握VB基本控件的使用方法

二、实验设备及器件

✧硬件：

PC机

✧软件：

VisualBasic6.0集成开发环境

三、实验内容

应用所学VB控件实现如下三个阶段的功能。

⏹最爱电影调查

⏹学生就业

⏹景点排序

四、实验步骤

1.创建新工程

2.设计窗体及功能说明

3.运行调试程序

4.保存文件

5.生成可执行文件

“文件”菜单中选择“生成<工程名>.exe”命令即可。

五、实验代码

DimiAsInteger

DimaAsInteger

DimbAsString

DimcAsInteger

DimsAsjingdian

PrivateSubForm_Load（）

Fori=0ToList2.ListCount

s.x=List1.List（i）

s.y=List2.List（i）

s.z=List3.List（i）

q（i）.x=s.x

q（i）.y=s.y

q（i）.z=s.z

EndSub

PrivateSubList1_Click（）

DimcAsInteger

c=List1.ListIndex

List2.ListIndex=c

List3.ListIndex=c

EndSub

PrivateSubList2_Click（）

DimcAsInteger

c=List2.ListI

展开阅读全文