vb综合实验报告
VB综合实验报告
华北科技学院计算机学院综合性实验实验报告课程名称程序设计语言(VB)实验学期 2015 至 2016 学年第二学期学生所在系部安全工程学院年级 2015级班级安卓B151 学生姓名徐艳强学号 201510044218 任课教师李冬艳实验成绩计算机学院制《程序设计语言（VB）》课程综合性实验报告题目描述如下：在“数学运算”窗体上有一个名称为cmd1、标题为“计算”的命令按钮；两个水平滚动条，名称为hs1和hs2，其max属性均为100，min属性为1；四个标签，名称为lab1、lab2、lab3和lab4，标题分别为“运算数1”、“运算数2”、“运算结果”和空白；此外包含四个单选按钮，标题为“+”、“-”、“*”和“/”。
程序运行后，移动两个滚动条中的滚动框，用滚动条的当前值作为运算数，如果选中一个单选按钮，然后单击命令按钮，相应的计算结果将显示在label4中。
6.单击“退出”菜单，退出程序运行。
四．实验结果及分析1.菜单(1)功能主要功能就是把每个小程序串联起来，使其连续、具有整体性。
分为数组应用、控件应用、过程应用、和退出四个一级菜单。
在数组应用一级菜单下有数组操作二级菜单、控件应用一级菜单下有选择器和数学运算两个二级菜单、过程应用一级菜单下有字符转换二级菜单。
其中一级菜单中，单击退出后实现结束程序的目的，二级菜单对应每个程序，单击二级菜单会实现出现对相应的程序窗体。
(2)界面抓取(3)实现代码Private Sub 数学运算_Click()数学运算窗体.ShowEnd SubPrivate Sub 数组操作_Click()数组操作窗体.ShowEnd SubPrivate Sub 退出_Click()EndEnd SubPrivate Sub 选择器_Click()选择器窗体.ShowEnd SubPrivate Sub 字符转换_Click()字符转换窗体.ShowEnd Sub2.初始界面（1）功能人员分工介绍。
VB最综版实验报告
学生学号0120811360801 实验课成绩学生实验报告书实验课程名称可视化程序设计A开课学院自动化学院指导教师姓名刘红丽学生姓名朱明学生专业班级自动化0808班2009-- 2010学年第二学期实验课程名称：_可视化程序设计______实验项目名称窗体界面设计和控件的基本操作实验成绩实验者朱明专业班级自动化0808班组别01同组者无实验日期2010 年4 月22 日一部分：实验预习报告（包括实验目的、意义，实验基本原理与方法，主要仪器设备及耗材，实验方案与技术路线等）1、实验的目的和意义1）了解VB可视化编程的基本概念（对象的属性、事件和方法）；2）熟悉VB可视化编程的环境（集成开发环境、控件工具箱、工程窗口、属性窗口、窗体设计器、代码窗口、立即窗口、窗体布局窗口）；3）熟练掌握VB可视化编程的步骤（新建一个工程、添加控件、设置属性、编写代码、运行工程、修改工程、保存工程的编译)；4）熟悉控件的基本操作和控件的画法(在窗体上画一个控件、控件的缩放和移动、控件的复制与删除、控件的布局）。
2、实验的基本内容1）运行窗体时，显示出“欢迎您来到xxx的VB世界! ”；2）要求在“xxx”处添加自己的班级学号和姓名；3）实现显示、隐藏图片和标语的功能。
3、实验仪器设备及耗材计算机一台；打印机及耗材4、实验方案和技术路线（1）分析应用程序需要实现的功能，绘制TOE表：（2）绘制界面草图：（3）编写各控件的程序代码；（4）程序调试和排错；（5）运行结果分析。
程序要实现的功能：点击按钮，实现相应功能，显示“欢迎您来到xxx的VB世界! ”其中，TOE表和界面草图分别为：TOE表任务对象事件显示信息Command1 单击退出Command2 单击以对象为主线界面草图第二部分：实验过程记录（可加页）（包括实验原始数据记录，实验现象记录，实验过程发现的问题等）1、程序代码Private Sub Command1_Click()Label1.Caption = "欢迎来到自动化0808班朱明的VB世界！"End SubPrivate Sub Command2_Click()EndEnd Sub2、实验结果（界面运行结果截图）主界面：3、实验过程中出现的问题1、当使用print命令时，按钮点击多少次，语句就会重复出现多少次？解决办法：使用Label控件，Label1.Caption = "欢迎来到自动化0808班朱明的VB世界！"2、在加入背景图片后，若将窗口最大化，而图片却局限在某个角落，不能同时最大化？解决办法：图像控件的属性没设好，应该把图像控件的stretch 属性设为true 。
vb综合性实验报告
综合性实验实验名称：高中成绩管理系统专业班级：电子商务110 4 学生姓名：学号：指导教师：李琳1需求分析程序对谕入的学生基本情况建立数据.库，且拥有对新谕入的学生的基本情况进行添加.对己有数据库中的数据进行删减、修改、管理、洌览的功能。
2运行环境WINDOWS XPM统：VB6 . 0 :2开发工具和编程语言V isual Basi c 6. 0 语言；4系统设计Fo rml的代码：Dim ask As I n tegerP r i v a t e Sub C omman d l^ClickQAdodc 1 .R e c o rdset M oveFirs tEnd SubPriv a te S u b Com m a n d 1 0 _Clic k ()F orm2.Sho wEnd SubPri v at e Sub C omman d 1 1_C 1 I ck <)Textl o Text = ,,,fT ext 2 o Tex t =八"Text 3.T ext 二””Text4.Te x t = |F n丁ext 5 ° Text = M”T e x 16 .TextText? • T e xt =…Texts. TextE n d Su bPi 1 vate Sub Command2_C lickQAdodcl.Reco r d s et.・ Mo v ePrevi o usIf Adodcl o Re c o rd s e t r BOF Then Adodcl.R e cords e t.Move First End SubPri v ate Sub Command 3 _Clic k〔〉Adodcl o Rec or d set.Mo v e N e xtIf Ad o d cl.R e cordset > EOF The n Adodcl. Re cord set. M o v Last End SubPrivat e Sub C o mm an d4 Cl i c k ()Adodcl « R e co r dsetc Mo v eLas tEndSu bPn v ate S Li b Corrimand5_C 1 i c k Q ^Adodcl. R e cor d s et 0 Ad d N e w End SubP riva t e S u b C ommarid6 Cli c k()a s k = M s gBox ( '■删除否？ 解CK对话框出现Yes 、No 按钮I f ask = 6 TlieiiMs g Box 对话框中Yes 按钮&Adod c 1 .Recordset.Delete方法3 Adodc 1 .Re c ordset.Mov e Ne x t ;移动记录指针刷新显示屏 Q I f Adod cl. Re cordsct ・ E OF Then Adod c 1。
VB综合实验报告
一、需求分析该程序用于图书信息的管理，可以对图书信息进行添加、更改和查询操作二、运行环境WINDOWS XP系统；VB6.0环境三、开发工具和编程语言Visual Basic 6.0开发环境和Visual Basic语言四、系统设计（1）程序的组织结构（包括窗体、模块及其功能）。
该系统共包括两个窗体（form1,form2）和一个标准模块（module1）。
窗体1是主窗体，用于图书信息的添加，修改和显示，窗体2是查询窗口，用于指定信息的同类图书查询，标准模块用于建立自定义类型变量用来存放每本图书的信息。
（2）然后针对每个窗体（模块）详细描述设计思路。
①标准模块用于定义存放图书信息的变量，下面是系统中标准模块的代码：Type booktypenumber As String * 6name As String * 10sort As String * 4language As String * 1state As String * 1End TypePublic book As booktype②窗体1中设计了一个菜单栏用于备份图书信息文件（copy）、启动查询窗口（query）和退出系统（exit）；窗体左侧设计了两个文本框（text1,text2）、一个列表框（combo1）和两组单选按钮（option1—option4）用于录入图书信息，中间的部分设计了一个文本框（text3）和四个按键（command1—command4）用于向文件中添加图书信息或显示、更改指定编号的信息；窗体的右侧显示了当前文件中存放的信息数目和为方便逐条查看图书信息设计的四个按键（command5—command8）。
下面是系统中窗体1部分的代码：装入窗体时的代码：Private Sub Form_Load()Open App.Path & "\book.dat" For Random As #1 Len = Len(book)Label6.Caption = LOF(1) / Len(book)Close #1Form1.Move (Screen.Width - Form1.Width) / 2, (Screen.Height - Form1.Height) / 2End Sub实现菜单功能的代码：Private Sub copy_Click()Open App.Path & "\book.dat" For Random As #1 Len = Len(book)Open App.Path & "\bookcopy.dat" For Random As #2 Len = Len(book) record_no = 1Do While Not EOF(1)Get #1, record_no, bookPut #2, record_no, bookrecord_no = record_no + 1LoopClose #1Close #2End SubPrivate Sub query_Click()Form1.HideForm2.ShowEnd SubPrivate Sub exit_Click()EndEnd Sub八个功能按键时的代码：Private Sub Command1_Click()If Val(Text3.Text) > Val(Label6.Caption) ThenMsgBox "输入的数据有误", 48, "警告"ElseOpen App.Path & "\book.dat" For Random As #1 Len = Len(book)record_no = Val(Text3.Text)Get #1, record_no, bookText1.Text = book.numberText2.Text = If Trim(nguage) = "1" ThenOption1.Value = TrueElseOption2.Value = TrueEnd IfIf Trim(book.state) = "1" ThenOption3.Value = TrueElseOption4.Value = TrueEnd IfCombo1.Text = book.sortClose #1End IfEnd SubPrivate Sub Command2_Click()record_no = Val(Text3.Text)With book.number = Text1.Text.name = Text2.Text.sort = Combo1.Text.language = IIf(Option1.Value, "1", "0").state = IIf(Option3.Value, "1", "0")End WithOpen App.Path & "\book.dat" For Random As #1 Len = Len(book) Put #1, record_no, bookClose #1End SubPrivate Sub Command3_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Combo1.Text = ""Option1.Value = FalseOption2.Value = FalseOption3.Value = FalseOption4.Value = FalseEnd SubPrivate Sub Command4_Click()With book.number = Text1.Text.name = Text2.Text.sort = Combo1.Text.language = IIf(Option1.Value, "1", "0").state = IIf(Option3.Value, "1", "0")End WithOpen App.Path & "\book.dat" For Random As #1 Len = Len(book) record_no = LOF(1) / Len(book) + 1Label6.Caption = record_noPut #1, record_no, bookClose #1End SubPrivate Sub Command5_Click()Open App.Path & "\book.dat" For Random As #1 Len = Len(book) record_no = 1Text3.Text = record_noGet #1, record_no, bookText1.Text = book.numberText2.Text = Combo1.Text = book.sortIf nguage = "1" ThenOption1.Value = TrueElseOption2.Value = TrueEnd IfIf book.state = "1" ThenOption3.Value = TrueElseOption4.Value = TrueEnd IfClose #1End SubPrivate Sub Command6_Click()Open App.Path & "\book.dat" For Random As #1 Len = Len(book) record_no = Val(Text3.Text) - 1If record_no = 0 ThenMsgBox "当前记录为第一条记录", 64, "提示"record_no = 1End IfText3.Text = record_noGet #1, record_no, bookText1.Text = book.numberText2.Text = Combo1.Text = book.sortIf nguage = "1" ThenOption1.Value = TrueElseOption2.Value = TrueEnd IfIf book.state = "1" ThenOption3.Value = TrueElseOption4.Value = TrueEnd IfClose #1End SubPrivate Sub Command7_Click()Open App.Path & "\book.dat" For Random As #1 Len = Len(book) record_no = Val(Text3.Text) + 1If record_no > LOF(1) / Len(book) ThenMsgBox "当前记录为最后一条记录", 64, "提示"record_no = LOF(1) / Len(book)End IfText3.Text = record_noGet #1, record_no, bookText1.Text = book.numberText2.Text = Combo1.Text = book.sortIf nguage = "1" ThenOption1.Value = TrueElseOption2.Value = TrueEnd IfIf book.state = "1" ThenOption3.Value = TrueElseOption4.Value = TrueEnd IfClose #1End SubPrivate Sub Command8_Click()Open App.Path & "\book.dat" For Random As #1 Len = Len(book) record_no = LOF(1) / Len(book)Text3.Text = record_noGet #1, record_no, bookText1.Text = book.numberText2.Text = Combo1.Text = book.sortIf nguage = "1" ThenOption1.Value = TrueElseOption2.Value = TrueEnd IfIf book.state = "1" ThenOption3.Value = TrueElseOption4.Value = TrueEnd IfClose #1End Sub③窗体2是指定图书信息查询窗体，共设计了一个列表框（combo1）和一个文本框（text1）用于指定查找的图书信息，两个功能按键（command1,command2）用于确定查找信息和退出查询窗体，一个图片框（picture1）用来显示查找到的信息。
vb程序实验报告
vb程序实验报告VB 程序实验报告一、实验目的通过本次实验，深入了解和掌握 Visual Basic（VB）程序设计的基本概念、语法和编程技巧，提高解决实际问题的能力，培养逻辑思维和创新能力。
二、实验环境操作系统：Windows 10开发工具：Microsoft Visual Basic 60三、实验内容本次实验主要包括以下几个方面的内容：1、界面设计使用 VB 的窗体设计器，创建一个简单的用户界面，包含文本框、按钮、标签等控件，并设置其属性，如字体、颜色、大小等，以实现美观和友好的用户交互。
2、变量与数据类型在程序中声明不同类型的变量，如整数型（Integer）、字符串型（String）、布尔型（Boolean）等，并进行赋值和运算操作，理解不同数据类型的特点和适用场景。
3、控制结构运用顺序结构、选择结构（IfThenElse、Select Case）和循环结构（ForNext、WhileWend）编写程序，实现条件判断和重复执行的功能，例如计算阶乘、判断素数、打印九九乘法表等。
4、数组与过程定义数组来存储和处理大量的数据，掌握数组的声明、初始化和遍历操作。
同时，学习使用过程（Sub 过程和 Function 过程）来封装可重复使用的代码块，提高程序的可读性和可维护性。
5、文件操作实现对文本文件的读写操作，包括创建文件、写入数据、读取数据和关闭文件，了解文件处理在实际应用中的重要性。
四、实验步骤1、界面设计（1）打开 Microsoft Visual Basic 60，新建一个标准 EXE 工程。
（2）在窗体上添加所需的控件，如文本框 Text1、Text2，命令按钮 Command1、Command2，标签 Label1 等。
（3）通过属性窗口设置各个控件的属性，如 Text1 的 Text 属性为空，Command1 的 Caption 属性为“计算”，Label1 的 Caption 属性为“结果：”等。
VB实验报告格式
VB实验报告格式1.实验目的本实验旨在通过编写VB程序来熟悉VB的基本语法和应用，加深对VB的理解，并实践运用对话框、输入输出、控制流程等基本知识。
2.实验环境本实验使用的开发环境是Visual Studio。
VB是Visual Basic的简称，是一种用于Windows操作系统的事件驱动编程语言。
它以易学易用和可视化设计为特点，广泛用于Windows客户端应用程序开发。
3.实验内容及步骤本次实验的主要内容是开发一个简单的计算器程序，实现基本的数学运算和功能。
步骤如下：步骤一：创建一个新的VB项目，选择Windows Forms应用程序模板。
步骤二：通过拖放控件的方式在窗体上创建计算器的界面，包括数字按钮、运算符按钮和显示框等。
步骤三：为每个按钮的Click事件添加对应的处理函数，实现按钮点击后的相应操作，如数字按钮的输入、运算符按钮的操作、等号按钮的计算等。
步骤四：编写计算逻辑函数，将用户输入的表达式进行计算，并返回结果。
步骤五：在界面上显示计算结果。
4.实验思考在实验过程中，我遇到了一些问题，并进行了一些思考。
首先，我发现在进行运算时，用户可能会输入错误的表达式，如除数为零、表达式不完整、运算符错误等。
为了提高程序的容错能力，我在进行运算前添加了一些检测，如判断是否为零除法、判断表达式是否合法等。
其次，我也思考了如何将程序的功能和用户交互进行优化。
在这个计算器程序中，我添加了一些便捷的操作，如点击清零按钮可以清空当前表达式，点击删除按钮可以删除一个字符等。
5.实验结果经过编写代码和调试运行，我成功地实现了一个简单的计算器程序。
用户可以通过点击界面上的按钮输入表达式，然后点击等号按钮进行计算，最后显示计算结果。
6.实验总结通过本次实验，我更加深入地了解了VB语言的基本语法和应用。
通过实践编写了一个计算器程序，不仅加深了对VB的理解，还提高了编程能力和解决问题的能力。
同时，本次实验也让我体会到了软件开发的过程，包括需求分析、设计、开发和测试等。
vb实验报告3
For i = 1 To List1.ListCount - 1
If min > List1.List(i) Then min = List1.List(i): j = i
Next i
List1.RemoveItem j
End Sub
Private Sub随机产生_Click()
If min > List1.List(i) Then min = List1.List(i): n = i
ave = ave + List1.List(i)
Next i
Form2.Text1 = List1.List(n)
Form2.Text2 = List1.List(m)
Form2.Text3 = Format(ave / List1.ListCount, "0.00")
CommonDialog1.ShowOpen
i = Shell("C:\WINDOWS\NOTEPAD.exe " + CommonDialog1.FileName, vbNormalFocus)
End Sub
2.源代码如下
Private Sub结束_Click()
End
End Sub
Private Sub删除最大值_Click()
Form2.Show
End Sub
3.源代码如下：
Private Sub experimentG2_Click()
Form2.Show
End Sub
Private Sub experimentG3_Click()
Form3.Show
End Sub
VB实验报告
软件技术实验指导实验一：名称：VB的感性认识实验要求：1）在屏幕上开辟一个窗口（文本框），窗口的上部放置一个标签，标签中显示：“欢迎使用Visual Basic6.0中文版”。
窗口的下部有三个按钮，左边按钮中标有“开始显示”，中间按钮中标有“清屏”，右边按钮中标有“结束”。
当鼠标单击左边按钮时，文本框中显示“欲穷千里目，更上一层楼！”如果单击中间按钮，则清除文本框中显示的内容，单击右边按钮则程序结束。
2）单击“清屏”后，让光标出现在文本框中，此时往文本框中输入若干文字，例如“您好”，然后单击窗体，使得在窗体的指定位置上显示在文本框中输入的文字。
3）如果将1）中单击左边按钮后文本框中显示的“欲穷千里目，更上一层楼！”改为“白日依山尽，黄河入海流，欲穷千里目，更上一层楼！”此时文本框在一行中将显示不下所有文本，请试调整该文本框的“Multiline”属性，并将文本框纵向距离调整到可容纳两行以上文字。
此时再次执行程序，观察执行结果所发生的变化。
实验设计知识点：文本框的双向作用（即输入与输出）；窗体的双重作用（容器与输出）；事件过程的编写；输入输出的简单实现；窗体、文本框、标签、命令按钮等基本控件的常用属性的动、静态设置等。
(只为工大人民准备的) 附加内容：建立我的工具箱：该程序用于对Windows中的常用工具例如记事本、画图板等等进行方便的管理。
程序使用者只需单击界面上的相应图标按钮，就可以启动相应的Windows程序。
实验步骤：1）在窗体中央放入四个命令按钮，并选中4个按钮控件令其全部处于激活状态，单击“格式”菜单，选择“统一尺寸”子菜单下的“两者都相同”选项，可使所有被选中的按钮的外观尺寸统一；2）分别修改4个按钮的Caption属性分别为：记事本，画图板、写字板和媒体播放，并且将四个按钮的Style属性值取为Graphical属性以便在按钮控件上可以添加小图标和设置背景颜色。
在图标库中给四个按钮选择放入合适的小图标。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
华北科技学院安全工程学院综合性实验实验报告课程名称计算机技术基础（VB）实验学期2010 至2011 学年第 2 学期学生所在系部安全工程学院年级大一专业班级采矿B101学生姓名朱寅学号201010014112任课教师李芙玲实验成绩《计算机技术基础（VB）》课程综合性实验报告开课实验室：基础实验室2010 年7 月6日实验题目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中。
6、单击“退出”菜单，退出程序运行。
四、实验结果及分析1.欢迎界面的设置进入欢迎界面，需要输入密码12345，运行程序。
密码输入必须为数字，否则弹出消息对话框，提示需输入数字。
若密码输入正确，登陆下一界面。
欢迎界面如图：主要代码为：Private Sub Command1_Click()If Text1.Text <> "12345" ThenText1.SetFocusText1.Text = ""MsgBox "请输入正确的密码"ElseUnload MeForm2.ShowEnd IfEnd Sub2.主界面的设置在欢迎界面点击登录后弹出主界面，利用工具——菜单编辑器依次编辑“数组应用”、“过程应用”、“控件应用”和“退出”等菜单，在数组应用下添加“数组操作”子菜单，在过程应用下添加“字符转换”子菜单，二者均链接有快捷键。
当点击数组操作时，主界面关闭，数组操作界面弹出，当点击字符转换时，主界面关闭，字符转换界面弹出。
在主界面窗体上添加了图片，设置命令按钮。
运行界面如图：主要代码如下：Private Sub sc_Click()Unload MeForm3.ShowEnd SubPrivate Sub sxys_Click()Unload MeForm5.ShowEnd SubPrivate Sub tc_Click()EndEnd SubPrivate Sub zfzh_Click()Unload MeForm4.ShowEnd Sub3.数组操作界面的设置进入此界面，点击“输入”命令按钮，弹出inputbox对话框，用键盘依次输入10个数，然后“升序排列”“降序排列”、“最大值”、“最小值”等命令按钮均变为可用，“输入”按钮变为不可用，依次点击，实现排序，最值功能。
点击“清空”，“输入”变为可用，可再次应用。
主要代码如下：Private Sub Command2_Click()For i = 1 To 9imin = iFor j = i + 1 To 10If a(j) < a(imin) Then imin = jNext jt = a(i)a(i) = a(imin)a(imin) = tNext iFor i = 1 To 10m = Str(a(i))Text1.Text = Text1.Text + m + " "Next iEnd SubPrivate Sub Command1_Click()For i = 1 To 10m: a(i) = InputBox("请输入第" & i & "个数") If Not IsNumeric(a(i)) ThenMsgBox "输入必须为数字", , "警告"GoTo mEnd IfNext iCommand2.Enabled = TrueCommand3.Enabled = TrueCommand4.Enabled = TrueCommand5.Enabled = TrueCommand6.Enabled = TrueCommand1.Enabled = FalseFor i = 1 To 10a(i) = Val(a(i))Next iEnd SubPrivate Sub Command5_Click()Min = a(1)For i = 2 To 10If a(i) < Min Then Min = a(i)Next iText4.Text = MinEnd Sub运行效果如下图：4.字符转换界面的设置：在上面文本框中输入字符，选择单选按钮，决定转换的类别，然后点击“转换”命令按钮，转换后的内容在下文本框展现。
点击“返回”，则返回主界面。
在编写代码时应用函数子过程，主要代码如下：Sub dxzh(a)If Option2.Value Then a = UCase(Text1.Text)If Option3.Value Then a = LCase(Text1.Text)If Option1.Value Thenc = Len(a)For i = 1 To cm = Mid(a, i, 1)If Asc(m) <= Asc("z") And Asc(m) >= Asc("a") Thenn = UCase(m)ElseIf Asc(m) <= Asc("Z") And Asc(m) >= Asc("A") Thenn = LCase(m)End IfText2.Text = Text2.Text + nNext ia = Text2.TextEnd IfEnd SubPrivate Sub Command1_Click()Text2.Text = ""a = Text1.TextCall dxzh(a)Text2.Text = aEnd Sub运行界面如下图：5.数学运算界面的设置：拉动滚动条，分别选中两个运算数，再选择加减乘除单选按钮，点击“计算”则显示运算式并得出结果。
单击“返回”则退回主界面。
运行效果如下图：主要代码：Private Sub Command1_Click()m = Val(Label5.Caption)n = Val(Label6.Caption)If Option2.Value Then s = m + n: Label4.Caption = m & "+" & n & "=" & sIf Option4.Value Then s = m - n: Label4.Caption = m & "-" & n & "=" & sIf Option3.Value Then s = m * n: Label4.Caption = m & "*" & n & "=" & sIf Option1.Value Then s = m / n: Label4.Caption = m & "/" & n & "=" & sEnd SubPrivate Sub HScroll1_Change()Label5.Caption = HScroll1.ValueEnd SubPrivate Sub HScroll1_Scroll()Label5.Caption = HScroll1.ValueEnd SubPrivate Sub HScroll2_Change()Label6.Caption = HScroll2.ValueEnd SubPrivate Sub HScroll2_Scroll()Label6.Caption = HScroll2.ValueEnd Sub6.遇到的问题及解决办法：（1）.在窗体上插入图片时，标签总是覆盖住部分图片。