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

1、软件技术基础实验报告目 录实验一 简易计算器实验 4一、实验目的 4二、实验设备及器件 4三、实验内容 41对象 42对象的属性 43事件 4四、实验代码 41. 创建新工程 42. 设计窗体 43.运行调试程序 44. 保存文件 45. 生成可执行文件 4五、实验代码 4实验二 成绩录入系统 8一、实验目的 8二、实验设备及器件 8三、实验内容 8四、实验步骤 81. 创建新工程 82. 设计窗体 83. 运行调试程序 84. 保存文件 85. 生成可执行文件 8五、实验代码 8实验三 控件 14一、实验目的 14二、实验设备及器件 14三、实验内容 14四、实验步骤 141. 创建新工程

2、142. 设计窗体及功能说明 143. 运行调试程序 144. 保存文件 145. 生成可执行文件 14五、实验代码 14实验四 对话框程序设计 20一、实验目的 20二、实验设备及器件 20三、实验内容 20四、实验步骤 201. 创建新工程 202. 设计窗体及功能说明 203. 运行调试程序 204. 保存文件 205. 生成可执行文件 20五、实验代码 20实验五 文件操作 22一、实验目的 22二、实验设备及器件 22三、实验内容 22四、实验步骤 221. 创建新工程 222. 设计窗体及功能说明 223. 运行调试程序 224. 保存文件 225. 生成可执行文件 22五、实验代

3、码 22实验六 员工管理系统设计案例 24一、实验目的 24二、实验设备及器件 24三、实验内容 24四、实验步骤 241. 设计数据库 242. 设计窗体 243. 运行调试程序 244. 保存文件 245. 生成可执行文件 24五、实验代码 24实验一 简易计算器实验一、实验目的 初步学会VB集成开发环境的使用； 初步掌握VB语言的基本语法及数据类型； 掌握VB可视化编程的设计方法； 初步掌握应用VB应用程序的开发步骤。二、实验设备及器件 硬件：PC机 软件：Visual Basic 6.0集成开发环境三、实验内容 编写一段程序实现一个简易计算器（可进行加、减、乘、除）的功能。1对象 对象

4、（Object）是对具有某些特性的具体事物的抽象。每个对象都具有描述其特征的属性及附属于它的行为。在可视化的编程中，常见的对象有：窗体、标签、文本框等。2对象的属性属性（Property）是指对象的一项描述内容，用来描述对象的一个特性，不同的对象具有不同的属性，而每个对象又有若干属性描述。 3事件事件（Event）是对象触发的行为描述，事件是预先定义的动作，由用户或者系统激活。VB中的事件通常包括键盘事件和鼠标事件等，本实验中应用到的就是鼠标的单击事即“Click”事件。为了响应事件，可以为事件加入响应的代码。四、实验代码1. 创建新工程 2. 设计窗体3.运行调试程序4. 保存文件5. 生成

5、可执行文件 “文件”菜单中选择“生成.exe”命令即可。五、实验代码Dim s As StringDim a As DoubleDim b As DoubleDim p As DoubleDim q As VariantDim x As VariantDim y As VariantPrivate Sub Command1_Click(Index As Integer)y = 0 + .If Command1(Index).Caption = . Then 限制小数点的个数,按小数点怎代表0. If Command1(Index).Caption = . And s = Then s = 0

6、s = 0 + Command1(Index).Caption ElseIf s Or Not s And Command1(Index).Caption = . Then If s = x Or s = y Then Text1.Text = s ElseIf s s + . Then s = s + . x = s End If End If Text1.Text = sElseIf (Command1(Index).Caption Or Not Command1(Index).Caption) Then Cls 清空屏幕 If q = / And Command1(Index).Capt

7、ion = 0 Then s = 0 Text1.Text = 0 二次判断b=0，则出错 ElseIf Command1(Index).Caption Or Not Command1(Index).Caption Then s = s + Command1(Index).Caption 继续输入数字 Text1.Text = s End IfEnd IfEnd SubPrivate Sub Command2_Click(Index As Integer)q = Command2(Index).Caption & 运算符If s = Then 等号后的累运算 s = Text1.Text a

8、= CDbl(s)ElseIf 1 Then 运算判断， “数字 + 运算符 + 数字” 累运算的实现 a = CDbl(s) Select Case q Case + p = p + a s = Text1.Text = Text1.Text = p Case - If p = 0 Then p = a ElseIf p Then p = p - a End If s = Text1.Text = Text1.Text = p Case * If p = 0 Then p = 1 * a ElseIf p Then p = p * a End If s = Text1.Text = Text

9、1.Text = p Case / 分母为0时出错 判断 If a = 0 Then If a = 0 And p Then p = 0 Cls Print Text1.Text = ElseIf a = 0 And Not p Then p = 0 Cls Print Text1.Text = End If ElseIf a Then If p = 0 Then p = a ElseIf p Then p = p / a End If End If s = Text1.Text = Text1.Text = p End SelectEnd Ifs = End SubPrivate Sub C

10、ommand3_Click()If s = Then 连击等号的 累计算 Text1.Text = pElseIf s Then Text1.Text = s b = CDbl(s)End IfSelect Case q 运算判断Case +p = p + bs = Text1.Text = Text1.Text = pCase -p = p - bs = Text1.Text = Text1.Text = pCase *p = p * bs = Text1.Text = Text1.Text = pCase /If b = 0 ThenClsPrint Text1.Text = p = 0E

11、lseIf b Thenp = p / bEnd Ifs = Text1.Text = Text1.Text = pEnd Selectb = 0End SubPrivate Sub Command4_Click() AC的彻底清空p = 0s = Text1.Text = 0ClsEnd SubPrivate Sub Command5_Click() 退格键If Len(Text1.Text) 1 ThenText1.Text = Left(Text1.Text, Len(Text1.Text) - 1)ElseText1.Text = 0 没有数字时清0End IfEnd SubPriva

12、te Sub Command6_Click()EndEnd Sub 实验二 成绩录入系统一、实验目的 掌握VB的基本控制语句； 掌握通过VB的调试程序来进行错误查找； 掌握VB的工程管理及事件机制。 熟练掌握VB数组的使用二、实验设备及器件 硬件：PC机 软件：Visual Basic 6.0集成开发环境三、实验内容 VB实现应用程序实现成绩录入的功能。分为如下三个模块 登录模块 成绩录入模块 成绩显示模块四、实验步骤1. 创建新工程 2. 设计窗体 3. 运行调试程序4. 保存文件5. 生成可执行文件 “文件”菜单中选择“生成.exe”命令即可。五、实验代码Dim s(10) As typm

13、embersDim str As StringPrivate Sub Command1_Click()Dim t As StringDim q As StringKill e:matal_vb成绩录入器save.txtstr = Dir(e:matal_vb成绩录入器save.txt)If str Then 说明文件存在 Open C:Documents and SettingsAdministrator桌面save.txt For Input As #1 读出文件 Do While Not EOF(1) 循环至文件尾 Line Input #1, t 读出一行并赋给t Loop Shell

14、explorer C:Documents and SettingsAdministrator桌面save.txt, vbNormalFocus 以窗口的形式显示文本 Close #1 ElseIf str = Then 说明文件不存在 Print t; 打印在窗体上 Command1.Enabled = FalseEnd SubPrivate Sub Command2_Click()frmcheck.Hidefrminput.ShowCommand1.Enabled = TrueEnd SubPrivate Sub Command3_Click()frmcheck.Hidefrminput.S

15、howCommand1.Enabled = TrueEnd SubPrivate Sub Dir1_Change()dir1sorted = TrueEnd SubPrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = 32 ThenCommand1.Visible = TrueCommand2.Visible = TrueCommand3.Visible = TrueEnd IfEnd SubDim s(100) As typmembersDim a As Double, m As Integer,

16、 n As Integer, p As Integer, q As Integer, b As String, c As String, d As String, e As String, X As StringDim i As IntegerPrivate Sub Command1_Click()Dim t As StringDim q As StringKill e:matal_vb成绩录入器save.txtstr = Dir(e:matal_vb成绩录入器save.txt)If str Then 说明文件存在 Open C:Documents and SettingsAdministra

17、tor桌面save.txt For Input As #1 读出文件 Do While Not EOF(1) 循环至文件尾 Line Input #1, t 读出一行并赋给t Loop Shell explorer C:Documents and SettingsAdministrator桌面save.txt, vbNormalFocus 以窗口的形式显示文本 Close #1 ElseIf str = Then 说明文件不存在 Print t; 打印在窗体上 Command1.Enabled = FalseEnd SubPrivate Sub Command2_Click()Command1

18、.Enabled = Truei = 1e = member(0).Textb = member(1).Textc = member(2).Textd = member(3).TextIf IsNumeric(member(1).Text) And IsNumeric(member(2).Text) And IsNumeric(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

19、).政治) / 3 m = LenB(e) n = LenB(b) n = m 2 + n p = LenB(c) p = p + n q = LenB(d) q = q + p If Asc(s(i).姓名) 0 Then 判断是否是字母 Open C:Documents and SettingsAdministrator桌面save.txt For Append As #1 Append方式打开文件 依次连接到文件尾部 Print #1, s(i).姓名; Tab(12); s(i).数学; Tab(24); s(i).英语; Tab(36); s(i).政治; Tab(48); s(i)

20、.平均分 save.txt.SelAlignment = 0 Close #1 Print 姓名, 数学, 英语, 政治, 平均分 连接 Print s(i).姓名, s(i).数学, s(i).英语, s(i).政治, s(i).平均分 w = 添加成功 X = MsgBox(w) ElseIf Asc(s(i).姓名) Then Open C:Documents and SettingsAdministrator桌面save.txt For Append As #1 Append方式打开文件 依次连接到文件尾部 Print #1, s(i).姓名; Tab(12 - m / 2); s(i

21、).数学; 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 姓名, 数学, 英语, 政治, 平均分 连接 Print s(i).姓名, s(i).数学, s(i).英语, s(i).政治, s(i).平均分 w = 添加成功 X = MsgBox(w) End IfElseIf 1 Then w = 成绩输入错误！ X = MsgBox(w) End IfEnd Sub Private Sub Comman

22、d3_Click() 重置Command1.Enabled = Truemember(0).Text = member(1).Text = member(2).Text = member(3).Text = End SubPrivate Sub Command4_Click()Command1.Enabled = Truefrminput.Hidefrmmain.ShowEnd Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = 32 ThenFrame1.Visible = TrueFr

23、ame2.Visible = TrueEnd IfEnd SubPrivate Sub Com登录_Click()Open C:Documents and SettingsAdministrator桌面save.txt For Append As #1 append方式打开文Print #1, 姓名; Tab(10); 数学; Tab(21); 英语; Tab(31); 政治; Tab(41); 平均分, Chr(13); 固定输出模板Close #1If 账号(1).Text admin Or 密码.Text 123 Then 登录设置 w = 请输入正确的账号和密码！ X = MsgBox

24、(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) End IfEnd SubPrivate Sub Com退出_Click() 退出登录 Com登录.Enabled = True Com重置.Enabled = T

25、rue 账号(1).Enabled = True 密码.Enabled = True 录入.Enabled = False 查看.Enabled = False End SubPrivate Sub Com重置_Click()账号(1).Text = 密码.Text = End SubPrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = 32 ThenFrame1.Visible = TrueFrame2.Visible = TrueEnd If 录入.Enabled = False 查看.Enab

26、led = FalseEnd SubPrivate Sub Form_Load() 录入.Enabled = False 查看.Enabled = FalseEnd SubPrivate Sub 查看_Click()frmmain.Hidefrminput.Hidefrmcheck.ShowEnd SubPrivate Sub 录入_Click()frmmain.Hidefrmcheck.Hidefrminput.ShowEnd SubPrivate Sub 退出_Click() 退出系统w = 是否退出成绩录入器？X = MsgBox(w, 1, s)If X = 1 Then w = 是否

27、清空存档？ X = MsgBox(w, 1, s) If X = 1 Then Kill C:Documents and SettingsAdministrator桌面save.txt e = 感谢您的使用 X = MsgBox(e) End ElseIf X Then End End IfElseIf X Then frmmain.Show End IfEnd Sub 实验三 控件一、实验目的 掌握VB基本控件的使用方法 二、实验设备及器件 硬件：PC机 软件：Visual Basic 6.0集成开发环境三、实验内容 应用所学VB控件实现如下三个阶段的功能。 最爱电影调查 学生就业 景点排序

28、四、实验步骤 1. 创建新工程 2. 设计窗体及功能说明 3. 运行调试程序4. 保存文件5. 生成可执行文件 “文件”菜单中选择“生成.exe”命令即可。五、实验代码Dim i As IntegerDim a As IntegerDim b As StringDim c As IntegerDim s As jingdianPrivate Sub Form_Load() For i = 0 To List2.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 NextEnd SubPrivate Sub List1_Click() Dim c As Integer c = List1.ListIndex List2.ListIndex = c List3.ListIndex = cEnd SubPrivate Sub List2_Click() Dim c As Integer c = List2.ListI