vb语言程序设计-vb第4章电子讲稿(编辑修改稿)

vb语言程序设计-vb第4章电子讲稿(编辑修改稿)内容摘要：

语句块 n End Select 先计算表达式的值，然后将该值依次与结构中的每个Case的值进行比较，如果该值符合某个 Case指定的值条件时，就执行该 Case的语句块，然后跳到 End Select，从 End Select出口。 如果没有相符合的 Case值，则执行 Case Else中的语句块 多分支语句 中国最大的资料库下载 表达式表通常是一个具体值 (如 Case 1)，每一个值确定一个分支。 还有三种方法可以确定设定值： (1)一组值 (用逗号隔开 )。 Case 1,3,5 ′表示条件在 1， 3， 5范围内取值 (2)表达式 1 TO 表达式 2。 Case 60 To 80 ′表示条件取值范围为 60～ 80 (3)Is关系式。 Case Is5 ′表示条件在小于 5范围取值 中国最大的资料库下载 实现例 ， 程序代码如下： Private Sub mand1_click() Dim score As Integer, temp As String score = Val() temp = 成绩等级为： Select Case score Case 0 To 59 = temp + 不及格 Case 60 To 69 = temp + 及格 Case 70 To 79 = temp + 中 Case 80 To 89 = temp + 良 Case 90 To 100 = temp + 优 Case Else = 成绩出错 End Select End Sub 例 用 Select Case语句来实现多分支选择功能 中国最大的资料库下载 鸡兔同笼，已知鸡和兔总头数为 h=23，总脚数为 f=56，求鸡兔各有多少只 ? 再提供输入框由学生回答问题，然后采用输出框显示对 设计步骤如下： (1)在窗体上设置一个命令按钮 Command1 (2)采用窗体的装载事件 Form_Load,使考题内容直接显示在窗体上。 例 求鸡数和兔数 中国最大的资料库下载 当用户单击“答题”按钮时，程序提供输入对话框，由用户输入答案，再通过输出框显示评判意见。 采用的程序代码如下： Private Sub Form_Load() Show Print FontSize = 18 Print Spc(9)。 考一考你 FontSize = 13 Print Print Spc(5)。 鸡兔同笼，已知鸡和兔总头数为 23， Print Spc(3)。 总脚数为 56，求鸡兔各有多少。 End Sub 中国最大的资料库下载 Private Sub Command1_Click() h = 23 : f = 56 39。 总头数及总脚数 j1 = (4 * h f) / 2 39。 求出的鸡数 t1 = (f 2 * h) / 2 39。 求出的兔数 j2 = Val(InputBox(鸡的只数是多少。 , 请回答 )) t2 = Val(InputBox(兔的只数是多少。 , 请回答 )) Select Case True 39。 选择真值 Case j1 = j2 And t1 = t2 MsgBox (回答完全正确 !) Case j1 = j2 MsgBox (鸡数回答正确，但兔数不对 !) Case t1 = t2 MsgBox (兔数回答正确，但鸡数不对 !) Case Else MsgBox (回答错误 !) End Select End Sub 中国最大的资料库下载 提供选项让用户选择，如选择“ 是 ”或“ 否 ”，从列表中选择某一项等 选择的控件有： 单选按钮、复选框、列表框和组合框 选择性控件 中国最大的资料库下载 1. 单选按钮的用途 单选按钮 (OptionButton)控件由一个圆圈“○”及紧挨它的文字组成，能提供“选中”和“未选中”两种可选项 成组形式出现 2. 常用属性 Caption属性 Value属性： 表示单选按钮是否被选中，选中时 Value值为 True,否则为 False 使用单选按钮组时，选中其中一个，其余就会自动关闭 Alignment属性： 设置单选按钮标题的对齐方式 3. 事件 Click事件 在应用程序中可以创建一个事件过程，检测控件对象Value属性值，再根据检测结果执行相应的处理 单选按钮 中国最大的资料库下载 (1) 创建应用程序的用户界面和设置对象属性 单选按钮组； 初始状态：设置 Option1的 Value属性值设置为 True，或通过代码“ =True” 来实现 (2)编写程序代码 功能要求 例 用单选按钮组控制显示不同的字体 中国最大的资料库下载 程序代码如下： Private Sub Option1_Click() = 宋体 End Sub Private Sub Optio。