VB综合实验报告模板

1、精选优质文档-倾情为你奉上实 验 报 告 课程名称 程序设计语言(VB) 实验学期 至 学年 第 学期学生所在系部 年级 班级 学生姓名 学号 任课教师 实验成绩 计算机系制程序设计语言（VB） 课程综合性实验报告开课实验室：基础四 年 月 日实验题目Visual Basic综合应用程序开发一、实验目的1、 掌握数组的应用：（1） 数组的定义（2） 数组的基本操作，包括数组的输入输出、数组元素的比较、求平均值、数组的排序等。2、 会使用过程编程和字符串操作（1） sub过程的定义与调用（2） function过程的定义调用（3） 字符串的大小写转换操作3、 掌握基本控件的使用包括常用标准控件的

2、使用，如标签、按钮、文本框、单选按钮、滚动条等。4、 掌握菜单和工具栏的使用二、设备与环境硬件：多媒体计算机软件：Windows 2000以上的操作系统、Visual Basic集成开发环境三、实验内容1. 先进入欢迎界面，在屏幕上显示"欢迎您使用本程序"，并弹出密码框，等待输入密码。（5）2. 密码正确后进入系统主界面，主界面包括“数组应用”、“过程应用”、“控件应用”和“退出”等菜单，并提供相关工具栏或命令按钮。（10）3. “数组应用”菜单中包括“数组操作”子菜单，单击此菜单，弹出“数组操作”对话框，如图1所示。（35，每个按钮功能为5）。题目描述如下：在名称为“数组

3、操作”的窗体上有一个label控件，4个text控件及7个命令按钮，功能如下：(1) 开始启动工程时，界面上除“输入”及“返回”按钮之外，其他按钮均不可用（灰色显示）。(2) 单击“输入”按钮之后，利用inputbox让用户连续且必须输入10个整数。若输入为非数字符号，则给出警告“输入数据无效，请重新输入，请输入第n个数”。(3) 输入完毕后，“输入”按钮变灰，其他变为可用状态。(4) 按相应的按钮可分别将输入的数据升序或降序排列，及求最大、最小值，并在右侧对应的文本框中显示（注意用A（10）存放最大数，A（1）存放最小数）。(5) 单击“清空”按钮将所有文本框清空。4. “过程应用”菜单中包

4、括“字符转换”子菜单，单击此菜单，弹出“字符转换”对话框，如图2所示，要求必须将“大小写转换”功能定义为一个sub过程，通过调用该过程完成大小写转换。（25）题目描述如下：在“字符转换”窗体上有两个文本框、三个单选按钮和一个命令按钮。运行时，在text1中输入若干个大写和小写字母，并选中一个单选按钮，再单击“转换”按钮，则按选中的单选按钮的标题进行转换，结果放入text2。5. 单击“控件应用”菜单，弹出“数学运算”对话框，如图3所示。（25%）题目描述如下：在“数学运算”窗体上有一个名称为cmd1、标题为“计算”的命令按钮；两个水平滚动条，名称为hs1和hs2，其max属性均为100，min

5、属性为1；四个标签，名称为lab1、lab2、lab3和lab4，标题分别为“运算数1”、“运算数2”、“运算结果”和空白；此外还有一个包含四个单选按钮的控件数组，名称为opt1，标题为“+”、“-”、“*”和“/”。程序运行后，移动两个滚动条中的滚动框，用滚动条的当前值作为运算数，如果选中一个单选按钮，然后单击命令按钮，相应的计算结果将显示在lab4中。6. 单击“退出”菜单，退出程序运行。四实验结果及分析设计步骤如下1. 先进入欢迎界面，在屏幕上显示"欢迎您使用本程序"，并弹出密码框，等待输入密码。设计界面如下图所示：代码如下：Private Sub Text1_Los

6、tFocus() If Text1.Text <> "*" Then MsgBox "账号必须为*", , "警告" Text1.Text = "" Text1.SetFocus End IfEnd SubPrivate Sub Command1_Click() Dim i As Integer If Text2.Text <> "1234" Then i = MsgBox("密码错误", 5 + vbExclamation, "警告&quo

7、t;) If i <> 4 Then End Else Text2.Text = "" Text2.SetFocus End If End If Form1.Hide Form2.ShowEnd Sub2密码正确后进入系统主界面，主界面包括“数组应用”、“过程应用”、“控件应用”和“退出”等菜单，并提供相关工具栏或命令按钮。代码如下：Private Sub kongjianyingyong_Click()Form5.ShowEnd SubPrivate Sub shuzucaozuo_Click()Form3.ShowEnd SubPrivate Sub tui

8、chu_Click()Form2.HideEnd SubPrivate Sub zifuzhuanhuan_Click()Form4.ShowEnd Sub3.“数组应用”菜单中包括“数组操作”子菜单，单击此菜单，弹出“数组操作”对话框。代码如下：Dim mark(1 To 10) As IntegerPrivate Sub Command3_Click()Form3.HideForm2.ShowEnd SubPrivate Sub Form_Load()Command1.Enabled = TrueCommand2.Enabled = FalseCommand3.Enabled = True

9、Command4.Enabled = FalseCommand5.Enabled = FalseCommand6.Enabled = FalseCommand7.Enabled = FalseEnd Sub（1）单击“输入”按钮之后，利用inputbox让用户连续且必须输入10个整数。若输入为非数字符号，则给出警告“输入数据无效，请重新输入，请输入第n个数”Private Sub Command1_Click()For i = 1 To 10 v = InputBox("请输入第" & i & "个整数 ") If Not IsNumer

10、ic(v) Then MsgBox "输入数据无效，请重新输入，请输入第" & i & "个数。", vbInformation v = InputBox("请输入第" & i & "个整数 ") End If mark(i) = vNext i Command1.Enabled = FalseCommand2.Enabled = TrueCommand3.Enabled = TrueCommand4.Enabled = TrueCommand5.Enabled = TrueComm

11、and6.Enabled = TrueCommand7.Enabled = TrueEnd Sub（2）升序排列Private Sub Command4_Click()n = UBound(mark)For i = 1 To n - 1For j = i + 1 To nIf mark(j) < mark(i) Then t = mark(i): mark(i) = mark(j): mark(j) = tEnd IfNext jNext iFor i = 1 To n Text1 = Text1 & mark(i) & ","Next iEnd Su

12、b（3）降序排列Private Sub Command5_Click()n = UBound(mark)For i = 1 To n - 1For j = i + 1 To nIf mark(j) > mark(i) Then t = mark(i): mark(i) = mark(j): mark(j) = tEnd IfNext jNext iFor i = 1 To n Text2 = Text2 & mark(i) & ","Next iEnd Sub（4）最大值Private Sub Command6_Click() Max = mark(1

13、0)For i = 1 To 10If mark(i) > Max Then Max = mark(i)Next iText3.Text = Val(Max)End Sub（5）最小值Private Sub Command7_Click()Min = mark(1)For i = 1 To 10If mark(i) < Min Then Min = mark(i)Next iText4.Text = Val(Min)End Sub（6）清空Private Sub Command2_Click()Text1.Text = ""Text2.Text = "

14、"Text3.Text = ""Text4.Text = ""End Sub4.“过程应用”菜单中包括“字符转换”子菜单，单击此菜单，弹出“字符转换”对话框，如图。所示，要求必须将“大小写转换”功能定义为一个sub过程，通过调用该过程完成大小写转换代码如下：Dim a, bPrivate Sub Option2_Click()a = Text1.Textb = UCase(a)End SubPrivate Sub Option3_Click()a = Text1.Textb = LCase(a)End SubPrivate Sub Comman

15、d1_Click()Dim n% If Option1 Then n = Len(Text1) For i = 1 To n k = Mid(Text1, i, 1) If "a" < k And k < "z" Then b = UCase(k) ElseIf "A" < k And k < "Z" Then b = LCase(k) End If Text2 = Text2 & b Next i End IfIf Option2 Then Text2.Text = bEnd If

16、If Option3 ThenText2.Text = bEnd IfEnd Sub5.单击“控件应用”菜单，弹出“数学运算”对话框，如图所示。代码如下：Dim a As Integer, b As Integer, c As IntegerPrivate Sub HScroll1_Change()a = HScroll1.ValueLabel1.Caption = "运算数1:" & " " & aEnd SubPrivate Sub HScroll2_Change()b = HScroll2.ValueLabel2.Caption =

17、 "运算数2:" & " " & bEnd 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