(完整版)VB程序设计实验报告
VB程序设计的实验报告
VB程序设计的实验报告VB程序设计的实验报告引言：VB（Visual Basic）是一种广泛应用于Windows操作系统的编程语言，它具有简单易学、功能强大的特点，被广泛用于开发各种桌面应用程序。
本文将介绍我在VB程序设计实验中的学习和实践经验。
一、实验目的本次实验的主要目的是让我们学习并掌握VB程序设计的基本知识和技巧，通过实践编写简单的应用程序，提升我们的编程能力和解决问题的能力。
二、实验环境在实验中，我们使用了Visual Studio作为开发工具。
Visual Studio是一款功能强大的集成开发环境，它提供了丰富的开发工具和调试功能，极大地方便了我们的开发工作。
三、实验内容在实验中，我们主要完成了以下几个实验任务：1. 界面设计：首先，我们需要设计程序的界面，包括窗体、按钮、文本框等控件的布局和样式。
通过拖拽控件、设置属性等操作，我们可以快速创建出一个漂亮的界面。
2. 事件处理：接下来，我们需要为各个控件添加事件处理程序。
当用户点击按钮或输入文本时，我们的程序需要做出相应的反应。
通过编写事件处理程序，我们可以实现各种功能，如计算、数据处理等。
3. 数据存储：在实验中，我们还学习了如何使用VB提供的数据库连接工具，将数据存储到数据库中。
通过编写SQL语句，我们可以实现数据的增删改查等操作，方便我们对数据进行管理和分析。
四、实验心得通过本次实验，我对VB程序设计有了更深入的了解和掌握。
在实验中，我遇到了一些困难和问题，但通过不断尝试和学习，我最终成功完成了实验任务。
首先，我学会了如何使用VB的开发工具和调试功能。
Visual Studio提供了许多方便的功能，如自动补全、调试器等，它们大大提高了我们的开发效率和代码质量。
其次，我学会了如何设计程序的界面。
一个好的界面设计可以使用户更加方便地使用我们的程序，并提升用户体验。
通过实验，我学会了如何合理布局控件、设置属性，使界面更加美观和易用。
最重要的是，我学会了如何编写事件处理程序。
VB实验报告(含答案)
If Check1.Value = 1 Then
Label1.FontBold = True
Else
Label1.FontBold = False
End If
If Check2.Value = 1 Then
Label1.FontItalic = True
Else
Label1.FontItalic = False
图1.1实验1-1运行界面
三．实验结果：对象属性设置
对象
属性
属性值
说明
Form1
caption
我的第一个vb程序
窗体
Label1
caption
请输入姓名
标签
Text1
text
““
文本框
Command1
caption
显示
命令按钮
Command2
caption
清除
命令按钮
四．实验思考：
1.标签label控件设置的属性代码有哪些？
加粗
复选框
Check2
Caption
倾斜
复选框
Check3
Caption
下划线
复选框
Check4
Caption
删除线
复选框
四．实验思考：
1.模拟简易计算器Command1命令的单击事件的程序代码是什么？
Private Sub Command1_Click()
Dim a!, b!
Dim c As String
If Option1.Value = True Then
Label1.FontName = “宋体”
ElseIf Option2.Value = True Then
VB程序设计实验报告
(此文档为word格式，下载后您可任意编辑修改！) 湖北文理学院VB程序设计课程实验报告学院物电学院专业自动化班级 1211学号姓名王亮任课教师王福林1实验一、VB控制结构一、实验目的1.掌握选择语句的使用2.掌握循环语句的使用二、实验内容1、选择语句程序1：创建应用程序。
要求：单击窗体可弹出输入框，任意输入三个数，然后按从小到大的顺序输出到窗体上。
程序2：创建应用程序。
要求：单击窗体可弹出一输入框，任意输入一个正整数，在窗体上显示该整数是否为素数的字样。
2、循环语句程序3：创建应用程序。
要求：单击窗体可显示一个由“*”组成的平行四边形图案。
程序4：创建应用程序，其功能是显示所有的水仙花数。
三、实验记录程序1如下：Private Sub Command1_Click()Dim a As Integer, b As Integer, c As Integer, t As Integer '定义a,b,c,t为整形变量Cls '清屏a = Val(InputBox("请输入第1个数：")) '给a赋值b = Val(InputBox("请输入第2个数：")) '给b赋值c = Val(InputBox("请输入第3个数：")) '给c赋值If a > b Then t = a: a = b: b = t '如果a>b，把a的值赋给t，b的值赋给a，t的值赋给bIf b > c Then '嵌套，如果b>ct = b: b = c: c = t '把b的值赋给t，b的值赋给c，t的值赋给cIf a > b Then '再次嵌套，如果a>bt = a '把a的值赋给ta =b 'b的值赋给ab = t 't的值赋给bEnd IfEnd IfPrint a; "、"; b; "、"; c '输出 a "、"b;"、"; cEnd SubPrivate Sub Command2_Click()End '退出程序End Sub程序2如下：Private Sub Command1_Click()Dim i As Integer, k As Integer, n As Integer '定义整形变量i,k,n n = Val(InputBox("任意输入一个整数：")) '给n输入值i = 2 'i初始值为2k = Int(n 2) '为整形的二分之一n的值赋给kDo While i <= k '当i小于且等于k If n Mod i = 0 Then '如果n模除i为0 Exit Do '退出循环Elsei = i + 1 '否则i加1End IfLoopIf i > k Then Print n; "是素数" Else Print n; "不是素数" '如果i大于k，输出n的值是素数，否则输出n的值不是素数End SubPrivate Sub Command2_Click()End ' 退出程序End Sub程序3如下：Private Sub Form_Click()Dim m As Integer, n As Integer '定义整形变量m,nCls '清屏PrintFor m = 1 To 6 'm赋初始值为1，当m大于6停止 Print Tab(15 - m); '第15 - m列开始输出For n = 1 To 8 'n赋初始值为1，当n大于6停止 Print "*"; '输出*Next nPrint "" '输出空格Next mEnd Sub程序4如下：Private Sub Command1_Click()Dim i As Integer, m As Integer, n As Integer, k As Integer, sxh As Intege '定义整形变量i,m,n,k,sxkFor i = 100 To 999 'i赋初始值为100，当i大于999，停止循环 m = i \ 100 'i除以100，结果赋给mn = (i Mod 100) \ 10 'i模除100后的值再除以10,最后结果赋给n k = i Mod 10 'i模除10后的值赋给k3sxh = m ^ 3 + n ^ 3 + k ^ 3 'sxh作算术运算If sxh = i Then '如果sxh等于iPrint i, '输出i的值End IfNext iEnd SubPrivate Sub Command2_Click()End '程序结束End Sub四、实验总结实验二、窗体和标准控件一、实验目的1.掌握命令按钮、标签及文本框控件的使用方法2.掌握复选框、单选按钮及框架控件的使用方法3.掌握列表框和组合框控件的使用方法4.掌握滚动条和定时器控件的使用方法二、实验内容1、命令按钮、标签及文本框控件的使用方法程序1：在窗体上建立两个标签、两个文本框和两个命令按钮，运行界面如左图所示。
VB程序设计课程设计报告完整版
VB程序设计课程设计报告完整版VB程序设计课程设计报告摘要：本课程设计报告旨在介绍一个完整的VB程序设计项目，该项目主要以某个实际问题为背景，通过使用VB编程语言进行设计和实现。
报告主要包括需求分析、设计方法、编程实现、测试和总结等内容。
一、引言VB（Visual Basic）是一种面向对象的事件驱动编程语言，它广泛用于Windows操作系统平台上的软件开发。
VB具有简单易学、强大的功能和丰富的开发工具，被广大开发者用于各种程序设计领域。
本课程设计旨在通过一个实际问题，让学生掌握VB程序设计的基本方法和技巧。
项目要求学生设计一个小型图书管理系统，实现对图书的添加、查询、借阅和归还等功能。
二、需求分析1. 功能需求：a) 添加图书：包括图书名称、作者、出版社等信息。
b) 查询图书：根据图书名称或作者查询图书信息。
c) 借阅图书：借阅图书并更新库存信息。
d) 归还图书：归还已借阅的图书并更新库存信息。
2. 数据需求：a) 图书信息：包括图书名称、作者、出版社、ISBN号码和库存数量等。
b) 借阅信息：包括图书名称、借阅人、借阅日期和归还日期等。
3. 用户界面需求：a) 主界面：显示各种操作选项。
b) 添加图书界面：用于输入图书信息。
c) 查询图书界面：用于输入查询条件并显示查询结果。
d) 借阅图书界面：显示已借阅图书信息并提供借阅操作。
e) 归还图书界面：显示已借阅图书信息并提供归还操作。
三、设计方法1. 模块划分：根据功能需求将程序划分为若干模块，包括主模块、添加图书模块、查询图书模块、借阅图书模块和归还图书模块等。
2. 数据结构设计：使用适当的数据结构存储图书和借阅信息。
3. 界面设计：根据用户界面需求，设计相应的窗体，并在窗体上放置控件，实现各种操作功能。
4. 事件处理：根据用户的操作，编写相应的事件处理程序，实现各种功能。
四、编程实现1. 程序架构：使用VB的Windows Forms应用程序模板创建项目，并按照模块划分设计程序结构。
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程序设计》实验单元二实验报告专业班级：新闻班姓名：学号：指导教师：完成时间：一、实验题目数组和自定义类型二、实验环境Visual 程序软件三、实验目的1.掌握数组的声明、数组元素的引用。
2.掌握固定长度数组和动态数组的使用差别。
3.掌握数组常用的操作和常用算法。
4.掌握列表框和组合框的使用。
5.掌握自定义类型及数组的使用。
四、实验内容1.随机产生30—100（包括30、100）的10个正整数，求最大值、最小值、平均值，并显示整个数组的只和结果。
2.随机产生20个学生成绩，统计各分数段人数。
即0~59、60~69、70~79、80~89、90~100，并显示结果。
五、实验步骤1.打开VB界面，建立工程2.在窗体窗口设置界面3.属性窗口控件对象属性设置4.编写程序代码5.运行程序及调试6.程序建立，保存工程文件六、实验结果第1题：第2题：七、实验体会编程虽然有些复杂，但是在一步步的学习探索中我也找到了其中的乐趣，看着自己一点点地在进步，真的很兴奋很激动。
2.在这次实验课题中，我在学习、参考书中的案例的同时，还上网查询了一些小的课外知识，例如：如何改变Print之后的字体颜色、字号、位置等并加以尝试、应用。
在我实验成功时，内心真的是抑制不住地开心。
3.当然，实验的过程，并不是一帆风顺的，然而，只要静下心来，仔细思考，问题总能解决的。
“世上无难事，只怕有心人”，在今后的学习中，我也要敢于面对困难、着力解决，把困难看成挑战，努力超越自我。
4.数组很奇妙，我想更进一步地了解它、用VB使用它，掌握常用的操作和算法。
VB实验报告一2024
VB实验报告一（二）引言概述：VB（VisualBasic）是一种面向对象的程序设计语言，广泛应用于Windows操作系统中的软件开发。
本实验报告旨在详细介绍VB实验一（二）的内容与实验结果，并对其进行分析和总结。
正文内容：一、实验目的1.1学习VB语言的基本语法和开发环境的使用；1.2熟悉VB的界面设计和事件处理；1.3掌握VB语言中的数据类型、循环结构和条件语句。
二、实验步骤2.1搭建VB开发环境2.1.1并安装VisualStudio；2.1.2配置VB开发环境。
2.2界面设计2.2.1创建一个新的WindowsForms应用程序；2.2.2在设计窗口中添加控件，如按钮、文本框等；2.2.3设置控件的属性和事件。
2.3事件处理2.3.1编写相应按钮的Click事件处理程序；2.3.2实现按钮的功能，如计算、跳转等。
2.4数据类型的应用2.4.1声明和初始化变量；2.4.2使用不同数据类型进行计算和赋值。
2.5循环结构和条件语句2.5.1使用For循环和While循环实现特定功能；2.5.2利用条件语句实现条件判断。
三、实验结果3.1搭建VB开发环境成功；3.2界面设计符合预期，控件添加和属性设置正确；3.3事件处理程序编写无误，按钮功能正常；3.4数据类型的应用正确，计算和赋值结果准确；3.5循环结构和条件语句的实现正确。
四、分析与讨论4.1在搭建VB开发环境的过程中，可能会遇到版本兼容性问题，需要根据实际情况进行相应的配置和调整；4.2界面设计的合理布局与控件的正确设置对用户体验起到重要作用；4.3事件处理程序的编写需要注意语法的正确性和逻辑的严谨性；4.4在应用不同数据类型进行计算和赋值时，要注意数据类型的转换和溢出的问题；4.5循环结构和条件语句的合理运用能够简化程序的逻辑结构，提高代码的可读性和可维护性。
五、总结通过本次VB实验一（二）的学习和实践，我对VB语言的基本语法和开发环境的使用有了更加深入的了解。
大学vb程序实习报告【精选5篇】
大学vb程序实习报告【精选5篇】大学vb程序实习报告【篇1】一、学习VB程序设计的方法(1)保持良好的学习心态1、要有自信，自强，积极主动学习。
2、克服畏难情绪，树立学好程序设计的信心(2)要有良好的学____惯1、课前预习，认真听课并适当做些笔记，课后要认真复习消化所学内容，完成作业。
2、VB程序设计的入门学习并不难，但却是一个十分重要的过程，因为程序设计思想就在这时形成的，良好的程序设计习惯也在这个阶段养成。
(3)学习程序设计要注重理解一些重要的概念。
VB程序设计本身并不复杂，翻开一本程序设计学习的书籍，看到的无非就是变量，函数，条件语句，循环语句等概念。
但要真正能进行程序设计，需要深入理解这些概念。
因此，在程序入门阶段还是应该重视概念的学习。
(4)自己动手编写程序程序设计入门阶段要经常自己动手抄写或编写一些小程序，亲自动手进行程序设计是创造性思维应用的体现，是培养逻辑思维的好方法。
因此一定要多动手编写程序，而且要从小程序开发开始，逐渐提高写程序的能力。
(5)阅读，借签别人设计的好程序多看别人设计好的程序代码，包括教材上的例题程序。
在读懂别人程序后，要想他为什么这么设计能不能将程序修改完成更多的功能则可以学到别人优秀的东西，帮助自己提高自身水__。
(6)VB程序设计学习的重点1、程序设计课是高强度的脑力劳动，不是听会的，也不是看会的，而是练会的。
2、只有自己动手，编写一些程序，才会有成就感，进而对课程产生兴趣，学起来才比较从容。
等你在编写大量程序之后，我想过二级肯定没问题，不过能不能做到真知灼见，运用自如我就不敢说了。
3、动手能力的培养是这门课和以往课程最大的不同之处。
重点放在思路，算法，编程构思和程序实现上。
语句只是表达工具，要求堂上积极思考，尽量当堂学懂，并做到灵活应用。
)上机调试程序应注意的几点：1、上机前应认真把实验题在用纸上做一做(包括窗体界面设计，事件代码的编写等)2、每次上机后应总结，把没有搞清楚的问题记录下来，请教老师或同学。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
湖北文理学院VB程序设计课程实验报告学院物电学院专业自动化班级 1211学号姓名王亮任课教师王福林实验一、VB控制结构一、实验目的1.掌握选择语句的使用2.掌握循环语句的使用二、实验内容1、选择语句程序1：创建应用程序。
要求：单击窗体可弹出输入框，任意输入三个数，然后按从小到大的顺序输出到窗体上。
程序2：创建应用程序。
要求：单击窗体可弹出一输入框，任意输入一个正整数，在窗体上显示该整数是否为素数的字样。
2、循环语句程序3：创建应用程序。
要求：单击窗体可显示一个由“*”组成的平行四边形图案。
程序4：创建应用程序，其功能是显示所有的水仙花数。
三、实验记录程序1如下：Private Sub Command1_Click()Dim a As Integer, b As Integer, c As Integer, t As Integer '定义a,b,c,t为整形变量Cls '清屏a = Val(InputBox("请输入第1个数：")) '给a赋值b = Val(InputBox("请输入第2个数：")) '给b赋值c = Val(InputBox("请输入第3个数：")) '给c赋值If a > b Then t = a: a = b: b = t '如果a>b，把a的值赋给t，b的值赋给a，t的值赋给bIf b > c Then '嵌套，如果b>ct = b: b = c: c = t '把b的值赋给t，b 的值赋给c，t的值赋给cIf a > b Then '再次嵌套，如果a>b t = a '把a的值赋给ta =b 'b的值赋给ab = t 't的值赋给bEnd IfEnd IfPrint a; "、"; b; "、"; c '输出 a "、"b;"、"; cEnd SubPrivate Sub Command2_Click()End '退出程序End Sub程序2如下：Private Sub Command1_Click()Dim i As Integer, k As Integer, n As Integer '定义整形变量i,k,nn = Val(InputBox("任意输入一个整数：")) '给n输入值i = 2 'i初始值为2k = Int(n / 2) '为整形的二分之一n的值赋给kDo While i <= k '当i小于且等于kIf n Mod i = 0 Then '如果n模除i 为0Exit Do '退出循环Elsei = i + 1 '否则i加1End IfLoopIf i > k Then Print n; "是素数" Else Print n; "不是素数" '如果i大于k，输出n的值是素数，否则输出n的值不是素数End SubPrivate Sub Command2_Click()End ' 退出程序End Sub程序3如下：Private Sub Form_Click()Dim m As Integer, n As Integer '定义整形变量m,nCls '清屏PrintFor m = 1 To 6 'm赋初始值为1，当m大于6停止Print Tab(15 - m); '第15 - m列开始输出For n = 1 To 8 'n赋初始值为1，当n大于6停止Print "*"; '输出*Next nPrint "" '输出空格Next mEnd Sub程序4如下：Private Sub Command1_Click()Dim i As Integer, m As Integer, n As Integer, k As Integer, sxh As Intege'定义整形变量i,m,n,k,sxkFor i = 100 To 999 'i赋初始值为100，当i大于999，停止循环m = i \ 100 'i除以100，结果赋给mn = (i Mod 100) \ 10 'i模除100后的值再除以10,最后结果赋给nk = i Mod 10 'i模除10后的值赋给k sxh = m ^ 3 + n ^ 3 + k ^ 3 'sxh作算术运算If sxh = i Then '如果sxh等于iPrint i, '输出i的值End IfNext iEnd SubPrivate Sub Command2_Click()End '程序结束End Sub四、实验总结实验二、窗体和标准控件一、实验目的1.掌握命令按钮、标签及文本框控件的使用方法2.掌握复选框、单选按钮及框架控件的使用方法3.掌握列表框和组合框控件的使用方法4.掌握滚动条和定时器控件的使用方法二、实验内容1、命令按钮、标签及文本框控件的使用方法程序1：在窗体上建立两个标签、两个文本框和两个命令按钮，运行界面如左图所示。
要求在运行时，两个文本框中的内容均不允许用户编辑；如果用户在“原文”的文本框中选定所需的内容，单击“复制”命令按钮，则在“输出”文本框中输出选定的内容；如果单击“结束”命令按钮，则结束程序的运行。
程序2：建立如下图所示的窗体，要求程序能对输入的“性别”和“邮政编码”、“电话号码”进行校验（性别只允许输入“男”或“女”，邮政编码必须是6位数字，电话号码必须是8位数字）。
如果输入的数据不符号要求，则清空相应的文本框，并将插入点置于该框中。
所有的校验工作可以在单击“退出”按钮后进行，此时，程序检查所有文本框，如有空白或内容错误，要求继续输入，否则结束程序。
2、复选框、单选按钮及框架控件的使用程序3：在窗体中有一个标签，内有若干文字，要求通过窗体中的复选框或单选按钮确定标签中文字的字体（宋体或黑体）、字号（10号或12号）和字形（是否粗体、是否斜体），请建立应用程序。
3、列表框和组合框控件的使用程序4：编写程序。
要求：程序运行初期，在窗体左边的列表框中生成10个由小到大排列的10到100之间的随机整数，单击窗体中“右移”按钮，则左边列表框的10个数移动到右边的列表框中，并由大到小排列，此时“左移”按钮变为有效。
单击“左移”按钮，右边列表框中的数又被移到左边的列表框中。
单击“退出”按钮或按ESC键，可退出程序。
窗体示意图如下。
程序5：建立应用程序，窗体如下图所示，有一个简单组合框、三个命令按钮、一个文本框和一个标签。
要求：●单击“添加”按钮可将输入的内容添加到组合框中●单击“删除”按钮可删除组合框中选定的项目●单击“统计人数”按钮，可将组合框中的项目总数输出到右边的文本框●单击“退出”或按ESC键退出程序4、滚动条和定时器控件的使用程序6：编写程序，运行时的界面如下图所示。
要求：无论是拖动滚动条上的滚动框，还是单击滚动箭头（数值递增或递减1）或滚动条（数值递增或递减10），均可以在相应的标签中反映当前数值，并动态计算出均值；单击“Reset”按钮，可将各滚动条上的滚动框复位。
程序7：利用定时器控件设计一个数字式时钟应用程序。
三、实验记录程序1如下：Private Sub Form_Load()Text1.Text = "文本框是一个多功能控件，可以显示或者接收用户输入的文本信息。
" '给文本框指定内容End SubPrivate Sub Command1_Click()Text2.Text = Text1.SelText '在Text1中选定文本赋给Text2End SubPrivate Sub Command2_Click()End '程序结束End Sub程序2如下：Private Sub Command1_Click()If Text1 = "" Then'如果Text1没有输入，当前的激活文本区（焦点）在Text1Text1.SetFocusExit Sub '退出过程End IfIf Text2 = "" Then'如果Text2没有输入，当前的激活文本区（焦点）在Text2Text2.SetFocusExit Sub '退出过程End IfIf Text3 = "" Then'如果Text3没有输入，当前的激活文本区（焦点）在Text3Text3.SetFocusExit Sub '退出过程End IfIf Text4 = "" Then'如果Text4没有输入，当前的激活文本区（焦点）在Text4Text4.SetFocusExit Sub '退出过程End IfIf Text5 = "" Then'如果Text5没有输入，当前的激活文本区（焦点）在Text5Text5.SetFocusExit Sub '退出过程End IfEnd '退出程序End SubPrivate Sub Text2_LostFocus()If Text2.Text <> "" Then '如果Text2有输入If Text2.Text <> "男" And Text2.Text <> "女" Then'如果Text2输入的内容不是“男”和“女”Text2.Text = "" '则Text2不输出Text2.SetFocus '当前的激活文本区（焦点）在Text2End IfEnd IfEnd SubPrivate Sub Text4_LostFocus()If Text4.Text <> "" Then '如果Text4有输入If Len(Text4.Text) <> 6 Or Not IsNumeric(Text4.Text) Then '如果Text4输入的内容不是数值或者字符串的长度不为6Text4.Text="" '则Text4不输出Text4.SetFocus '当前的激活文本区（焦点）在Text4End IfEnd IfEnd SubPrivate Sub Text5_LostFocus()If Text5.Text <> "" Then '如果Text5有输入If Len(Text5.Text) <> 8 Or Not IsNumeric(Text5.Text) Then'如果Text5输入的内容不是数值或者字符串的长度不为8Text5.Text="" '则Text5不输出Text5.SetFocus '当前的激活文本区（焦点）在Text5End IfEnd IfEnd Sub程序3界面设计(程序设计界面和运行结果界面)：程序3如下：Private Sub Option1_Click()Text1.FontName = "宋体" 'Text1中的内容为宋体End SubPrivate Sub Option2_Click()Text1.FontName = "黑体" 'Text1中的内容为黑体End SubPrivate Sub Option3_Click()Text1.FontSize = 10 'Text1中的内容为字号大小为10号End SubPrivate Sub Option4_Click()Text1.FontSize = 12 'Text1中的内容为字号大小为12号End SubPrivate Sub Check1_Click()If Check1.Value = 1 Then '如果Check1被选中Text1.FontBold = True 'Text1中的内容变为粗体ElseText1.FontBold = False 'Text1中的内容不变End IfEnd SubPrivate Sub Check2_Click()If Check2.Value = 1 Then '如果Check2被选中Text1.FontItalic = True 'Text1中的内容变为斜体ElseText1.FontItalic = False 'Text1中的内容不变End IfEnd Sub程序4如下：Private Sub Command1_Click()Dim i As Integer, Last As Integer '定义i和Last为整型变量 Last = List1.ListCount - 1'将List1.ListCount - 1 中被选中的内容赋給LastFor i = 0 To Last '统计i大于Last 时停止循环List2.AddItem List1.List(Last - i)'将List2中被选中的内容添加到List1中List1.RemoveItem Last - i '将List1中被选中的内容删除Last - i个Next iCommand1.Enabled = False 'Command1按钮无效Command2.Enabled = True 'Command2按钮有效End SubPrivate Sub Command2_Click()Dim i As Integer, Last As Integer '定义i和Last为整型变量Last = List2.ListCount - 1'将List2.ListCount - 1 中被选中的内容赋給LastFor i = 0 To Last '统计i大于Last 时停止循环List1.AddItem List2.List(Last - i)'将List1中被选中的内容添加到List2List2.RemoveItem Last - i '将List2中被选中的内容删除Last - i个Next iCommand1.Enabled = True 'Command1按钮有效Command2.Enabled = False 'Command2按钮无效End SubPrivate Sub Command3_Click()Unload Me '程序退出End SubPrivate Sub Form_Load()Dim i As IntegerFor i = 0 To 9 '统计i大于9 时停止循环RandomizeList1.AddItem Int((90 * Rnd) + 10) '给List1中添加内容Next iEnd Sub程序5如下：Private Sub Combo1_Change()If Combo1.Text <> "" Then '如果Combo1输入内容不为空 Command1.Enabled = True 'Command1按钮点击有效Command1.Default = True 'Command1为默认按钮ElseCommand1.Enabled = False '否则，Command1按钮点击无效，成灰色状态End IfEnd SubPrivate Sub Combo1_Click()Command2.Enabled = True 'Command2按钮点击有效Command2.Default = True 'Command2为默认按钮Combo1.SetFocus '赋焦点光标在停放Combo1里End SubPrivate Sub Command1_Click()Combo1.AddItem Combo1.Text '添加内容到Combo1中Combo1.Text = "" 'Combo1输入内容为空Combo1.SetFocus '赋焦点光标在停放Combo1里End SubPrivate Sub Command2_Click()x = Combo1.ListIndex '将Combo1中的内容赋給xCombo1.RemoveItem x '将Combo1中的内容中的x删除 If x < Combo1.ListCount Then '如果x小于Combo1.ListCount 中的值Combo1.ListIndex = x '将x中的内容赋給Combo1ElseIf x > 0 Then '否则，如果x大于0Combo1.ListIndex = x - 1 'x-1赋给Combo1ElseCommand2.Enabled = False '否则，Command2按钮点击无效Command2.Default = False 'Command2不为默认按钮End IfEnd IfText1.SetFocus '赋焦点光标在停放text1里End SubPrivate Sub Command3_Click()Text1.Text = Combo1.ListCount '将Combo1中的内容赋給Text1 Combo1.SetFocus '赋焦点光标在停放Combo1里End SubPrivate Sub Command4_Click()End '程序结束End Sub程序6如下：Private Sub Command1_Click()HScroll1.Value = 0 '将数值0赋给滚动条HScroll1HScroll2.Value = 0 '将数值0赋给滚动条HScroll2HScroll3.Value = 0 '将数值0赋给滚动条HScroll3End SubPrivate Sub HScroll1_Change()Label5.Caption = HScroll1.Value'滚动条HScroll的数值显示在标签Label5上Average '求其平均值End SubPrivate Sub HScroll2_Change()Label6.Caption = HScroll2.Value'滚动条HScrol2的数值显示在标签Label6上Average '求其平均值End SubPrivate Sub HScroll3_Change()Label7.Caption = HScroll3.Value'滚动条HScrol3的数值显示在标签Label7上Average '求其平均值End SubPrivate Sub Average()Dim Temp As Double '定义双精度变量TempTemp = (HScroll1.Value + HScroll2.Value + HScroll3.Value) / 3'将滚动条HScroll，HScroll2，HScroll3的平均值之和除以3,结果赋给TempLabel8.Caption = CStr(Temp) 'Temp的均值显示在标签Label8上End Sub程序7如下：Private Sub Form_Load()Label1.Caption = Time '在窗体上，将现在的时间赋给标签Label1End SubPrivate Sub Timer1_Timer()Label1.Caption = Time'在时间控件Time1把现在的时间显示在标签Label1上End Sub四、实验总结实验三、过程一、实验目的1．掌握过程的定义和调用的方法2．掌握典型问题的算法求解二、实验内容1、过程的定义和调用程序1：创建应用程序，要求对输入的非负整数m和n，如果m>=n，则显示组合数的值，否则显示数据出错。