选择结构程序设计(5).pptVIP

4.5 使用计时器控件 计时器（Timer）是Visual Basic提供的一个用于定时的特殊控件，当到达预定时间时，系统会自动触发其Timer事件，以便完成指定的操作。 计时器控件在设计时显示为一个小时钟图标，而在运行时则不可见，常用来做一些后台处理。计时器的属性和事件都相当少，能响应的事件只有自身特有的一个Timer事件，其主要属性见表4-6。 表4-6 Timer控件的属性 属 性 说 明 Enabled 该属性为True时，定时器开始工作，为False时暂停 Interval 该属性用来设置定时器触发的周期（以毫秒计）取值范围为0～64767 【例4-13】为一个应用系统设计流动字幕板，如图4-12所示，标题“欲穷千里目，更上一层楼”在窗体中自右至左地反复移动。 图4-12 电子标题板 命令按钮Command1的Click事件代码： Private Sub Command1_Click() If Command1.Caption = S 暂停 Then Command1.Caption = C 继续 Timer1.Enabled = False Else Command1.Caption = S 暂停 Timer1.Enabled = True End If End Sub 编写Timer1的Timer事件代码： Private Sub Timer1_Timer() If Label1.Left + Label1.Width 0 Then Label1.Move Label1.Left – 20 Else Label1.Left = Form1.ScaleWidth End If End Sub 4.6 提供简单选择的控件 成组使用的选项按钮以及复选框可以为用户提供简单的、事先准备的选项。 4.6.1 选项按钮 选项按钮（OptionButton）又称单选按钮。一般来说，选项按钮总是作为一个组（选项按钮组）的组成部分工作的。 选项按钮组是一组相互排斥的选项按钮，选择一个选项按钮就会立即清除该组中的其他按钮。在选项按钮组中只能单击一个选项，即选项按钮组只允许用户从选择菜单中选择一个选项。 1. 使用选项按钮组 在窗体中定义的若干选项按钮可以组成一个选项组，一般常用框架（Frame）控件来组织一个选项组。 【例4-14】设银行定期存款年利率为：1年期2.25%，2年期2.70%，3年期3.24%，5年期3.60%（不计复利）。今有本金a元，5年以后使用，共有以下6种存法： 存一次5年期； 存一次3年期，一次2年期； 存一次3年期，两次1年期； 存两次2年期，一次1年期； 存一次2年期，三次1年期； 存五次1年期。 图4-14 计算利息 分别计算各种存法5年后到期时的本息合计，如图4-14所示。 分析：设x1、x2、x3、x5分别表示1年、2年、3年、5年定期储蓄的利息，a表示本金，则定期的本息计算公式分别为：(1 + x1)a、(1 + 2x2)a、(1 + 3x3)a、(1 + 5x5)a。 编写命令按钮Command1的单击（Click）事件代码： Private Sub Command1_Click() Dim a As Single, y As Single Dim x1 As Single, x2 As Single Dim x3 As Single, x5 As Single a = Val(Text1.Text) x1 = 0.0225: x2 = 0.0270 x3 = 0.0324: x5 = 0.0360 Select Case True Case Option1.Value y = (1 + 5 * x5) * a Case Option2.Value y = (1 + 3 * x3) * (1 + 2 * x2) * a Case Option3.Value y = (1 + 3 * x3) * (1 + x1) ^ 2 * a Case Option4.Value y = (1 + 2 * x2) ^ 2 * (1 + x1) * a Case Option5.Value y = (1 + 2 * x2) * (1 + x1) ^ 3 * a Case Option6.Value y = (1 + x