VB实训指导书
《V B实用教程》---实验指导书
《VB实用教程》实验指导书目录实验 1 设计简单的Visual Basic应用程序实验 2 Visual Basic语言基础实验 3 顺序结构程序设计实验 4 选择结构程序设计实验 5 循环结构程序设计实验 6 数组实验 7 过程实验 8 窗体实验 9 VB中的常用控件实验 10 文件系统实验 11 Visual Basic图形操作实验 12 建立和访问数据库实验1 设计简单的Visual Basic应用程序一、实验目的1.掌握启动和退出Visual Basic 6.0的方法。
2.掌握设计一个简单程序的基本步骤。
3.熟练掌握菜单栏、工具栏、窗体窗口、工具箱、工程资源管理器窗口和属性窗口的使用。
4.了解Visual Basic 6.0联机帮助的使用。
二、实验内容1. 设计一个简单程序：计算圆面积。
在上机调试程序过程中，掌握启动和退出Visual Basic 6.0的方法，初步掌握菜单栏、工具栏、窗体窗口、工具箱、工程资源管理器窗口和属性窗口的使用。
（1）启动Visual Basic 6.0。
启动Visual Basic 6.0的方法有两种：◆ 单击“开始”|“程序”|“Microsoft Visual Basic 6.0”；◆ 在桌面上双击MicrosoftVisual Basic 6.0快捷方式图标。
启动Visual Basic 6.0后，系统进入Visual Basic 6.0集成开发环境，并显示一个“新建工程”对话框，如图14-1-1所示，默认选择是建立标准工程（标准EXE ）。
（2）界面设计。
单击“打开”按钮，Visual Basic 6.0进入设计模式。
系统提供一个名为Form1的窗体，我们就在这个窗体上进行界面设计。
建立控件的方法为：双击工具箱上的命令按钮（CommandButton ），在窗体中出现一个带有“Command1”字样的命令按钮图形对象，用鼠标把它拖到窗体的合适位置；再次双击工具箱上的命令按钮（CommandButton ），在窗体中出现一个带有“Command2”字样的命令按钮图形对象，用鼠标把它拖到窗体的合适位置。
VB实验指导书
VB实验指导书实验一 VB集成环境及简单应用程序的建立一、实验目的1．掌握VB6.0的启动与退出。
2．了解VB6.0的集成开发环境，熟悉各主要窗口的作用。
3．了解VB6.0应用程序的开发过程。
4．理解VB中对象的概念。
5．掌握在VB6.0中使用帮助的方法。
二、实验内容1．练习Visual Basic 6.0的启动与退出。
2．熟悉Visual Basic 6.0的集成开发环境，了解各主要窗口的作用。
3．创建一个简单的VB应用程序，要求在窗体上显示“欢迎进入Visual Basic 6.0”。
4．练习在Visual Basic 6.0中使用帮助的各种方法。
三、问题讨论1．简述Visual Basic 6.0的集成开发环境中各主要窗口的作用。
2．简述创建VB应用程序的基本步骤。
实验二 Visual Basic语言基础一、实验目的⒈掌握Visual Basic的数据类型和变量定义方法；⒉正确使用Visual Basic的运算符和表达式；⒊掌握Visual Basic中数据输入、输出的方法；⒋掌握Visual Basic 常用函数的使用方法；⒌学会用赋值语句构造简单的顺序结构程序。
二、实验内容1．在窗体上显示下列表达式的值（设Amt变量为字符型，值为"a"；Bmt变量为整型，其值为3）。
① Bmt3② Bmt+23 ③ - Bmt ④ Bmt-12⑤ Bmt*Bmt ⑥ 10/Bmt ⑦ 10\Bmt ⑧ 9 Mod Bmt⑨ Amt & Bmt ⑩ Amt > Bmt2. 在窗体上显示下列函数的运行结果。
① cos45° ② e 3 ③ |-5|④ 字符"b"对应的ASCII 码值 ⑤ 系统日期和系统时间三、问题讨论1.VB 提供了哪些标准数据类型？2.VB 中如何识别日期常数？VB 能否识别“#2002年5月12日#”这样一个日期常数？3.逻辑型数据和其它的数据类型转换时如何转换，如其它的数据类型转换为Boolean 类型时，0会转换成什么逻辑值？当转换Boolean 值为其它的数据类型时，False 和True 将是什么？4.使用续行符应注意什么？实验三 顺序结构程序设计一、实验目的⒈ 掌握Visual Basic 语言中数据输入方法；⒉ 掌握Visual Basic 语言中数据输出方法；⒊ 正确使用Visual Basic 赋值语句； ⒋ 学会设计简单的顺序结构程序。
实习指导书-VB
实习指导书-VBVisual Basic程序设计实训指导书马红玲编二○一三年六月《Visual Basic程序设计》课程实训指导书一、实训课程：Visual Basic程序设计二、实训题目：图书管理系统的设计与开发三、实训时间和地点：一周，学院微机室四、实训指导书适用范围：11计算机班五、实训目的和要求1、实训目的通过《图书管理系统》应用软件程序设计，使学生掌握使用Visual Basic6.0进行系统开发设计的方法及步骤；学会在VB程序中访问数据库，添加、删除记录，生成数据报表；学会VB可视化编程的方法和各种控件的应用；掌握MDI窗体的设计方法；窗体中菜单栏、工具栏、状态栏的设计方法及代码编写、窗体的添加载入、工程文件的编译、工程打包及文件展开安装等知识。
2、实训要求设计《图书管理系统》应用软件，应能实现以下功能：? 程序运行，首先调用登陆窗口，接受用户输入的用户名和密码，若为合法用户，调用MDI主窗体，若为非法用户，当登录超过三次后，退出程序。
? MDI主窗体是一个多文档窗体，包含标题栏、菜单栏和状态栏。
单击相应的菜单命令，能完成相应功能：? 图书借还管理：包括图书借阅处理、图书归还管理和退出三项功能。
? 图书入库和查找：实现图书信息的添加、修改、删除和查找功能。
? 读者登记和查找：实现读者信息的添加、修改、删除和查找功能。
? 打印：实现打印借书证、打印图书清单功能? 设置系统用户：实现系统用户的添加、删除和修改功能。
六、实训软件环境和硬件环境1、硬件环境? 800MHz Intel Pentium III处理器（或同等处理器）及更高频率的处理器。
? 至少256MB的可用内存 ? 至少650MB可用磁盘空间 2、软件环境? 系统软件：Windows XP? 应用软件：Microsoft Visual Basic 6.0中文企业版七、实训方法和步骤：通过Microsoft Visual Basic 6.0中文企业版集成开发环境开发设计《图书管理系统》应用软件。
vb实验指导书
《Visual Basic面向对象程序设计〉第一部分实验大纲一、学时学分总学时：116 总学分：6 实验时数：32 实训课时（课程设计）：20二、实验的地位、作用和目的实验课是Visual Basic 面向对象程序设计的重要实践环节。
通过实验，使学生加深理解、验证、巩固课堂教学内容，加深对可视化编程思想的理解，强化Visual Basic对程序流程控制、常用控件的属性、事件、方法的理解和使用，通过简单练习和综合实验，发挥学生的想象力和创新能力。
三、实验对象本实验开设对象为计算机系的信息与管理专业、网络与多媒体专业及组装与维护专业的专科学生，本实验为必修课程。
四、基本原理及课程简介《Visual Basic 面向对象程序设计》以Visual Basic 6.0中文版为语言背景，通过实验进一步理解程序设计的基本知识，掌握可视化程序设计的基本思想以及会用VB开发工具设计一些实用的应用程序。
在本专业的教学计划中，它是一门专业主干课，本课程在教学内容方面着重基本理论、基本知识和基本方法，在培养实践能力方面着重设计构思和设计技能的基本训练，熟练上机操作能力和分析能力，其重点在于学生的编程能力、理论联系实际的能力、程序的调试能力及创新能力。
本实验课程共开设12个实验项目。
五、实验方式与基本要求实验方式：1、由任课教师讲清实验的基本目的、方法及要求2、实验前必须制定好上机步骤，弄清实验目的；3、实验每人每次一台计算机，每次均为2小时；实验要求：1.了解VB“事件驱动”的编程机制。
掌握程序设计语言的基本知识，包括数据类型，表达式，数组等。
2. 掌握结构化程序设计的基本知识，包括顺序结构，选择结构，循环结构，过程的程序设计方法及文件的操作。
3. 掌握面向对象程序设计的概念与方法，具有一定的程序开发能力。
4. 掌握程序的调试方法，具有处理程序错误的能力。
５、要求学生掌握可视化程序设计的基本思想及利用vb设计一些使用的应用程序。
VB第一部分实验指导书
VB第一部分实验指导书实验一Visual Basic集成开发环境和程序设计初步实验目的：1、了解Visual Basic系统对计算机软、硬件的要求。
2、掌握启动与退出Visual Basic的方法。
3、了解Visual Basic集成环境的组成，各部分的作用。
4、掌握建立、编辑和运行一个简单的Visual Basic应用程序的全过程。
5、掌握常用控件（文本框、标签、命令按钮）的应用。
6、感性认识控件（对象）、过程、事件、属性等的概念，初步认识窗体、控件、属性、过程在程序设计中的作用和关系。
实验内容：建立一个“标准exe”类型的应用程序，要求单击“确定”按钮，在屏幕上显示“您好，世界！”，单击“退出”按钮，退出应用程序。
界面如图1-1所示，以sy1.frm、sy1.vbp和sy1.exe文件保存到自己的软盘上。
1.复习相关知识：1) VB集成化开发环境2) 建立VB应用程序2.准确写出两事件代码，列出各控件所需属性（属性项目和属性值）。
实验步骤：1.Visual Basic 6.0中文版的启动与退出。
1启动：1）单击“开始”按钮，然后选择“程序”中“Microsoft Visual Basic6.0中文版”，单击即可。
或：单击桌面上“Microsoft Visual Basic 6.0中文版”图标，2）新建工程对话框，单击打开“标准exe”按钮，进入环境。
退出：1) 单击集成环境窗口右上角的关闭按钮。
2) 单击“文件”下拉菜单中的“退出”选项。
2.界面设计：（1）添加标签Label1。
（2）添加命令按钮Command1。
（3）添加命令按钮Command2。
（4）使用格式菜单，使用两命令按钮尺寸完全一样，并恰好处在窗体的中间2位置。
3.设置界面对象属性：可以通过用鼠标右键单击某一窗体或控件，在弹出的菜单中为其设置属性，也可以从属性窗口的对象列表框中选择要设置属性的对象。
1)设置Form窗体Caption属性为“Hello,World!”2)设置Command1按钮Caption属性为“确定”，名称属性为“OK”.3)设置Command2按钮Caption属性为“退出”，名称属性为“Cancel”。
VB实训指导书
VB中级工实训指导书编者：李进徐琴审定：目录任务一集成开发环境任务二常用标准控件任务三菜单与对话框任务四Windows API编程任务五数据库应用任务六动态链接库任务七ActiveX 控件附录任务一集成开发环境模块新建控件编辑可执行文件[操作要求]完成下列操作，并将操作结果按要求保存在指定文件夹。
1、工程的基本操作（1）创建一个标准EXE工程。
（2）修改工程名称为x2_01。
（3）在当前工程中移除窗体FORM1。
（4）在指定目录下新建名为X2_02的文件夹，并将当前工程保存在该目录下。
2、IDE的基本操作（1）添加名为MyForm的窗体到当前工程中，并将其设为启动窗体。
（2）在窗体MyForm中添加一个CommandButton控件。
（3）修改窗体MyForm的标题栏为MyForm，将CommandButton控件的显示文本改为Button，并放置在窗体MyForm的正中央。
（4）通过屏幕截图（按PrintScreen键）把操作结果保存成MyForm.bmp文件，并保存到当前工程保存的目录下。
3、制作可执行文件（1）设置当前工程的属性，将版本号设为1.0.1。
（2）将当前工程编译为可执行文件X2_01.exe，存放于当前工程保存的目录下。
4、部署应用程序（1）启动打包和展开向导，部署当前应用程序。
（2）提示是否重新编译程序时，选择否。
（3）包类型为标准安装包。
在当前工程保存目录下新建名为package 的文件夹，将生成的安装包文件存放在该文件夹下。
生成单个压缩文件。
安装程序标题和脚本名称为x2_01，其余选项接受默认设置。
拓展：将commandbutton改为TextBox、Label、DeiveListBox、DirListBox、FileListBox、ComboBox、Hscrollbar、VscrollBar、Timer、4个Option、4个Check、Shape、Data、pictureBox、listbox、line、Image、Frame、OLE控件。
VB实验指导书
实验一、VB环境与顺序设计实验一、实验目的：1.熟悉VB的集成开发环境2.掌握开发VB应用程序的基本步骤3.学习窗体、标签、文本框和命令按钮的使用二、实验内容：1. 探索菜单栏，工具栏，工具箱，属性窗口，工程资源管理器窗口，代码窗口的使用。
2.编写一个简单的文本缩放程序，图形界面包括一个文本框，一个标签和三个命令按钮。
标签提示向文本框中输入文字，两个命令按钮可连续放大或缩小文本框中的文字，第三个命令按钮可以将文本框文字大小恢复到初始状态。
据具体运行界面如下图：三、实验步骤：1.探索VB集成开发环境，学会使用各种窗口，菜单及按钮。
2.新建一个工程，在窗体窗口中，生成一个文本框对象，三个命令按钮对象，其对象名分别为text1，command1，command2，command3。
设置命令按钮的caption属性，分别为“放大”，“缩小”，“还原”。
3.进入代码窗口，编写代码：4.将程序编译生成.exe文件。
5.保存工程文件及窗体文件。
一、实验目的：1.学会如何用IF或者Select语句实现选择结构2.学会用Msgbox交互函数给出提示信息，学会使用Val函数3.学会清空文本框内容，掌握文本框的setfocus 方法。
二、实验内容：编写一个简单的计算器，能进行加减乘除运算。
当用户输入非数字字符时系统能给予提示并让用户重新输入。
除法运算中当除数为０时系统能给出提示并清空文本框。
三、实验步骤：1.进入VB编程界面，生成四个文本框、四个标签和两个命令按钮。
四个文本框用于输入第一个操作数、运算符、第二个操作数以及运算结果。
标签用于显示标识各文本框的功能，分别设置命令按钮的caption属性为“计算”，“退出计算器”，运行界面如下图所示：2.进入代码窗口，编写相应的事件过程。
3.保存，运行工程。
一、实验目的：1.掌握For 循环的使用，了解其循环次数为已知的特点2.掌握 Do 循环的使用，了解其循环次数为未知的特点3.熟练使用打印方法，学会通过Tab控制符实现打印换行4.了解求解最大公约数的算法5.学会使用图片框，学会使用Cls方法二、实验内容：1.在图片框中以上三角的方式打印九九乘法表。
vb实习(实训)指导书
《VB省二级实战演练》实习（实训）指导书主编：李明江电子信息与工程系2007年03月15日目录实习（训）一窗体设计 (7)实习（训）二程序填空 (8)实习（训）三程序改错 (10)实习（训）四编写程序 (13)注释 (14)参考文献 (15)实习（实训）的课程名称《VB省二级实战演练》参加实习（实训）的年级及学期06（3）计算机、第三学期实习（实训）的周数或天数四周一、实习（实训）的目的实习的目的是指在完成基础课之后，开设的专业课为学生动手能力打下了一定的基础，但是他们的专业技能还不够精通，动手能力较弱，学生的编程技术需要进一步的提升，掌握窗体的设计的基本方法和过程，以及了解和掌握组成窗体的相关控件的基本属性和基本方法。
通过这次实习，初步了解程序的设计界面及控件的添加和程序的编写过程以及基本操作能力，掌握程序的设计过程。
通过理论课和实践课的有机结合，对后继专业课的学习奠定坚实的基础。
二、实习（实训）的理论基础了解和掌握VB应用程序的有关控件的属性知识以及窗体与控件间的关系。
三、实习（实训）内容1．窗体设计2．程序填空3．程序改错4．编写程序四、实习（实训）要求1、每个同学必须填写实习日记5篇。
2、学生要认真填写项目实习指导书中的各项内容。
3、学生可以根据老师提供的要求进行实习制作实习。
4、学生必须在12月15日前把实习日记、指导书等材料上交系里。
5、指导教师评完后，上交成绩，并认真分析本届学生的实习情况，提出问题和解决问题的方法，形成材料上报到教务处和实验实习中心。
五、实习（实训）安排六、实习（实训）纪律及注意事项●教师管理：1、教师要准时到达实习岗位，每次签到时必须掌握学生的出勤情况。
2、教师要对每个学生的出勤情况认真记载，严格管理。
3、指导教师负责组织协调，实习工作中的出现的问题，及时请示汇报。
4、在实习期间，教师要认真指导学生，安排具体实习内容，并对每一天的实习任务都要进行有针对性的给予指导。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
Visual Basic实验指导前言本课程共安排9个上机实验（36学时），每次实验要求上机之前做好预习及教材上有关内容的复习,对每次上机实验的内容及实验目的要做到心中有数。
每次实验完成后，都要进行小结并写出实验报告。
实验一VB环境和程序设计初步一、实验目的1、了解VB系统对计算机软硬件的要求。
2、掌握启动与退出VB的方法。
3、初步掌握菜单栏、工具栏、窗体窗口、工具箱、工程资源管理器窗口和属性窗口的使用。
4、掌握建立、编辑、运行一个简单的VB应用程序的全过程。
5、掌握常用控件（文本框、标签、命令按钮）的应用。
二、实验内容1、编写一程序，在屏幕上显示”欢迎您使用Visual Basic”，并输入你的名字。
Private Sub Command1_Click()Label1.Caption = Text1.Text & "欢迎使用visual basic 6.0 !"End SubPrivate Sub Form_Load()Text1.Text = ""End Sub2、设计一程序程序，运行结果如下：附：主要代码：Private Sub cmdClear_Click()txtDisplay.Text = ""End SubPrivate Sub cmdExit_Click()EndEnd SubPrivate Sub cmdInput_Click()txtDisplay.Text = "欢迎来到Visual Basic6.0编程世界"End Sub实验二数据类型、运算符和表达式一、实验目的1、掌握Visual Basic 6.0数据类型的概念。
2、掌握常量和变量的概念、定义方法和作用域。
3、掌握各种运算符的功能、表达式的构成、表达式中运算符的运算顺序和如何求表达式的值。
4、掌握常用标准函数的一般形式、功能和用法。
5、 进一步熟悉Visual Basic 6.0集成环境二、实验内容本实验先手工求出题中表达式的值，然后在立即窗口中使用Print 方法计算和输出题中各式的值。
1、利用下列式子测试各种运算符的功能。
(1)5.4\10 (2)299Mod (3)35∧(4))2/1(4-∧(5)”Visual ”&”Basic ” (6)Not 8>5 (7)3<5 And 5>3 (8)True And False (9)5<3 Or 3>5 (10)5>3 Or False 2、利用下列函数测试常用标准函数的功能。
(1)Int(-1234.5678) (2)Fix(1234.5678) (3)Val(“12.34”)(4)Cint(1234.5678)(5)Abs(-100) (6)Sgn(-100) (7)Sqr(sqr(16))(8)Left(“Visual Basic 6.0”,6)(9)Mid(“Visual Basic 6.0”,8,5) (10)InStr(1,”VisualBasic6.0”,”Basic ”)(11)String(3,”$”)(12)Int((100*Rnd)+1)3、利用下列表达式测试表达式中运算符的运算顺序和求表达式的值。
(1)(3+6)\2(2)18\4*4.0^2/1.6(3)25\3 Mod 3.2*Int(2.5) (4)”xyz ”+”438” (5)”abc ”&”123”&”abc ” (6)349.25+”0.75”=350 (7)”china ”>=”canada ”(8)”abc ”<=”abc ”&”123”(9)3*4>4 And 5=5 (10)True Or Not 7-3<=4实验三 程序基本结构一、实验目的1、掌握逻辑表达式的正确书写形式。
2、掌握表达式、赋值语句的正确书写规则。
3、掌握单分支与多分支语句的使用。
4、掌握For语句的使用。
5、掌握Do{While|Untile}...Loop与Do...Loop{While|Untile}两种形式的使用。
6、掌握如何控制循环条件，防止死循环或不循环。
7、掌握常用函数，如用户交互函数InputBox与MsgBox的使用。
二、实验内容1.设计一个应用程序，窗体上有3个文本框、1个标签框和3个命令按钮，界面设计如图3.9所示。
当用户运行应用程序后，在文本框中随意输入三个数据，单击“排序”命令按钮后，将三个数据按照从小到大的顺序重新排列。
图3.9表3.8 属性设置对象属性设置窗体（名称）Form1Caption 排序文本框1 （名称）Text1Text 空白文本框2 （名称）Text2Text 空白文本框3 （名称）Text3Text 空白标签框1 （名称）Label1Caption 排序结果为：命令按钮1 （名称）Command1Caption 排序命令按钮2 （名称）Command2Caption 退出命令按钮3 （名称）Command3Caption 清空参考代码如下：1．数据输入后的排序操作Private Sub Command1_Click()Dim a, b, c As IntegerDim zjjg As Integera = CInt(Text1.Text)b = CInt(Text2.Text)c = CInt(Text3.Text)If a > b Thenzjjg = aa = bb = zjjgEnd IfIf a > c Thenzjjg = aa = cc = zjjgEnd IfIf b > c Thenzjjg = bb = cc = zjjgEnd IfLabel1.Caption = "排序结果为：" & a & "," & b & "," & c End Sub2．清空操作，用于第2次以后的要排序数据的输入Private Sub Command3_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text1.SetFocusEnd Sub3．结束操作Private Sub Command2_Click()EndEnd Sub运行后的结果如图3.10所示。
图3.102、制作一个计算器要求：具有计算的基本功能如图主要代码参考：Private Sub Form_Load()t1 = ""Text2 = ""t2 = ""End SubPrivate Sub Command1_Click()If Text2.Text = "" Thent1.Text = t1.Text + "1"Elset2.Text = t2.Text + "1"End IfEnd SubPrivate Sub Command16_Click()Select Case Text2Case "+"result = Val(t1.Text) + Val(t2.Text) Case "-"result = Val(t1.Text) - Val(t2.Text) Case "*"result = Val(t1.Text) * Val(t2.Text) Case "/"result = Val(t1.Text) / Val(t2.Text)Text2 = ""t2 = ""Text1.Text = resultt1.Text = Text1.TextEnd Sub实验四可视化编程和常用控件实验目的：掌握复选框、单选钮、列表框和组合框的常用属性、事件及典型的使用方法，熟悉滚动条的数值应用，掌握对话框的设计及使用，掌握图片框、图像框的使用及在使用中二者的区别，能够利用计时器进行动画制作。
实验内容：1、制作一个简单的测试系统如图：要求：可以选择试题的难度，并自己设计难度。
并给出的结果给出判断参考代码如下：1 窗体加载Private Sub Form_Load()flag = 0Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""2 okPrivate Sub Command1_Click()Dim a As Integer, b As Integera = Val(Text1.Text)b = Val(Text3.Text)Select Case Text2.TextCase "+"re = a + bCase "-"re = a - bCase "*"re = a * bCase "/"re = a / bEnd SelectIf re = Val(Text4.Text) Then'MsgBox ("good")'dimImage1.Picture = LoadPicture("face05.ico")Else'MsgBox ("wrong!")Image1.Picture = LoadPicture("face04.ico")End IfEnd Sub3 Start命令：Private Sub Command_start_Click()Text4 = ""Image1.Picture = LoadPicture("face01.ico") Dim a As Integera = Int(Rnd() * 4)Select Case Combo1.ListIndexCase 2Text1.Text = Int(Rnd() * 100)If a = 0 ThenText2.Text = "*"ElseIf a = 1 ThenText2.Text = "/"ElseIf a = 2 ThenText2.Text = "-"ElseText2.Text = "+"End IfText3.Text = Int(Rnd() * 100)Case 1Text1.Text = Int(Rnd() * 50)If a = 0 ThenText2.Text = "*"ElseIf a = 1 ThenText2.Text = "/"ElseIf a = 2 ThenText2.Text = "-"ElseText2.Text = "+"End IfText3.Text = Int(Rnd() * 50)Case ElseText1.Text = Int(Rnd() * 20)If a = 0 ThenText2.Text = "-"ElseText2.Text = "+"End IfText3.Text = Int(Rnd() * 20)End SelectText4.SetFocusEnd Sub2．设计一个应用程序，窗体上由1个文本框、1个命令按钮和4个框架组成，界面设计如图4.39所示。