vb综合实验报告格式

《vb综合实验报告格式》由会员分享，可在线阅读，更多相关《vb综合实验报告格式（16页珍藏版）》请在金锄头文库上搜索。

1、华北科技学院计算机系综合性实验报告华北科技学院计算机系综合性实验实 验 报 告 课程名称 程序设计语言(VB) 实验学期 2010 至 2011 学年 第 2 学期学生所在系部 安全工程学院 年级 2010级 专业班级 地质B102班 学生姓名 曹阳勃 学号 201010064217 任课教师 沙嘉祥 实验成绩 计算机系制计算机技术基础(VB)课程综合性实验报告开课实验室：信息楼基础七机房 2011 年 6 月 21 日实验题目Visual Basic综合应用程序开发一、实验目的1、 掌握数组的应用：（1） 数组的定义（2） 数组的基本操作，包括数组的输入输出、数组元素的比较、求平均值、数组的

2、排序等。2、 会使用过程编程和字符串操作（1） sub过程的定义与调用（2） function过程的定义调用（3） 字符串的大小写转换操作3、 掌握基本控件的使用包括常用标准控件的使用，如标签、按钮、文本框、单选按钮、滚动条等。4、 掌握菜单和工具栏的使用二、设备与环境硬件：多媒体计算机软件：Windows 2000以上的操作系统、Visual Basic集成开发环境三、实验内容1、 先进入欢迎界面，在屏幕上显示欢迎您使用本程序，并弹出密码框，等待输入密码。（5）2、 密码正确后进入系统主界面，主界面包括“数组应用”、“过程应用”、“控件应用”和“退出”等菜单，并提供相关工具栏或命令按钮。（1

3、0）3、 “数组应用”菜单中包括“数组操作”子菜单，单击此菜单，弹出“数组操作”对话框，如图1所示。（35，每个按钮功能为5）。题目描述如下：在名称为“数组操作”的窗体上有一个label控件，4个text控件及7个命令按钮，功能如下：（1） 开始启动工程时，界面上除“输入”及“返回”按钮之外，其他按钮均不可用（灰色显示）。（2） 单击“输入”按钮之后，利用inputbox让用户连续且必须输入10个整数。若输入为非数字符号，则给出警告“输入数据无效，请重新输入，请输入第n个数”。（3） 输入完毕后，“输入”按钮变灰，其他变为可用状态。（4） 按相应的按钮可分别将输入的数据升序或降序排列，及求最大

4、、最小值，并在右侧对应的文本框中显示（注意用A（10）存放最大数，A（1）存放最小数）。（5） 单击“清空”按钮将所有文本框清空。图14、 “过程应用”菜单中包括“字符转换”子菜单，单击此菜单，弹出“字符转换”对话框，如图2所示，要求必须将“大小写转换”功能定义为一个sub过程，通过调用该过程完成大小写转换。（25）题目描述如下：在“字符转换”窗体上有两个文本框、三个单选按钮和一个命令按钮。运行时，在text1中输入若干个大写和小写字母，并选中一个单选按钮，再单击“转换”按钮，则按选中的单选按钮的标题进行转换，结果放入text2。图25、 单击“控件应用”菜单，弹出“数学运算”对话框，如图3所

5、示。（25%）题目描述如下：在“数学运算”窗体上有一个名称为cmd1、标题为“计算”的命令按钮；两个水平滚动条，名称为hs1和hs2，其max属性均为100，min属性为1；四个标签，名称为lab1、lab2、lab3和lab4，标题分别为“运算数1”、“运算数2”、“运算结果”和空白；此外还有一个包含四个单选按钮的控件数组，名称为opt1，标题为“+”、“-”、“*”和“/”。程序运行后，移动两个滚动条中的滚动框，用滚动条的当前值作为运算数，如果选中一个单选按钮，然后单击命令按钮，相应的计算结果将显示在lab4中。图36、 单击“退出”菜单，退出程序运行。四、实验结果及分析(一) 菜单设计部

6、分1. 设计原理选中“菜单”工程，在“菜单编辑器”中分别加入“数组应用”、“过程应用”、“程序应用”、“退出”，点击“确定”即可生成。使用label1输入“欢迎进入”，使用show、hide函数对form3、form4、form5、form6进行编辑2. 运行界面3. 主要代码Private Sub guocheng_Click()Form4.ShowForm1.HideForm2.HideForm3.HideForm5.HideEnd SubPrivate Sub kongjian_Click()Form5.ShowForm1.HideForm2.HideForm3.HideForm4.Hi

7、deEnd SubPrivate Sub shuzu_Click()Form3.ShowForm1.HideForm2.HideForm4.HideForm5.HideEnd SubPrivate Sub tuichu_Click()EndEnd Sub(二) 登录部分1. 设计原理桌面中label1为“欢迎您使用本程序”，command1为“输入密码”。使用inputbox函数弹出“请输入密码”，并且密码设置为“123”，如果输入错误，通过MsgBox (密码错误，请重新输入！)提醒用户。2. 运行界面3. 主要代码 Private Sub Command1_Click()Dim p As

8、Stringp = 1Do While p p = InputBox(请输入密码) If p = 123 Then Form2.Show Exit DoElse MsgBox (密码错误，请重新输入！) End IfLoopEnd Sub(三) 数组应用部分1. 设计原理首先设置界面，使用label,command,text进行界面普通设计，将form_load中“清空”、“升序排列”、“将序排列”、“最大值”、“最小值”enable属性设计为false，当点击“输入”用msgbox进行提示输入数据无效，请重新输入，请输入第 & i & 个数。，点击相应的command 键即可进行操作。2.

9、运行界面3. 主要代码 Private Sub Command1_Click() Dim i As Long Dim S As String Call Do_升序 For i = 1 To 10 S = S & a(i) & , Next S = Left(S, Len(S) 2) Text1.Text = SEnd SubPrivate Sub Do_升序() Dim l As Long Dim t As Long Dim i As Long Dim j As Long Dim k As Long l = 10 For i = 1 To l - 1 k = i For j = i + 1 T

10、o 1 If a(k) a(j) Then k = j End If Next If k i Then t = a(i) a(i) = a(k) a(k) = t End If NextEnd SubPrivate Sub Do_降序() Dim l As Long Dim t As Long Dim i As Long Dim j As Long Dim k As Long l = 10 For i = 1 To l - 1 k = i For j = i + 1 To l If a(k) a(j) Then k = j End If Next If k i Then t = a(i) a(

11、i) = a(k) a(k) = t End If NextEnd SubPrivate Sub Command2_Click() Dim i As Long Dim S As String Call Do_降序 For i = 1 To 10 S = S & a(i) & , Next S = Left(S, Len(S) - 2) Text2.Text = SEnd SubPrivate Sub Command3_Click() Call Do_升序 Text3.Text = a(10)End SubPrivate Sub Command4_Click() Call Do_升序 Text4

12、.Text = a(1)End SubPrivate Sub Command5_Click() Dim v As String Dim i As Integer i = 1 Do v = InputBox(请输入第 & i & 个整数: ) If IsNumeric(v) Then a(i) = Val(v) i = i + 1 Else MsgBox 输入数据无效，请重新输入，请输入第 & i & 个数。, vbInformation End If Loop Until i 10 Command1.Enabled = True Command2.Enabled = True Command3.Enabled = True Command4.Enabled = True Command5.Enabled = False Command6.Enabled = TrueEnd SubPrivate Sub Command6_Click() Text1.Text = Text2.Text = Text3.Text = Text4.Text =