发布时间 : 星期五 文章Visual Basic教案第51、52课时更新完毕开始阅读fee3caef18e8b8f67c1cfad6195f312b3169eb3b
4.5 创建简单选课系统
【教学目标】
1、掌握列表框控件的应用； 2、掌握组合框控件的应用； 3、掌握复选框按钮控件的应用。 【教学重点】
列表框控件和组合框控件的应用 【教学难点】
对Split函数的理解和应用 【教具】
多媒体、计算机 【教学过程】 一、复习
1、命令按钮控件的常用属性和常用事件？ 二、导入
上一章讨论了Visual Basic中学习了单选按钮控件、框架控件以及复选框按钮控件的应用。本节课我们来通过制作小程序，学习列表框控件和组合框控件的应用。 三、自主学习
1、列表框控件
列表框（ListBox）控件用于显示项目列表，从其中可以选择一项或多项。如果项目总数超过了可显示的项目，就自动在列表框控件上添加滚动条。
列表框控件的常用属性如下：
1）List：返回或设置控件的列表框部分的项目。该属性值是一个字符串数组，数组的每个元素都是一个列表框项目，列表框控件在设计时可以通过属性窗口来设置。
2）ListCount：返回控件的列表部分项目的个数。
3）ListIndex：返回或设置控件中当前选择项目的索引，在设计时不可用。
当选定列表的第一项时，ListIndex属性值为0，如果未选定项目，则ListIndex属性值是1，ListCount属性包含项目数，其值总是比最大的ListIndex值大1。
4）SelCount：返回在列表框控件中被选中项的数量。
5）Selected：返回或设置在列表框中的一个项的选择状态。该属性是一个布尔值数组，其项数与List属性相同。在设计时是不可用的。
6）Sorted：指定控件的元素是否自动按字母表顺序排序。
7）Style：指定列表框的样式。如果该属性值为0，则呈现为标准列表框；如果属性值为1，则呈现为复选框式列表框，每一个文本项的边上都有一个复选框，可以选择多项。
列表框控件的常用方法如下：
1）AddItem：用于将项目添加到列表框控件，语法格式如下： oList.AddItem item, index
其中oList表示列表框控件；参数Item为字符串表达式，用来指定添加到该列表框的项目；参数Index为整数，用来指定新项目在该列表框中的位置。对于列表框控件的首项，index为0。
如果所给出的Index值有效，则Item将防止在oList中相应的位置。如果省略index，则当Sorted属性设置为True时，item将添加到恰当的排序位置，当Sorted属性设置为False时，item将添加到列表框的结尾。
2）RemoveItem：从列表框控件中删除一项，语法格式如下： oList.RemoveItem index
其中oList表示列表框控件；参数index是一个整数，表示要删除的项在列表框中的位置。对于列表框中的首项，index为0。
2、组合框控件
组合框（ComboBox）控件将文本框控件和列表框控件的特性结合在一起，即可以在控件的文本框部分输入信息，也可以在控件的列表框部分选择一项。
组合框控件的常用属性如下。
1）Style：用于设置组合框控件的样式。如果该属性值为0（默认值），则呈现为下拉式组合框，包括一个下拉式列表和一个文本框，可以从列表选择或在文本框中输入。如果该属性为1，则得到一个简单组合框，包括一个文本框和一个
不能下拉的列表，可以从列表中选择或在文本框中输入。如果该属性值为2，则呈现为下拉式列表，这种样式仅允许从下拉式列表中选择。
2）Text：对于Style属性设置为0的下拉组合框或Style属性设置为1的简单组合框，返回或设置编辑域中的文本；对于Style属性设置为2的下拉列表框，返回在列表框中选择的项目，返回值总与表达式List（ListIndex）的返回值相同。
为了添加或删除组合框控件中的项目，需要使用AddItem或RemoveItem方法。利用List、ListCount和ListIndex属性可以实现对组合框中项目的访问。也可以在设计时使用List属性将项目添加到列表中。
3、Split函数
使用Split函数可以将一个字符串拆分为一个下标从0开始的一维数组，其中包含指定数量的子字符串。调用格式如下：
Split ( Expression, Delimiter, Limit, Compare )
其中参数Expression为必选项，是一个Single表达式，包含子字符串和分隔符；其他参数均为可选项。
Delimiter是用于标识子字符串的界限的任何单个字符。如果省略了Delimiter，则假定空白字符（“”）为分隔符。
Limit指定输入字符串应拆分到的子字符串的最大数量，默认值-1，指示在Delimiter字符串的每个匹配项处都拆分输入字符串。
Compare为一个数值，指示计算子字符串时使用的比较模式。若该参数为0，则执行二进制比较，即区分大小写字母；若该参数为1，则执行文本比较，即不区分大小写字母。
Split函数返回一个String数组。如果Expression为零长度字符串（“”），则Split返回包含零长度字符串的单个元素数组。如果Delimiter为零长度字符串，或它不在Expression中的任何位置出现，则Split将返回包含整个Expression字符串的单个元素数组。
默认情况下，或Limit等于-1时，Split函数将在分隔符字符串的每个匹配项处拆分输入字符串，并以数组形式返回子字符串。当Limit参数大于0时，Split函数在分隔符的第一个Limit-1匹配项处拆分此字符串，并返回带有结果子字符串的数组。例如Split(“a:b:c”,”:”)返回的数组包含三个元素：“a”、“b”、“c”；而
Split（“a:b:c”,2）返回的数组包含两个元素：“a”和“b:c”。
当Split函数在一行中遇到连个分隔符时，或在字符串的开头或结尾遇到分隔符时，会将它们解释为围绕空字符串（“”）。例如，Split（“XX”，“X”）返回的数组包含三个空字符串：一个在字符串开头和第一个“X”之间，第二个在两个“X”字符串之间，第三个在最后一个“X”和字符串结尾之间。 四、合作探究
编程设计：
创建一个简单的选课系统，当从组合框中选择不同专业时，通过列表框列出相关的课程，可以从中选择所需的课程，并允许添加或删除课程；当选择了一些课程并单击“确定”按钮后，通过另一个窗体列出选课结果。。
设计步骤：
1、在Visual Basic集成开发环境中新建一个EXE工程，并把窗体文件和工程文件分别命名并保存。
2、利用属性窗口对窗体Form1的以下属性进行设置。 将其Caption属性设置为“选课系统”。 将其BorderStyle属性设置为1-Fixed Dialog。 3、在窗体FORM1依次添加以下控件。
1)标签lb1Major，将其Caption属性设置为“专业（&M）:”
2)在工具箱中单击ComboBox图标，并在窗体上绘制一个组合框控件，然后将其命名为cboMajor。
3）标签lb1Course，将其Caption属性设置为“可选课程（&A）：” 4）在工具箱中单击ListBox图标，并在窗体上绘制一个列表框控件，然后将其命名为1stCouse。
5）命令按钮cmdAdd，将其Caption属性设置为“>”。 6）命令按钮cmdRemove，将其Caption属性设置为“<”。
7)标签lb1SelectedCoourse，将其Caption属性设置为“已选课程（&S）:” 8)列表框1stSelectedCourse。
9）命令按钮cmdOK，将其Caption属性设置为“确定”，Defaule属性设置为“True”。