《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.设计程序，利用图片框的属性和方法加载、清除图形。