华北科技学院VB综合实验报告(完美版).docVIP

华北科技学院计算机学院综合性实验 实验报告 课程名称 程序设计语言《VB) 实验学期 2012 至2013 学年第二 学期 学生所在系部 年级 2012级 专业班级 学生姓名 学号 任课教师 吴晓丹 实验成绩 计算机学院制 《程序设计语言(VB)》课程综合性实验报告 开课实验室：基础实验室 2013年6月28曰 实验题目 Visual Basic综合应用程序开发 —、实验目的 1＞掌握数组的应用： 数组的定义 数组的基本操作，包括数组的输入输出、数组元素的比较、求平均值、数组的排序等。 2、 会使用过程编程和字符串操作 sub过程的定义与调用 function过程的定义调用 字符串的大小写转换操作 3、 掌握基本控件的使用 包括常用标准控件的使用，如标签、按钮、文本框、单选按钮、滚动条等。 4、 掌握菜单和工具栏的使用 二、 设备与环境 硬件：多媒体计算机 软件：Windows 2000以上的操作系统、Visual Basic集成开发环境 三、 实验内容 1、 先进入欢迎界面，在屏幕上显示“欢迎您使用本程序”，并弹出密码框，等待输入密码。 2、 密码正确后进入系统主界谢，主界面包括“数组应用”、“过程应用”、“控件应用”和“退出” 等菜单。 3、 “数组应用”菜单中包括“数组操作”子菜单，单击此菜单，弹出“数组操作”窗体。 4、 “过程应用”菜单中包括“字符转换”子菜单，单击此菜单，弹出“字符转换”窗体。 5、 单击“控件应用”菜单，弹出“数学运算”窗体。 6、 单击“退出”菜单，退出程序运行。 四、实验结果及分 1、开始界面 Q Forml 欢迎皮用4?專 (1)程序代码 Private Sub Form Click () Form2. Show End sub 点击界而进入密码输入窗口 登录 口 | 回 输入密码“12345”点击“登入”即可进入主界面 工程1 1-^-1 如不是进入密码弹岀窗口1 ，重新瑜入 程序代码 Private Sub Command 1 _Click() If Text 1.Text = M 12345 Then Form4.Show Else MsgBox (n密码错误，重新输入n) End If End Sub 2,主页面 (1)界面设计 密码正确后进入系统主界面，主界面包括“数组应川”、“过61应用”、“控件和“退出”等菜傘，及“数组 应用” “字符应“控件应用”等子菜单并提供相关工具栏或命令按钮。 (2)程序代码如下 Private Sub 过程应用_(：1^±() Form5.Show End Sub Private Sub 控件应用_(2以10 Form6.Show End Sub Private Sub 数组应用_(21化1() Form3.Show End Sub (3)学习收获:学会使用“菜单编辑器”，做好form2和form3、form4、form5、 form6之间的链接。 3数组应用 (1)界面设计 (1)界面设计 此部分在界面上右七个按钮和四个text，当按“输入10个数”时界面上会出 现inputbox提示你依次输入10个数字。如果输入的不是数字会跳出提示框。 工程1 请输入第1个整数 取消 驗| 输入完10个数字后点击“升序排列” “降序排列” “最大值” “最小值”会在相应 TEXT中显示结果点击“清除”即可清除TEXT中的数字。 (2)程序代码 Dim mark (1 To 10) As Integer Private Sub Commandl_Click0 n = UBound (mark) For i = 1 To n - 1 For j = i + 1 To n If mark (j) mark⑴ Then t = mark (i): mark⑴=mark (j): mark (j) = t End If Next j Next i For i = 1 To n Tcxtl = Tcxtl mark(i) , 〃 Next i End Sub Private Sub Command2_Click() n = UBound(mark) For i = 1 To n - 1 For j = i + 1 To n If mark(j) mark(i) Then t = mark(i): mark(i) = mark(j): mark(j) = t End If Next j Next i For i = 1 To n Text2 = Text2 mark(i) , 〃 Next i End Sub Private Sub Command3_Click() Max = mark(10) For i = 1 To 10 If mark⑴ Max Th