华北科技学院计算机学院综合性实验实 验 报 告 课程名称 程序设计语言(VB) 实验学期 至 学年 第 学期学生所在系部 年级 班级 学生姓名 学号 任课教师 实验成绩 计算机学院制计算机学院综合性实验报告第 1 页 程序设计语言（VB） 课程综合性实验报告开课实验室：基础三 2012 年 6 月 15 日实验题目 Visual Basic 综合应用程序开发一、实验目的1、 掌握数组的应用：（1） 数组的定义（2） 数组的基本操作，包括数组的输入输出、数组元素的比较、求平均值、数组的排序等。2、 会使用过程编程和字符串操作（1） sub 过程的定义与调用（2） function 过程的定义调用（3） 字符串的大小写转换操作3、 掌握基本控件的使用包括常用标准控件的使用，如标签、按钮、文本框、单选按钮、滚动条等。4、 掌握菜单和工具栏的使用二、设备与环境硬件：多媒体计算机软件：Windows 2000 以上的操作系统、 Visual Basic 集成开发环境三、实验内容1. 先进入欢迎界面，在屏幕上显示欢迎您使用本程序，并弹出密码框，等待输入密码。（5）2. 密码正确后进入系统主界面，主界面包括“数组应用” 、 “过程应用” 、 “控件应用”和“退出”等菜单，并提供相关工具栏或命令按钮。 （10）3. “数组应用”菜单中包括“数组操作”子菜单，单击此菜单，弹出“数组操作”对话框，如图 1 所示。 （35，每个按钮功能为 5） 。题目描述如下：在名称为“数组操作”的窗体上有一个 label 控件，4 个 text 控件及 7个命令按钮，功能如下：(1) 开始启动工程时，界面上除“输入”及“返回”按钮之外，其他按钮均不可用（灰色显示） 。(2) 单击“输入”按钮之后，利用 inputbox 让用户连续且必须输入 10 个整数。若输入为非数字符号，则给出警告“输入数据无效，请重新输入，请输入第 n 个数” 。(3) 输入完毕后， “输入”按钮变灰，其他变为可用状态。(4) 按相应的按钮可分别将输入的数据升序或降序排列，及求最大、最小值，并在右侧对应的文本框中显示（注意用 A（10）存放最大数，A（1）存放最小数） 。(5) 单击“清空”按钮将所有文本框清空。4. “过程应用”菜单中包括“字符转换”子菜单，单击此菜单，弹出“字符转换”对话框，如图 2 所示，要求必须将“大小写转换”功能定义为一个 sub 过程，通过调用该过程完成大小写转换。 （25）题目描述如下：在“字符转换”窗体上有两个文本框、三个单选按钮和一个命令按钮。运行时，在 text1 中输入若干个大写和小写字母，并选中一个单选按钮，再单击“转换”按钮，则按选中的单选按钮的标题进行转换，结果放入 text2。5. 单击“控件应用”菜单，弹出“数学运算”对话框，如图 3 所示。 （25%）题目描述如下：在“数学运算”窗体上有一个名称为 cmd1、标题为“计算”的命令按钮；两个水平滚动条，名称为 hs1 和 hs2，其 max 属性均为 100，min 属性为 1；四个标签，名称为 lab1、lab2 、lab3 和 lab4，标题分别为“运算数 1”、 “运算数 2”、 “运算结果”和空白；此外还有一个包含四个单选按钮的控件数组，名称为 opt1，标题为“+” 、“-”、 “*”和“/” 。程序运行后，移动两个滚动条中的滚动框，用滚动条的当前值作为运算数，如果选中一个单选按钮，然后单击命令按钮，相应的计算结果将显示在 lab4中。计算机学院综合性实验报告第 2 页6. 单击“退出”菜单，退出程序运行。四实验结果及分析1 登录界面（1） 功能：输入正确密码登录到综合实验界面。（2） 界面抓图：（3） 实现代码：Private Sub Command1_Click()a = Text1.TextIf a = 201110064129# Then 对密码进行判断MsgBox (密码正确)综合实验.Show 密码正确进入综合实验界面登录.Hide 登录界面隐藏ElseText1.SelText = 密码错误文本框信息清除Text1.SetFocus 焦点重新回到 text1，继续输入End IfEnd Sub2 综合实验（1） 功能： 将各个界面以菜单的形式列出方便操作寻找，可自由的进入各个工程 界面在各个工程间进行操作。综合界面中退出按钮可退出工程（2） 界面抓图：（3）实现代码 Private Sub shuxueyunsuan_Click()数学运算.Show 进入数学运算界面End SubPrivate Sub shuzucaozuo_Click()数组操作.Show 进入数组操作界面End Sub计算机学院综合性实验报告第 3 页Private Sub tuichu_Click()End 退出工程End SubPrivate Sub zifuzhuanhuan_Click()字符转换.Show 进入字符转换界面End Sub3.数组操作（1）功能：可对输入的 10 个整数进行升序排列或降序排列，及求最大值和最小值，返可返回综合实验界面。（2）界面抓图：（3）实现代码：Dim a(1 to 10) As Integer 数组声明，a 数组有 10 个元素Private Sub Command1_Click()For i = 1 To 10 有 10 个数进行 9 趟比较For j = 1 To 10 I 每一趟比较对 1 - 10-i 的元素两两相邻比较，大数沉底If a(j) a(j + 1) Thent = a(j): a(j) = a(j + 1): a(j + 1) = t次序不对交换End IfNext jNext iFor i = 1 To 10Text1.Text = Text1.Text & & a(i)在 text1 中显示排序结果Next iEnd SubPrivate Sub Command2_Click()For i = 1 To 10For j = 1 To 10 - iIf a(j) max Thenmax = a(i) 次序不对交换End IfNext iText3.Text = max text3 中显示最大值End SubPrivate Sub Command4_Click()Dim min!min = a(1)For i = 1 To 10If a(i) = 97 And Asc(s) = 97 And Asc(s) = 65 And Asc(s) = 90 Thens = Chr(Asc(s) + 32) ASSCL 的值在 65-90 之间为大写加上 32 变为小写End IfEnd Ifb = b & s“显示转换后的字符Next iEnd Sub5 数学运算（1）功能：拖动滚动条产生运算数 1 和运算数 2，选单选框的运算符号得出结果在标签 4 中显示出结果。（2）界面抓图：（3）实现代码：Private Sub Command1_Click()Dim a%, b%, s!a = HScroll1.Value 滚动条 1 产生的数赋予 ab = HScroll2.Value 滚动条 1 产生的数赋予 bIf Option1.Value = True Then 单选框 1 选中s = a + b计算出结果Label4.Caption = a & + & b & = & s显示出表达式End IfIf Option2.Value = True Thens = a - bLabel4.Caption = a & - & b & = & sEnd IfIf Option3.Value = True Then 同上s = a * bLabel4.Caption = a & * & b & = & sEnd IfIf Option4.Value = True Thens = a / bLabel4.Caption = a & / & b & = & sEnd IfEnd Sub计算机学院综合性实验报告第 7 页五、总结通过对Visual Basic 程序设计教程的 学习，让我初步了解了 VB 的一些基本知识、基本语法、编程方法和常用算法。刚进行 VB 学习时，感觉这门课程很枯燥、晦涩、难懂，不明白它为什么会引起那么多大学生、计算机应用开发者的学习兴趣，从而兴起了学习掌握和事业 VB 的热潮。总认为这些人是怪胎、天才。这学期在李老师的带领下，我走进了 VB 的世界，那些 VB 的控件、按钮和代码是那么的难懂、更不用谈自己编程了。但自己并没有因此放弃学习，在李老师的教导下，自己渐渐掌握了 VB 的编程方法，已经可以编一些小程序了。自己渐渐有了自信去学习 VB 了！本次实验检验了自己的的学习成果，虽然实验有点难度，但最后在参考老师的例题下成功完成。感觉对 VB 的学习还要加强，对一些大的 VB 程序的编程还是很吃力。在学习 VB 后，感觉自己在生活中的心思更加缜密了！对于问题的分析能力有了一点提高！在学习 VB 中，懂得了团队的力量也知道了个人的力量是有限的，有些事还是要集体的努力。对于一些不懂的问题在经过思考之后还是难以解决的还是要去问老师和同学，这样既能增进感情交流又能节约时间。在这里要感谢李老师耐心的知道和热心的帮助，因为自己的能力有限常常麻烦老师。评定项目 A B C D 评定项目 A B C D算法正确 界面美观，布局合理程序结构合理 操作熟练语法、语义正确 实验结果正确教 师 评 价报告规范 文字流畅计算机学院综合性实验报告第 8 页其他：评价教师签名：李冬艳2012 年 7 月 8 日