windows程序设计vb电子教案第4章

1、WINDOWS程序设计（VB）上海交通大学网络教育学院陈泽宇 博士、副教授2第0章 概述（补充） 第1章 绪论 第2章 创建第一个Windows应用程序第3章 数据类型、变量和表达式第4章 选择结构第5章 循环结构 第6章 数组 第7章 过程 第8章 类 第9章 菜单与图形 第10章 文件 第11章 Form窗体和对话框 第12章 Web编程基础第13章 初步第14章 Web控件 第15章 数据访问 第16章 初步 3第4章 选择结构4.1 If语句4.2 End语句4.3 ListBox, CheckedListBox和ComboBox控件4.4 自学内容44.1 If语句4.1.1 IfT

2、hen语句4.1.2 IfThenElse语句4.1.3 IfThenElseIf语句4.1.4 嵌套IfThen语句4.1.5 Select Case语句5选择结构使得程序具有多个分支64.1.1 IfThen语句IfThen语句用来当条件满足时执行某些语句，反之则不执行语法：If ThenEnd If其中，条件表达式不可缺少，语句块可为一条语句，亦可为多条语句IfThen语句亦称为单分支结构74.1.2 IfThenElse语句两个分支语法：If ThenElseEnd If8示例（补充）：IfThenElse设有阶梯函数 ，输入x的值，要求输出y的值。事件处理代码9Private Sub

3、 Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x, y As Short x = InputBox(请输入x的值) If x 0 Then y = 5 Else If x = 0 Then y = 0 Else y = -5 End If End If MsgBox(x = + CStr(x) + , y = + CStr(y)End Sub104.1.3 IfThenElseIf语句分支超过两个语法：If ThenElseIf ThenE

4、lseEnd If根据不同的条件表达式的值确定执行哪个语句块不管程序有几个分支，在执行了一个分支后，其余分支不再执行11示例（补充）：IfThenElseIf 设有阶梯函数 ，输入x的值，要求输出y的值。事件处理代码12Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x, y As Short x = InputBox(请输入x的值) If x 0 Then y = 5 ElseIf x = 0 Then y = 0 E

5、lse y = -5 End If MsgBox(x = + CStr(x) + , y = + CStr(y)End Sub134.1.4 嵌套IfThen语句If语句可以嵌套语法：If ThenIf ThenEnd IfEnd IfIf语句对嵌套的多少是没有限制的但是嵌套的层数越多，代码执行起来就会越困难，越容易出错所以应尽量把嵌套层数减少144.1.5 Select Case语句Select Case语句可以实现选择结构程序设计，有时比If语句更加简单直观语法：Select Case Case Case Case Else End Select15变量名或表达式可以是所有基本数据类型表达

6、式列表与“变量名或表达式”的类型必须相同，可以取下面4种形式：1表达式2一组枚举表达式（用逗号分隔）3表达式值的范围（m To n）4Is关系运算符表达式（=、=）将中的结果与各Case子句中的表达式的值进行比较，以决定执行哪一组语句块当有多个Case表达式的值与测试值匹配时，系统执行第一个与之匹配的语句16示例（补充）：SelectCase设有阶梯函数 ，输入x的值，要求输出y的值。事件处理代码17Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Butt

7、on1.Click Dim x, y As Short x = InputBox(请输入x的值) Select Case x Case Is 0 y = 5 Case 0 y = 0 Case Else y = -5 End Select MsgBox(x = + CStr(x) + , y = + CStr(y)End Sub184.2 End语句End语句用于结束一个程序的运行，可以放在任何事件过程中语法：End作为一个完整的结构（顺序、选择/分支、循环）、子程序、程序块，最后一个语句必须用End与对应关键词复合的语句，以示该程序到此结束194.3 ListBox, CheckedList

8、Box和ComboBox控件4.3.1 ListBox控件4.3.2 CheckedListBox控件4.3.3 组合框(ComboBox)的使用4.3.4 一个综合的例子20可以使用ListBox（列表框）、CheckedListBox（复选列表框）和ComboBox（组合列表框），向用户提供多个选项214.3.1 ListBox控件ListBox控件用来显示选项列表，用户可从中进行选择一项或选择多项的操作1. ListBox的属性2. 程序运行时改变ListBox项221. ListBox的属性Items属性：打开“字符串集合编辑器”输入选项内容SelectionMode属性：可以让用户在

9、列表中选择多个项One：一次只能选择一项，不接受多项选择None：用户不能在列表框中选择项MultiSimple、MultiExtended：多项选择Sorted属性：决定列表框中的项目在程序运行期间是否按字母顺序排列显示True：按字母顺序排列显示False：按加入的先后顺序排列显示23SelectedIndex属性：获取或设置ListBox中当前选定项的从0开始的索引（序号）只能在程序中设置或引用如果没有选定项，返回值为-1SelectedItem属性：获取或设置ListBox中的当前选定项（内容）SelectedIndices属性：获取一个集合，包含ListBox中所有当前选定项的从0开

10、始的索引SelectedItems属性：返回一个集合，包含ListBox中选定的所有项242. 程序运行时改变ListBox项可以利用Item的方法在程序运行期间为ListBox添加新的项目或删除某一项Add方法：在ListBox后添加一项ListBoxName.Item.Add(“新的表项”)Insert方法：将某一项插入到指定位置ListBoxName.Item.Insert(n,“新的表项”)Remove方法：删除一项ListBoxName.Item.RemoveAt(n)ListBoxName.Item.Remove(“要删除的项”)Clear方法：一次将所有项全部删除25示例：Lis

11、tBox关于ListBox的完整例子事件处理代码26Private Sub BtnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAdd.Click If TxtNew.Text Then LstboxCourse.Items.Add(TxtNew.Text) End IfEnd SubPrivate Sub BtnRemove_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn

12、Remove.Click If LstboxCourse.SelectedIndex = 0 Then LstboxCourse.Items.RemoveAt(LstboxCourse.SelectedIndex) End IfEnd SubPrivate Sub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExit.Click EndEnd Sub274.3.2 CheckedListBox控件CheckedListBox（复选列表框）的使用在本质上与ListBox是

13、一样的只是选项在列表中显示的样式稍有不同，即在每个选项前有一个方框，当要选该项时，单击前面的方框即可注意属性SelectedItems和SelectedIndices并不确定哪些项已选中，它们确定哪些项为突出显示的项如果要确定哪些项被选中，则需要对每一项分别调用方法GetItemChecked，若调用结果为True，表示被选中；反之，则表示未被选中。调用时，采用索引号指定某一项284.3.3 组合框(ComboBox)的使用ComboBox（组合框）控件结合了文本框和列表框二者的特点用于在下拉组合框中显示数据SelectedIndexChanged事件每当用户改变ComboBox中的选择时被触

14、发294.3.4 一个综合的例子示例：CourseSelect查看课程选择专业选择课程课程详细信息设置属性事件处理代码控件属性值ComboBoxNameCmboxSkillDropDownStyleDropDownListItems计算机电气管理会计ListBoxNameLstboxCourseItems请选择专业ButtonNameBtnDetailText课程详细信息30Private Sub CmboxSkill_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CmboxS

15、kill.SelectedIndexChanged LstboxCourse.Items.Clear() BtnDetail.Enabled = True Select Case CmboxSkill.SelectedIndex Case 0 LstboxCourse.Items.Add(离散数学) LstboxCourse.Items.Add(数据结构) LstboxCourse.Items.Add(编译原理) Case 1 LstboxCourse.Items.Add(电力系统) LstboxCourse.Items.Add(高电压技术) LstboxCourse.Items.Add(继电

16、保护) Case 2 LstboxCourse.Items.Add(排队论) LstboxCourse.Items.Add(管理信息系统) Case 3 LstboxCourse.Items.Add(会计学) LstboxCourse.Items.Add(国际金融) End SelectEnd Sub31Private Sub BtnDetail_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDetail.Click If LstboxCourse.SelectedIndex = 0 T

17、hen Select Case CmboxSkill.SelectedIndex Case 0 If LstboxCourse.SelectedIndex = 0 Then MessageBox.Show(任课教师：陈明；课时数：64) ElseIf LstboxCourse.SelectedIndex = 1 Then MessageBox.Show(任课教师：王虎；课时数：64) Else MessageBox.Show(任课教师：李博；课时数：72) End If Case 1 If LstboxCourse.SelectedIndex = 0 Then MessageBox.Show(

18、任课教师：李延；课时数：48) ElseIf LstboxCourse.SelectedIndex = 1 Then MessageBox.Show(任课教师：张讯；课时数：64) Else MessageBox.Show(任课教师：钱云；课时数：72) End If32 Case 2 If LstboxCourse.SelectedIndex = 0 Then MessageBox.Show(任课教师：叶开；课时数：96) Else MessageBox.Show(任课教师：郭靖；课时数：32) End If Case 3 If LstboxCourse.SelectedIndex = 0 Then MessageBox.Show(任课教师：叶云；课时数：48) Else MessageBox.Show(任课教师：黄容；课时数：64) End If End Select Else MessageBox.Show(请选择课程) End IfEnd Sub334.4 自学内容.NET框架的结构框架中主要的两个部分基础类库（Base Class Lib, BCL）通用语言运行时（Common Language Runtime, CLR）34在框架中运行的代码称为托管代码托管代码是框架的核心概念基于微软中间语言（Microsoft