软件技术基础实验报告Word文件下载.docx
- 文档编号:22142901
- 上传时间:2023-02-02
- 格式:DOCX
- 页数:38
- 大小:25.17KB
软件技术基础实验报告Word文件下载.docx
《软件技术基础实验报告Word文件下载.docx》由会员分享,可在线阅读,更多相关《软件技术基础实验报告Word文件下载.docx(38页珍藏版)》请在冰豆网上搜索。
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="
+Command1(Index).Caption
ElseIfsOrNotsAndCommand1(Index).Caption="
Ifs=xOrs=yThen
Text1.Text=s
ElseIfs<
>
s+"
s=s+"
x=s
EndIf
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'
继续输入数字
EndIf
EndSub
PrivateSubCommand2_Click(IndexAsInteger)
q=Command2(Index).Caption&
"
'
运算符
Ifs="
等号后的累运算
s=Text1.Text
a=CDbl(s)
ElseIf1Then'
运算判断,“数字+运算符+数字”累运算的实现
SelectCaseq
Case"
+"
p=p+a
Text1.Text="
Text1.Text=p
-"
Ifp=0Then
p=a
ElseIfpThen
p=p-a
*"
p=1*a
p=p*a
分母为0时出错判断
Ifa=0Then
Ifa=0AndpThen
p=0
Cls
PrintText1.Text="
ElseIfa=0AndNotpThen
EndIf
ElseIfaThen
p=a
p=p/a
Text1.Text=p
EndSelect
s="
PrivateSubCommand3_Click()
连击等号的累计算
ElseIfsThen
b=CDbl(s)
SelectCaseq'
运算判断
Case"
p=p+b
Text1.Text="
Text1.Text=p
p=p-b
p=p*b
Ifb=0Then
Cls
PrintText1.Text="
p=0
ElseIfbThen
p=p/b
EndSelect
b=0
PrivateSubCommand4_Click()'
AC的彻底清空
Text1.Text=0
PrivateSubCommand5_Click()'
退格键
IfLen(Text1.Text)>
1Then
Text1.Text=Left(Text1.Text,Len(Text1.Text)-1)
Else
0"
没有数字时清0
PrivateSubCommand6_Click()
End
实验二成绩录入系统
●掌握VB的基本控制语句;
●掌握通过VB的调试程序来进行错误查找;
●掌握VB的工程管理及事件机制。
●熟练掌握VB数组的使用
VB实现应用程序实现成绩录入的功能。
分为如下三个模块
Ø
登录模块
成绩录入模块
成绩显示模块
四、实验步骤
2.设计窗体
3.运行调试程序
Dims(10)Astypmembers
DimstrAsString
PrivateSubCommand1_Click()
DimtAsString
DimqAsString
'
Kill"
e:
\matal__vb\成绩录入器\save.txt"
str=Dir("
)
Ifstr<
说明文件存在
Open"
C:
\DocumentsandSettings\Administrator\桌面\save.txt"
ForInputAs#1'
读出文件
DoWhileNotEOF
(1)'
循环至文件尾
LineInput#1,t'
读出一行并赋给t
Loop
Shell"
explorerC:
vbNormalFocus'
以窗口的形式显示文本
Close#1
ElseIfstr="
说明文件不存在
Printt;
打印在窗体上
Command1.Enabled=False
PrivateSubCommand2_Click()
frmcheck.Hide
frminput.Show
Command1.Enabled=True
PrivateSubDir1_Change()
dir1sorted=True
PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)
IfKeyCode=32Then
Command1.Visible=True
Command2.Visible=True
Command3.Visible=True
Dims(100)Astypmembers
DimaAsDouble,mAsInteger,nAsInteger,pAsInteger,qAsInteger,bAsString,cAsString,dAsString,eAsString,XAsString
DimiAsInteger
读出文件
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"
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
Tab(12-m/2);
Tab(24-m/2);
Tab(36-m/2);
Tab(48-m/2);
ElseIf1Then
成绩输入错误!
EndSub
PrivateSubCommand3_Click()'
重置
member(0).Text="
member
(1).Text="
member
(2).Text="
member(3).Text="
PrivateSubCommand4_Click()
frminput.Hide
frmmain.Show
Frame1.Visible=True
Frame2.Visible=True
PrivateSubCom登录_Click()
append方式打开文
Print#1,"
;
Tab(10);
Tab(21);
Tab(31);
Tab(41);
Chr(13);
固定输出模板
Close#1
If账号
(1).Text<
admin"
Or密码.Text<
123"
登录设置
请输入正确的账号和密码!
X=MsgBox(w)
ElseIf账号
(1).Text="
And密码.Text="
Com登录.Enabled=False
Com重置.Enabled=False
Com退出.Enabled=True
录入.Enabled=True
查看.Enabled=True
账号
(1).Enabled=False
密码.Enabled=False
登陆成功"
PrivateSubCom退出_Click()'
退出登录
Com登录.Enabled=True
Com重置.Enabled=True
账号
(1).Enabled=True
密码.Enabled=True
录入.Enabled=False
查看.Enabled=False
PrivateSubCom重置_Click()
账号
(1).Text="
密码.Text="
查看.Enabled=False
PrivateSubForm_Load()
PrivateSub查看_Click()
frmmain.Hide
frmcheck.Show
PrivateSub录入_Click()
PrivateSub退出_Click()'
退出系统
w="
是否退出成绩录入器?
X=MsgBox(w,1,s)
IfX=1Then
是否清空存档?
X=MsgBox(w,1,s)
IfX=1Then
Kill"
e="
感谢您的使用"
X=MsgBox(e)
End
ElseIfXThen
ElseIfXThen
frmmain.Show
实验三控件
掌握VB基本控件的使用方法
✧硬件:
✧软件:
应用所学VB控件实现如下三个阶段的功能。
⏹最爱电影调查
⏹学生就业
⏹景点排序
四、实验步骤
2.设计窗体及功能说明
DimaAsInteger
DimbAsString
DimcAsInteger
DimsAsjingdian
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
Next
PrivateSubList1_Click()
DimcAsInteger
c=List1.ListIndex
List2.ListIndex=c
List3.ListIndex=c
PrivateSubList2_Click()
c=List2.ListI
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 软件技术 基础 实验 报告
![提示](https://static.bdocx.com/images/bang_tan.gif)