第4章(选择结构)2.pptVIP

顺序结构程序的执行是按照程序的书写顺序执行的。如果遇到需要根据给定的条件进行分析、比较和判断，并采取不同操作的问题，就不能由顺序结构实现，这时需要使用VB语言提供的选择结构。 多重窗体是指在一个工程中有多个普通窗体，而每个窗体都拥有自己的用户界面和事件代码，通过工程管理形成一个复杂的、功能强大的应用程序。 （1）Load语句 格式：Load 窗体名称 功能：将一个窗体装入内存。 说明：此时仅能引用窗体中的控件及各种属性， 但运行时窗体并不显示到屏幕上。 （2）UnLoad语句 格式：UnLoad 窗体名称 功能：清除内存中的窗体。 (3) Show方法 格式：［窗体名称］.Show［模式］ 功能：将一个窗体装入内存，并在屏幕上显示。 (4) Hide方法 格式：［窗体名称］.Hide 功能：隐藏指定的窗体，但仍保存在内存中。 设置启动窗体（打开的第一个窗体）的方法 ：工程/工程属性 多重窗体的添加：工程/添加窗体 保存文件： 根据提示，依次为每个文件（多个窗体文件.frm、工程文件.vbp等）命名、保存。 打开文件： 对于多窗体工程文件必须双击工程文件才能打 开该工程。 嵌套是一个控制结构内又包含另一个控 制结构，选择结构的嵌套就是在一个选择结 构中又包含另一个选择结构，可以有两层或 多层嵌套。 Select Case语句 格式： Select Case 测试表达式 Case 表达式1 语句组1 [Case 表达式2 语句组2] … [Case Else 语句组n] End Select 功能：根据“测试表达式”的值，从多个语句组中 选择符合条件的一个语句组执行。 说明: “表达式”为下列四种形式： ①普通表达式 如：A ②一组枚举表达式(用逗号分隔) 如：2,4,6,8 ③表达式1 To 表达式2 如：60 To 100 ④Is 关系运算符表达式 如：Is 60 ⑤ 以上形式混合（逗号分隔） Is5, 1 To 9 ‘测试表达式值大于5或在1~9之间 例：编写程序，实现数字和英文单词的对应。提示：在文本框1中输入0到6之间的整数，在文本框2中显示对应的星期英文单词。 复选框(CheckBox)和 单选按钮(OptionButton) 随机函数 格式：Rnd [(x)] 功能：产生大于等于0且小于1的随机数。 说明： (1) 当 x0时：每次使用x作为随机数种子得到相同的 随机数； (2) 当x0或者缺省时：以上一个随机数作种子，产生 序列中的下一个随机数； (3) 当x=0时: 产生与最近生成的随机数相同的数 。 (4) 要生成[a，b]闭区间的随机整数，可以使用以下公式： Int((b-a+1)*Rnd+a) 例：模仿幸运数字机的游戏，按旋转按钮，可在三个方框中产生三个随机数，当其中一个出现6时，便会产生一幅图案，如图所示。 Randomize语句 格式：Randomize[(n)] 如果反复运行一段程序，同一序列的随机数会反复出现，这是因为VB在产生随机数时，必须依靠一个“随机数生成器”的值产生新的随机数。如果不改变“随机数生成器”的值，产生的随机数序列是一样的。 为避免这种情况发生，在调用Rnd之前，使用Randomize语句可产生不相同 的随机数序列。 n是一个整型数，作为随机数生成器的“种子”。 若缺省，系统将计时器返回的值作为新的种子值。相当于：Randomize[(timer)] 功能：产生不相同的随机数序列 。 例：要求：每一次运行程序时产生的随机数是随机的。 例4.1 例4.2 系统登陆的简单程序（一） If Text1.Text = 123456 Then Form1.Hide: Form2.Show 演示 系统登陆的简单程序（二） If Text1.Text = 123456 Then Form1.Hide Form2.Show Else MsgBox 密码错误！请重新输入！ Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End If 演示 选择结构的嵌套 系统登陆的简单程序（三） If Text2.Text = lisi Then If Text1.Text = 123456 Then Form1.Hide : Form2.Show Else MsgBox 密码错误！请重新输入！ Text1.SetFocus : Text1.Sel