VB综合实验报告.doc

华北科技学院计算机学院综合性实验报告华北科技学院计算机学院综合性实验实 验 报 告课程名称 程序设计语言(VB) 实验学期 2011 至 2012 学年 第 二 学期学生所在系部 安全工程学院 年级 11级 专业班级 安全B113 学生姓名 胡良兆 学号 201110044314 任课教师 崔新伟 实验成绩 计算机学院制程序设计语言(VB)课程综合性实验报告开课实验室： 基础实验室 2012年 6 月 29日实验题目Visual Basic综合应用程序开发一、实验目的1、 掌握数组的应用：（1） 数组的定义（2） 数组的基本操作，包括数组的输入输出、数组元素的比较、求平均值、数组的排序等。2、 会使用过程编程和字符串操作（1） sub过程的定义与调用（2） function过程的定义调用（3） 字符串的大小写转换操作3、 掌握基本控件的使用包括常用标准控件的使用，如标签、按钮、文本框、单选按钮、滚动条等。4、 掌握菜单和工具栏的使用二、设备与环境硬件：多媒体计算机软件：Windows 2000以上的操作系统、Visual Basic集成开发环境三、实验内容1、 先进入欢迎界面，在屏幕上显示欢迎您使用本程序，并弹出密码框，等待输入密码。2、 密码正确后进入系统主界面，主界面包括“数组应用”、“过程应用”、“控件应用”和“退出”等菜单。3、“数组应用”菜单中包括“数组操作”子菜单，单击此菜单，弹出“数组操作”窗体。4、“过程应用”菜单中包括“字符转换”子菜单，单击此菜单，弹出“字符转换”窗体。5、单击“控件应用”菜单，弹出“数学运算”窗体。6、单击“退出”菜单，退出程序运行。四、实验结果及分析设计步骤如下所示。 1、设计系统欢迎界面。通过设置窗体的picture属性，为窗体添加背景图片。在窗体上添加两个标签，分别修改其caption属性。设计界面如下图所示。图：系统欢迎界面编写代码，单击窗体开始系统登陆。Form1的click事件代码如下所示：Sub Form_click()Form2.show End Sub2、密码框界面设计。在窗体上添加一个标签，一个文本框，一个命令按钮。设计界面如下图所示。图：系统登陆界面如果在文本框中输入的用户名和密码都正确，则成功登陆系统主界面；假若用户名或密码错误，则给出相应错误提示。“确定”按钮的click事件代码如下所示：If Text1.Text = 12345 ThenForm3.ShowElseMsgBox (密码错误，请重新输入)End If3、 系统主界面设计。在菜单编辑器中编辑数组应用、过程应用、控件应用及她们的子菜单数组操作、字符转换、数学运算。设计界面如下图所示： 图3：系统主界面若单击数组应用下的数组操作，则弹出数组操作界面若单击过程应用下的字符转换，则弹出字符转换界面若单击控件应用下的数组操作，则弹出数学运算界面数组应用的数组操作的click事件代码如下所示：Form4.Show过程应用的字符转换的click事件代码如下所示：Form5.Show控件应用的数学运算的click事件代码如下所示：Form6.Show4.数组操作界面设计。在窗体上添加七个命令按钮，一个标签，四个文本框。设计界面如下图所示：首先单击输入按钮，输入十个数，再单击升序、降序、最大值、最小值、清空、返回等按钮进行操作，可得到不同的结果。设计界面如下图所示： 图4：数组操作界面“输入”按钮的click事件代码如下所示：For i = 1 To 10 Do X = InputBox(输入数组) If IsNumeric(X) = True Then Exit Do Else MsgBox 请输入数字 End If Loop a(i) = X Next iCommand5.Enabled = FalseCommand1.Enabled = TrueCommand2.Enabled = TrueCommand3.Enabled = TrueCommand6.Enabled = TrueCommand4.Enabled = True“升序排列”按钮的click事件代码如下所示For i = 1 To 10 max = a(i) m = i For j = i + 1 To 10 If a(j) max Then max = a(j) m = (j) End If Next j t = a(i) a(i) = a(m) a(m) = t Next i For i = 1 To 10 Text2.Text = Text2.Text & & a(i) Next i“最大值”按钮的click事件代码如下所示Dim maxa! mina = a(1) For i = 1 To 10 If a(i) maxa Then maxa = a(i) End If Next i Text3.Text = maxa“最小值”按钮的click事件代码如下所示mina = a(1) For i = 1 To 10 If a(i) = 97 And Asc(s) = 97 And Asc(s) = 65 And Asc(s) = 90 Then s = Chr(Asc(s) + 32) End If End If Y = Y & s6.数学运算界面设计。在窗体上添加六个标签，两个滚动条，一个命令按钮，四个option按钮。设计界面如下图所示： 图6：数学运算界面拖动滚动条一和二，再选择一个option，单击计算命令按钮，运算结果显示在标签四。“计算”按钮的click事件代码如下所示Dim a, b, c As SinglePrivate Sub HScroll1_Change()a = HScroll1.ValueLabel5.Caption = HScroll1.ValueEnd SubPrivate Sub HScroll2_Change()b = HScroll2.ValueLabel6.Caption = HScroll2.ValueEnd SubPrivate Sub Option1_Click()c = a + bEnd SubPrivate Sub Option2_Click()c = a - bEnd SubPrivate Sub Option3_Click()c = a * bEnd SubPrivate Sub Option4_Click()c = a / bEnd SubPrivate Sub Command1_Click()Label4.Caption = If Option1 Then Label4.Caption = a & + & b & = & cEnd IfIf Option2 Then Label4.Caption = a & - & b & = & cEnd IfIf Option3 Then Label4.Caption = a & * & b & = & cEnd If