下载文档原格式
《可视化程序设计》课程实验指导书前言1．实验总体目标《可视化开发工具》课是电信、电子专业的主要课程，也是一门实践性很强的课程。
Visual Basic是一种有代表性的较流行的可视化语言，利用它使得创建具有专业外观的用户界面的编程工作简单易行。
安排实验教学的目的是使学生通过上机，进一步加深对课程内容的消化和理解，提高编程技术，提高实际应用能力，并为今后进一步学习和使用Visual Basic 打下良好的基础。
通过本实验课程的学习，应能达到下列基本要求：掌握调试程序的基本方法及上机操作方法；掌握VB语言程序设计的方法及编程技巧；能够根据要求选择正确的控件并对其设置属性及编写事件过程；能正确使用VB工具编写一般难度的应用程序。
⒉适用专业计算机⒊先修课程C语言程序设计⒋实验课时分配⒌实验环境（1）硬件要求：实验室提供PII或以上配置的微机。
（2）软件要求：安装Microsoft Visual Basic 6.0以及Microsoft Access数据库。
⒍实验总体要求要求每名学生按上机实验题目要求，参考教材及实验指导书完成相应的上机练习，并写出实验报告。
对于编程部分，每个程序要求调试通过并可以运行。
实验1 熟悉VB开发环境一、实验目的安装VB 6.0 系统，熟悉VB的集成开发环境。
二、实验类型（含验证型、设计型或综合型）验证型。
三、实验仪器VB软件光盘1张，PC机。
四、实验内容掌握VB 的安装方法和步骤，掌握VB 的多种启动和退出方法，熟悉VB 的系统集成开发环境，了解各个窗口的作用。
五、实验方法与步骤（1）VB的安装将VB 6.0的CD盘插入光驱，安装程序会自动运行，也可在“资源管理器”或“我的电脑”中找到Setup.exe文件并运行，随后就将逐步出现“向导”对话框，引导用户一步一步地进行安装操作。
（2）VB的启动方法①依照“开始”→“程序”→“Microsoft Visual Basic 6.0中文版”→“Microsoft Visual Basic 6.0中文版”的步骤启动VB。
指导教师：桂红兵亳州职业技术学院计算机系2009-9目录实训1：Visual Basic操作基础 (3)实训2：程序设计基础1 (6)实训3：程序设计基础2 (11)实训4：窗体、标签、文本框和按钮化 (15)实训5：框架、选项按钮、列表框和组合框 (19)实训6：菜单与工具栏 (22)实训7：过程与函数 (24)实训8：数据库功能 (26)一、《VB程序设计》实训大纲二、实训项目名称《VB程序设计》二、项目类别和实训目的(项目类别指基本技能、专项技能、综合技能)1、项目类别本实验指导书以Visual Basic6.0为语言背景，主要内容包括VB语言基础，输入输出，分支程序设计，循环程序设计，数组，过程，数据文件的存取，程序的调试、综合应用等。
2、实训的目的(1) 培养学生基本的编程思路。
(2) 掌握简单的算法及实际应用能力。
(3) 了解VB开发小型应用程序的整个过程。
实训1：Visual Basic操作基础一、实训目的1.熟练掌握Visual Basic 6.0的启动方法。
2.熟悉VB的开发环境。
3.熟悉常用菜单，使用菜单和工具栏创建工程，保存工程生成exe文件。
4.学会向窗体中放置控件和使用属性窗口。
5.学会建立一个简单界面的应用程序，在代码编辑窗口中添加代码。
6.掌握启动工程和结束工程的方法。
二、实训器材及仪器计算机三、实训注意事项1、在生存exe文件时一定要先保存工程。
2、在保存文件时一定要看清保存位置。
四、实训过程㈠基础级学习用VB编程，必须先熟悉VB的集成开发环境。
VB的集成开发环境包括标题栏，菜单栏，控件箱和窗体。
1、启动与退出VB启动VB如下图所示，选择“标准EXE”图标，单击“打开”按钮，新建一个“标准EXE”工程。
2、创建界面创建一个登陆界面，熟悉控件的使用。
（1）创建控件·在控件箱中双击选定的控件，该控件自动出现在窗体中间。
·在控件箱中单击选定的控件，将变成十字线的鼠标指针放在窗体上，拖动十字线画出合适的控件大小。
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第一部分实验指导书实验一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环境与顺序设计实验一、实验目的：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（Visual Basic）程序设计是一门面向对象的编程语言课程，通过本课程的学习，学生能够掌握 VB 程序设计的基本概念、语法和编程方法，具备使用 VB 开发简单应用程序的能力。
本实验指导书旨在帮助学生更好地理解和掌握VB 程序设计的知识，提高实践动手能力。
二、实验目的1、加深对 VB 程序设计基本概念和语法的理解。
2、培养学生运用 VB 解决实际问题的能力。
3、提高学生的编程思维和逻辑能力。
4、让学生熟悉 VB 集成开发环境的使用。
三、实验环境1、操作系统：Windows 系列操作系统（如 Windows 7、Windows10 等）。
2、开发工具：Microsoft Visual Basic 60 或更高版本。
四、实验内容及要求实验一：VB 集成开发环境的熟悉与使用（一）实验目的1、熟悉 VB 集成开发环境的组成和操作界面。
2、掌握创建、保存、打开和运行 VB 工程的方法。
（二）实验内容1、启动 VB 集成开发环境，观察其各个组成部分，如菜单栏、工具栏、工具箱、属性窗口、代码窗口等。
2、创建一个新的标准 EXE 工程，在窗体上添加一个标签控件和一个命令按钮控件，并设置其属性。
3、为命令按钮控件编写单击事件代码，实现当单击按钮时，标签控件上显示“欢迎学习 VB 程序设计！”。
4、保存工程，并运行程序，观察运行结果。
（三）实验要求1、认真观察 VB 集成开发环境的各个组成部分，了解其功能和作用。
2、按照实验内容的要求，正确设置控件的属性和编写事件代码。
3、记录实验过程中遇到的问题及解决方法。
实验二：VB 基本数据类型与变量（一）实验目的1、掌握 VB 中基本数据类型的使用。
2、学会定义和使用变量。
（二）实验内容1、定义不同数据类型的变量，如整型、长整型、单精度型、双精度型、字符串型等，并为其赋值。
2、编写程序，实现不同数据类型变量之间的运算，并输出运算结果。
实验一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 图实验准备：应用程序建立VB1) VB集成化开发环境 2) 复习相关知识：1.准确写出两事件代码，列出各控件所需属性（属性项目和属性值）。
2.实验步骤：中文版的启动与退出。
1.Visual Basic 6.0 启动：Microsoft Visual Basic 6.0）单击“开始”按钮，然后选择“程序”中“1 中文版”，单击即可。
中文版”图标，Microsoft Visual Basic 6.0或：单击桌面上“ exe”按钮，进入环境。
）新建工程对话框，单击打开“标准2--退出：1) 单击集成环境窗口右上角的关闭按钮。
2) 单击“文件”下拉菜单中的“退出”选项。
2.界面设计：（1）添加标签Label1。
（2）添加命令按钮Command1。
（3）添加命令按钮Command2。
（4）使用格式菜单，使用两命令按钮尺寸完全一样，并恰好处在窗体的中间位置。
3.设置界面对象属性：可以通过用鼠标右键单击某一窗体或控件，在弹出的菜单中为其设置属性，也可以从属性窗口的对象列表框中选择要设置属性的对象。
1)设置Form窗体Caption属性为“Hello,World!”2)设置Command1按钮Caption属性为“确定”，名称属性为“OK”.3)设置Command2按钮Caption属性为“退出”，名称属性为“Cancel”。
可视化程序设计课程实验指导书撰写人：***日期：2014年3月12日实验一一个简单VB应用程序的创建和命令按钮、标签及文本框的应用日期：2月23日一、实验目的与要求：1. 掌握VB应用程序的创建步骤；2. 了解VB应用程序的组成；3. 掌握命令按钮、标签和文本框三个基本控件的属性、事件和方法的使用。
二、实验内容：设计一程序，当程序运行后，在窗体中显示"你好!请输入姓名"，焦点定在其下的文本框中，如图1-1所示界面。
图1-1当用户输入姓名并单击"确定"按钮后，在窗体的正中间用黑体、三号、红色显示"XXX 同学,你好!祝你学好VB程序设计"，同时窗体上出现两个命令按钮"继续"和"结束"，其中"XXX"是用户输入的姓名。
例如：当用户输入"王五"，单击"确定"按钮后，出现另如图1-2所示界面，如果单击"继续"按钮，则又回到初始运行状态；单击"结束"按钮即结束程序运行.图1-2三、实验器材：微机+windows操作系统+VB 6.0四、实验步骤：（1）设计应用程序的界面：在窗体上创建三个命令按钮Command1、Command2和Command3、两个标签Label1和Label2、一个文本框Text1。
（2）设置对象的属性（3）编写事件代码：Private Sub Form_Load()Command2.Visible = FalseCommand3.Visible = FalseLabel2.Visible = FalseEnd SubPrivate Sub Command1_Click()Command1.Visible = FalseText1.Visible = FalseLabel1.Visible = FalseLabel2.Visible = TrueLabel2.AutoSize = TrueLabel2.FontName = "黑体"Label2.ForeColor = vbRedLabel2.Caption = Text1.Text & "同学，你好！祝你学好VB程序设计"Command2.Visible = TrueCommand3.Visible = TrueEnd SubPrivate Sub Command2_Click()Command2.Visible = FalseCommand3.Visible = FalseLabel1.Visible = TrueLabel2.Visible = FalseCommand1.Visible = TrueText1.Visible = TrueEnd SubPrivate Sub Command3_Click()EndEnd Sub（4）程序的运行及保存。
目录实验一熟悉Visual Basic 6.0编程环境 (1)实验二Visual Basic语句基础 (14)实验三顺序结构 (23)实验四选择结构（一） (28)实验五选择结构（二） (35)实验六循环结构（一） (41)实验七循环结构（二） (48)实验八循环结构（三） (53)实验九循环结构（四） (59)实验十一维数组程序设计 (63)实验十一二维数组程序设计 (72)实验十二过程程序设计（一） (83)实验十三过程程序设计（二） (92)实验十四窗体和常用控件（一） (102)实验十五窗体和常用控件（二） (113)实验十六用户界面设计（一） (126)实验十七用户界面设计（二） (133)实验十八图形操作 (138)实验十九文件操作 (146)附录VB语言开发的应用软件 (153)实验一熟悉Visual Basic 6.0编程环境【实验目的】（1）熟悉VB集成开发环境。
（2）掌握建立、编辑和运行一个VB应用程序的全过程。
（3）掌握窗体、文本框、标签和命令按钮控件的基本属性及其设置。
（4）掌握窗体、文本框、标签和命令按钮的应用。
（5）掌握每个控件的常用事件和方法。
【实验内容】用事例介绍在VB集成环境下操作的整个过程。
【1-1】用VB设计一个应用程序，用鼠标单击窗体显示文字“欢迎使用Visual Basic 6.0！”，运行程序的结果如图1-1所示。
图1-1 程序运行结果操作步骤：（1）建立工程选择“文件”菜单的“新建工程”命令，打开“新建工程”对话框，界面如图1-2所示。
图1-2 “新建工程”对话框选择“新建”选项卡，再选择“标准EXE ”，最后单击“打开”按钮，新建一个默认名称为Form1的窗体，如图1-3所示。
图1-3 VB 窗口的布局（2）设计界面在属性窗口中，参照表1-1设置窗体Form1各个属性的值。
表1-1 窗体属性的设置（3）编写源代码工具箱窗体 代码窗口立即窗口工程资源管理器窗口 属性窗口布局 窗口双击窗体空白处，进入代码窗口，为窗体的鼠标单击事件编写事件过程代码。
《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设计一些使用的应用程序。
六、考核与报告1、实验时应将各种问题与结果记录下来，实验内容存入软盘或硬盘；2、任课教师对每次记录都要进行检查、分析、登记；3、课程总成绩应为理论考核与实验登记的综合；其中实验课程成绩占30%，理论课成绩占70%。
实验安排建议实验一熟悉vb的开发环境、程序设计的基本步骤[实验目的]1. 学习怎样启动和退出VB。
2. 掌握建立、编辑、运行一个VB简单例子。
[实验内容]1. 启动和退出VB分别用以下几种方式启动VB:(1) 用”开始”菜单中的”程序”命令。
(2) 用“我的电脑”。
(3) 用“开始”菜单中的“运行”命令。
(4) 用上面建立的快捷方式。
分别用以下几种方式退出VB：（1）单击主窗口右上角的“关闭”按钮。
（2）执行“文件”菜单中的“退出”命令。
（3）按Alt+Q键。
2. 利用VB集成开发环境编写简单的VB应用程序（1）按所示界面设计一个留言薄。
要求单击“提交”按钮后，上面的文本框内容复制到下面的文本框中，且下面文本框中的内容不能修改。
单击“清除”按钮则清楚两个文本框中的内容。
（2）按所示界面设计一个加法器。
单击“相加”结果显示在“和”中，单击“清除”按钮则清楚三个文本框中的内容。
单击“退出”则退出当前的运行环境。
实验二基本控件的使用[实验目的]1. 了解创建应用程序的基本步骤2. 掌握常用控件的常用属性和事件[实验内容]1.产生如图所示的电话面板,模仿打电话的过程,按"*"键可清屏，在“显示”文本框中显示出你所输入的电话号码（使用Print方法），以便核对。
部分代码提示：Private Sub Command11_Click()Unload MeEnd SubPrivate Sub Command2_Click()Text1.Text = Text1.Text + Command2.CaptionEnd Sub2.制作一个如图所示的登录窗体，当密码不正确时使用MsgBox函数给出相应的错误提示信息！主要代码如下：Private Sub Command1_Click()If Text1.Text = Text2.Text And Text1.Text <> "" Then MsgBox "密码正确，欢迎进入！！", vbOKOnly, "登陆窗口" Form1.HideElseMsgBox "密码不正确，重新输入", vbOKOnly, "登陆窗口" Text1.Text = ""Text2.Text = ""Text1.SetFocusEnd IfEnd Sub实验三程序设计结构练习[实验目的]1.掌握VB中标准数据类型声明、使用方法。
2.掌握常用内部函数的使用。
3.会使用判定结构和选择结构编制应用程序。
[实验内容]1.顺序结构（向文本中输入信息）Private Sub Command1_Click()Dim i As String * 18i = InputBox$("请输入文本信息，最多可以输入18个字符", "输入", "*****", 3000, 3000)Label1.Caption = iEnd SubPrivate Sub Command2_Click()Dim t As Stringt = MsgBox("你真的要退出吗?", 4 + 48 + 0, "退出警告")If t = 6 ThenEndEnd IfEnd Sub2.选择结构编制程序，要求输入成绩计算某个学生奖学金的等级，以三门功课成绩M1,M2,M3为评奖依据。
标准如下：一等奖: 符合下列条件之一的可获一等奖：1) 平均分大于95分者。
2) 有两门成绩是100分，且第三门功课成绩不低于80分者。
二等奖: 符合下列条件之一的可获二等奖：1) 平均分大于90分者。
2) 有一门成绩是100分，且另两门功课成绩不低于75分者。
三等奖: 各门功课成绩不低于70分者。
符合条件者就高不就低，只能获得高的那一项奖学金窗体如下：：Private Sub Command1_Click()Text1 = "": Text2 = "": Text3 = "": Text1.SetFocus: Label1 = "":Command1.Visible = FalseEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then Text2.SetFocusEnd SubPrivate Sub Text1_LostFocus()Dim p1!, p2!, p3!, p!p1 = Val(Text1): p2 = Val(Text2): p3 = Val(Text3): p = (p1 + p2 + p3) / 3If Not IsNumeric(Text1) Or p1 > 100 Or p1 < 0 ThenMsgBox "输入的数据错误，请重新输入！", 46, "提示"Text1 = "" ': Text1.SetFocusEnd IfEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then Text3.SetFocusEnd SubPrivate Sub Text2_LostFocus()p1 = Val(Text1): p2 = Val(Text2): p3 = Val(Text3): p = (p1 + p2 + p3) / 3If Not IsNumeric(Text2) Or p2 > 100 Or p2 < 0 ThenMsgBox "输入的数据错误，请重新输入！", 46, "提示"Text2 = "" ': Text2.SetFocusEnd IfEnd SubPrivate Sub Text3_KeyPress(KeyAscii As Integer)Dim t1 As Boolean, t2 As Boolean, t3 As Boolean, t4 As Boolean, t5 As Boolean, t6 As Booleant1 = (p1 = 100 And p2 = 100 And p3 >= 80): t2 = (p2 = 100 And p3 = 100 And p1 >= 80)t3 = (p1 = 100 And p3 = 100 And p2 >= 80): t4 = (p1 = 100 And p2 >= 75 And p3 >= 75)t5 = (p2 = 100 And p1 >= 75 And p3 >= 75): t6 = (p3 = 100 And p2 >= 75 And p1 >= 75)p1 = Val(Text1): p2 = Val(Text2): p3 = Val(Text3): p = (p1 + p2 + p3) / 3If KeyAscii = 13 ThenIf Not IsNumeric(Text3) Or p3 > 100 Or p3 < 0 ThenMsgBox "输入的数据错误，请重新输入！", 46, "提示"Text3 = "": Text3.SetFocusElseIf t1 Or t2 Or t3 Or p > 95 Then Label1 = "恭喜你！你获得了一等奖学金，请再接再厉！": Command1.Visible = True ElseIf t4 Or t5 Or t6 Or p > 90 Then Label1 = "恭喜你！你获得了二等奖学金，请再接再厉！": Command1.Visible = True ElseIf p1 > 70 And p2 > 70 And p3 > 70 Then Label1 = "恭喜你！你获得了三等奖学金，请再接再厉！": Command1.Visible = TrueElse: Label1 = "对不起，你不够获奖学金资格，努力吧！": Command1.Visible = TrueEnd IfEnd IfEnd Sub3.循环结构计算水仙花个数（一个数的各位的立方和等于这个数本身的数）提示代码如下：Private Sub Form_Activate()Dim a%, b%, c%a = 1:b = 0:c = 0For a = 1 To 9For b = 0 To 9For c = 0 To 9x = 100 * a + 10 * b + cIf x = a ^ 3 + b ^ 3 + c ^ 3 ThenPicture1.Print x & "=" & (a ^ 3) & "+" & (b ^ 3) & "+" & (c ^ 3) End IfNextNextNextEnd Sub实验四常用控件[实验目的]1. 图片框、图像框、单选钮、复选钮、组合框、列表框的练习和比较2. 掌握定时器、框架、滚动条的应用[实验内容]1.设计程序，利用图片框的属性和方法加载、清除图形。
