2013教科版选修1《选择结构程序》.ppt
程序流程有三种最基本的程序流程有三种最基本的控制结构，即顺序结构、选择控制结构，即顺序结构、选择结构和循环结构。结构和循环结构。在一个过程中，程序通常是在一个过程中，程序通常是按照由上而下的顺序来执行各按照由上而下的顺序来执行各个语句的，直到整个过程结束。个语句的，直到整个过程结束。引入选择结构和循环结构，可引入选择结构和循环结构，可以改变程序执行的流程。以改变程序执行的流程。选择程序结构用于选择程序结构用于判断给定的条件判断给定的条件判断给定的条件判断给定的条件，根据，根据判断的结判断的结判断的结判断的结果果果果来控制程序的流程来控制程序的流程 本章主要内容条件表达式条件表达式 关系表达式关系表达式/逻辑表达式逻辑表达式条件语句条件语句 If.Then/If.Then.Else 条件语句的嵌套条件语句的嵌套多分支语句多分支语句 select case 选择性控件选择性控件 单选单选按钮按钮/复选框复选框 列表框列表框/组合框组合框计时器控件计时器控件程序举例程序举例关系运算符符号：符号：大于大于 =大于或等于大于或等于=小于或等于小于或等于 =等于等于 不等于不等于适用的类型和结果类型：适用的类型和结果类型：关系运算符适用于数值型、字符型、日期型和逻辑型关系运算符适用于数值型、字符型、日期型和逻辑型数据，结果只能为逻辑型（真值数据，结果只能为逻辑型（真值True和假值和假值False）运算符两侧必须是同类型的量或表达式运算符两侧必须是同类型的量或表达式 若不是，系统会自动进行强制类型转换若不是，系统会自动进行强制类型转换 “5”4 0(10)若判断的结论是成立，则结果为逻辑真值若判断的结论是成立，则结果为逻辑真值(True)，否则为逻辑假值否则为逻辑假值(False)True的值等于的值等于-1，False的值等于的值等于0关系运算符运算运算符符名名 称称示示 例例说说 明明小于小于“3”4值为：值为：True，强制转换为强制转换为数值型数值型=小于或等小于或等于于3大于大于0(10)值为：值为：True，强制转换为强制转换为数值型数值型=大于或等大于或等于于“aa”=“ab”值为：值为：False=等于等于1=True值为：值为：False，强制转换为强制转换为数值型数值型不不等于等于11值为：值为：False关系表达式运算次序：先分别求出运算符两侧表达式的值，运算次序：先分别求出运算符两侧表达式的值，然后再将二者进行比较然后再将二者进行比较 其中：数值型数据按照数值大小比较其中：数值型数据按照数值大小比较 2+36 3=0 523 字符型数据按照字符的字符型数据按照字符的ASCII码值大小比较码值大小比较 “1”“2”“a”“a”日期型数据按照前后顺序比较日期型数据按照前后顺序比较#01/01/2003#12/31/2002#关系表达式的格式：关系表达式的格式：关系表达式练习数值型数据按照数值大小比较数值型数据按照数值大小比较字符型数据按照字符的字符型数据按照字符的ASCII码值大小比较码值大小比较日期型数据按照前后顺序比较日期型数据按照前后顺序比较？2/33/42/33/4?“a”“b”?“a”“b”?3=5?3=5?True=-1?True=-1?#01/12/91#=#02/01/91#?#01/12/91#=#02/01/91#?“?“abcabc”=“”=“abbabb”?“?“abab”=“”“b”AND 12 False？“a”“b”OR 12 True?NOT 2*511 False?233 AND 510 False表示一个数是偶数表示一个数是偶数 x Mod 2=0 或或 int(x/2)=x/2表示一个数表示一个数X能被能被3或或5或或7整除整除x Mod 3=0 OR x Mod 5=0 OR x Mod 7=0表示身高不在表示身高不在1.65米以上或不是女生米以上或不是女生身高身高1.65OR性别性别“女女”NOT（身高身高1.65AND性别性别“女女”）布尔表达式练习？321 Falsea=3:b=4:c=5?a=b=c False表示一个数表示一个数x是能被是能被3整除的奇数整除的奇数x Mod 3=0 and x Mod 20 x Mod 2=1 and x Mod 20表示一个数表示一个数x2,5 x2 and x5表示一个数表示一个数x不在不在2,5区间内区间内x2 or x5运算符的优先顺序算术运算符算术运算符字符串运算符：字符串运算符：关系运算符：关系运算符：、布尔运算符：布尔运算符：Not And Or优优 先先 级级 依依 次次 降降 低低运算符的优先顺序练习设变量设变量设变量设变量x=4x=4，y=-1y=-1，a=7.5a=7.5，b=-6.2b=-6.2，求表达式求表达式求表达式求表达式 x+yx+y a+ba+b And Not yb And Not yb的值的值的值的值 TrueTruey y表示年号，用一个表达式表示该年是否是闰年表示年号，用一个表达式表示该年是否是闰年表示年号，用一个表达式表示该年是否是闰年表示年号，用一个表达式表示该年是否是闰年 (y Mod 4=0 AND y Mod 1000)OR (y Mod(y Mod 4=0 AND y Mod 1000)OR (y Mod 400=0 AND y Mod 100=0)400=0 AND y Mod 100=0)(y Mod 4=0 AND y Mod 1000)OR y Mod (y Mod 4=0 AND y Mod 1000)OR y Mod 400=0400=0判断闰年的科学依据地球公转一周的时间为：地球公转一周的时间为：365365天天天天5 5小时小时小时小时4848分分分分5656秒秒秒秒每经过每经过4年，剩余的时间为：年，剩余的时间为：5 5小时小时小时小时4848分分分分5656秒秒秒秒442323小时小时小时小时1515分分分分4444秒秒秒秒则每则每4年都要多加年都要多加2424小时小时小时小时 2323小时小时小时小时1515分分分分4444秒秒秒秒4444分分分分1616秒秒秒秒每经过每经过100年，就会多加年，就会多加4444分分分分1616秒秒秒秒25251818小时小时小时小时2626分分分分4040秒秒秒秒比较接近一天，所以每到比较接近一天，所以每到100年，就将这多加的近似一天的时间减去，年，就将这多加的近似一天的时间减去，即停止追加一天即停止追加一天而实际上又少加了而实际上又少加了2424小时小时小时小时 1818小时小时小时小时2626分分分分4040秒秒秒秒5 5小时小时小时小时3333分分分分2020秒秒秒秒每经过每经过400年，就会少加年，就会少加4 54 5小时小时小时小时3333分分分分2020秒秒秒秒 2424小时小时小时小时所以每过所以每过400年，就应该再补加一天年，就应该再补加一天故：每故：每4年闰年出现一次；每年闰年出现一次；每400年，闰年再出现一次年，闰年再出现一次其它的整其它的整100年，闰年停止出现一次年，闰年停止出现一次选择控制结构选择控制结构又称分支结构选择控制结构又称分支结构它体现了程序运行过程中的自我判断能力它体现了程序运行过程中的自我判断能力程序可以根据当前执行的某个条件，进行比较、判断，并程序可以根据当前执行的某个条件，进行比较、判断，并依据判断的结果（成立与否）来决定下一步做什么，不做什依据判断的结果（成立与否）来决定下一步做什么，不做什么（在两条或多条程序路径中选择一条来执行，即只执行程么（在两条或多条程序路径中选择一条来执行，即只执行程序中的一部分语句）序中的一部分语句）可见，在此结构的可见，在此结构的程序运行过程中程序运行过程中，有些语句会执行一次，有些语句会执行一次，有些语句有些语句在此次程序运行过程中在此次程序运行过程中没有机会执行。即：没有机会执行。即：“无论无论分支多寡，必选其一；纵然分支众多，仅选其一分支多寡，必选其一；纵然分支众多，仅选其一”VBVB中的选择语句有：中的选择语句有：双分支语句双分支语句 多分支语句多分支语句(Select Case)(Select Case)单行单行(IF-THEN-ELSE)(IF-THEN-ELSE)块结构块结构(IF-THEN-ELSE-END IF)(IF-THEN-ELSE-END IF)选择结构(IF-THEN)语句格式：语句格式：IF IF THEN THEN 条件条件N语句序列语句序列下一语句下一语句Y执行过程：执行过程：判断给定的条件判断给定的条件如果成立如果成立(其值为其值为True),True),执行所给语执行所给语句序列，然后执行下一条语句句序列，然后执行下一条语句否则否则(其值为其值为False)False)，跳过所给语句跳过所给语句序列，直接执行下一条语句序列，直接执行下一条语句示例：示例：输入一个数，如果是正数，就输出输入一个数，如果是正数，就输出x=Val(Text1.text)x=Val(Text1.text)x=Val(Text1.text)x=Val(Text1.text)IfIfIfIf x0 x0 x0 x0 ThenThenThenThen Label1.Caption=x Label1.Caption=x Label1.Caption=x Label1.Caption=x问题：如果不是问题：如果不是正数正数，应该显示应该显示“不是正数不是正数”语句格式：语句格式：IF IF THEN THEN ELSE ELSE 2执行过程：执行过程：判断给定的条件判断给定的条件如果成立如果成立(其值为其值为True),True),执行所给执行所给语句序列语句序列1 1，然后执行下一条语句，然后执行下一条语句否则否则(其值为其值为False)False)，执行所给语执行所给语句序列句序列2 2，然后执行下一条语句，然后执行下一条语句选择结构(IF-THEN-ELSE)条件条件命令序列命令序列1命令序列命令序列2下一语句下一语句NY(IF-THEN-ELSE)举例例二：例二：根据用户输入的一个成绩，判断是否及格根据用户输入的一个成绩，判断是否及格Dim x As SingleDim x As SingleDim x As SingleDim x As SingleX=X=X=X=Val(InputBoxVal(InputBoxVal(InputBoxVal(InputBox(请输入一个成绩：请输入一个成绩：请输入一个成绩：请输入一个成绩：,输入输入输入输入,0),0),0),0)IFIFIFIF X=60X=60X=60X=60 THEN THEN THEN THEN Label1.Caption=Label1.Caption=Label1.Caption=Label1.Caption=“及格及格及格及格”Else Else Else Else Label1.Caption=Label1.Caption=Label1.Caption=Label1.Caption=“不及不及不及不及格格格格”使用使用使用使用IIFIIFIIFIIF函数，也可以实现相应的判断函数，也可以实现相应的判断函数，也可以实现相应的判断函数，也可以实现相应的判断格式：格式：格式：格式：IIF(IIF(IIF(IIF(条件，条件为真时的值，条件为假时的值条件，条件为真时的值，条件为假时的值条件，条件为真时的值，条件为假时的值条件，条件为真时的值，条件为假时的值)例一：例一：输入一个数，如果是正数，就输出；否则显示非正数输入一个数，如果是正数，就输出；否则显示非正数Dim x As SingleDim x As Singlex=Val(Text1.text)x=Val(Text1.text)IfIf x0 x0 ThenThen Label1.Caption=xLabel1.Caption=x ElseElse Label1.Caption=Label1.Caption=“非正数非正数 IIF函数的使用Dim x As SingleDim x As Singlex=Val(Text1.text)x=Val(Text1.text)IfIfIfIf x0 x0 x0 x0 ThenThenThenThen Label1.Caption=xLabel1.Caption=xLabel1.Caption=xLabel1.Caption=x ElseElseElseElse Label1.Caption=Label1.Caption=Label1.Caption=Label1.Caption=“非正数非正数非正数非正数”Label1.Caption=Label1.Caption=Label1.Caption=Label1.Caption=IIf(xIIf(xIIf(xIIf(x0,x,0,x,0,x,0,x,“非正数非正数非正数非正数”)Dim x As SingleDim x As SingleDim x As SingleDim x As SingleX=X=X=X=Val(InputBoxVal(InputBoxVal(InputBoxVal(InputBox(请输入一个成绩：请输入一个成绩：请输入一个成绩：请输入一个成绩：,输入输入输入输入,0),0),0),0)IFIFIFIF X=60X=60X=60X=60 THENTHENTHENTHEN Label1.Caption=Label1.Caption=Label1.Caption=Label1.Caption=“及格及格及格及格”ElseElseElseElse Label1.Caption=Label1.Caption=Label1.Caption=Label1.Caption=“不及不及不及不及格格格格”Label1.Caption=Label1.Caption=Label1.Caption=Label1.Caption=IIf(xIIf(xIIf(xIIf(x=60,=60,=60,=60,“及格及格及格及格”,“不及格不及格不及格不及格”)语句格式：语句格式：IF IF THEN THEN 1ELSEELSE 2END IFEND IF执行过程：执行过程：判断给定的条件判断给定的条件如果成立如果成立(其值为其值为True),True),执行所给执行所给y y语句序列语句序列1 1，然后执行下一条语句，然后执行下一条语句否则否则(其值为其值为False)False)，执行所给语执行所给语句序列句序列2 2，然后执行下一条语句，然后执行下一条语句块结构(IF-THEN-ELSE-END IF)条件条件命令序列命令序列1命令序列命令序列2下一语句下一语句NY(IF-THEN-ELSE-END IF)举例示例：示例：根据用户输入的一个成绩，判断是否及格根据用户输入的一个成绩，判断是否及格Dim x As SingleDim x As Singlex=x=Val(InputBoxVal(InputBox(请输入一个成绩请输入一个成绩:,:,输入输入,0),0)If If x=60 x=60 ThenThen Label1.Caption=Label1.Caption=及格及格 ElseElse Label1.Caption=Label1.Caption=不及格不及格 End IfEnd If(IF-THEN-ELSE-END IF)举例示例：示例：输入输入ABCABC的值，判断能否构成三角形，如果能，计算三的值，判断能否构成三角形，如果能，计算三角形的面积角形的面积Dim a As Single,b As Single,c As SingleDim a As Single,b As Single,c As SingleDim a As Single,b As Single,c As SingleDim a As Single,b As Single,c As Singlea=Val(Text1.Text):b=Val(Text2.Text):c=Val(Text3.Text)a=Val(Text1.Text):b=Val(Text2.Text):c=Val(Text3.Text)a=Val(Text1.Text):b=Val(Text2.Text):c=Val(Text3.Text)a=Val(Text1.Text):b=Val(Text2.Text):c=Val(Text3.Text)s=(a+b+c)/2s=(a+b+c)/2s=(a+b+c)/2s=(a+b+c)/2If If If If a+ba+ba+ba+bc And c0 And c And c0 And c And c0 And c And c0 And a+ca+ca+ca+cb And b0 And b And b0 And b And b0 And b And b0 And b+cb+cb+cb+ca And a0 a And a0 a And a0 a And a0 ThenThenThenThenarea=area=area=area=Sqr(sSqr(sSqr(sSqr(s*(s-a)*(s-b)*(s-c)*(s-a)*(s-b)*(s-c)*(s-a)*(s-b)*(s-c)*(s-a)*(s-b)*(s-c)Label1.Caption=Label1.Caption=Label1.Caption=Label1.Caption=能构成三角形能构成三角形能构成三角形能构成三角形,&,&,&,&三角形面积为：三角形面积为：三角形面积为：三角形面积为：&Str(areaStr(areaStr(areaStr(area)ElseElseElseElseLabel1.Caption=Label1.Caption=Label1.Caption=Label1.Caption=不能构成三角形不能构成三角形不能构成三角形不能构成三角形 End IfEnd IfEnd IfEnd If语句格式：语句格式：IF IF THEN 1 THEN 1ELSEELSE IF IF THEN 2 THEN 2 ELSE ELSE 3 END IF END IFEND IFEND IF说明：说明：如果在如果在IfIf语句的语句列语句的语句列1 1或语句列或语句列2 2中又有一个完整的中又有一个完整的IfIf语句，则称为语句，则称为IfIf语句的嵌套语句的嵌套IF语句的嵌套条件条件1语句列语句列1语句列语句列2下一语句下一语句NY条件条件2YN语句列语句列3嵌套IF举例用户输入一个数，如果是正数，打印是个正数；用户输入一个数，如果是正数，打印是个正数；如果是如果是0 0，打印是个零；如果是负数，打印是负数，打印是个零；如果是负数，打印是负数X0是个是个正数正数是零是零下一语下一语句句X0YN是个是个负数负数YNDim x As Singlex=Val(Text1.Text)If x 0 ThenLabel1.Caption=正数正数Else If x=0 Then Label1.Caption=“零零”Else Label1.Caption=负数负数 End IfEnd If嵌套IF举例用户输入一元二次方程的系数，用户判断解的情况用户输入一元二次方程的系数，用户判断解的情况0有两个不相有两个不相同的实根同的实根有两个相同有两个相同的实根的实根下一语下一语句句0YN没有实没有实数解数解YNa=Val(Text1.Text):b=Val(Text2.Text):c=Val(Text3.Text)d=b2-4*a*cIf d 0 ThenLabel1.Caption=“不同实根不同实根 Else If d=0 Then Label1.Caption=“相同实根相同实根 Else Label1.Caption=没有实数解没有实数解 End IfEnd If嵌套IF举例用户输入一个成绩，用户输入一个成绩，若在若在9090到到100100之间，打印优秀；之间，打印优秀；若在若在8080到到8989之间，打印良好；之间，打印良好；若在若在7070到到7979之间，打印一般；之间，打印一般；若在若在6060到到6969之间，打印及格；之间，打印及格；若在若在6060以下，打印不及格；以下，打印不及格；其它情况，打印输入有误其它情况，打印输入有误Dim x As SingleDim x As Singlex=Val(Text1.Text)x=Val(Text1.Text)If x 100 ThenIf x 100 Then Label1.Caption=Label1.Caption=输入有误！输入有误！输入有误！输入有误！ElseElse If x=90 Then If x=90 Then Label1.Caption=Label1.Caption=优秀！优秀！优秀！优秀！Else Else If x=80 Then If x=80 Then Label1.Caption=Label1.Caption=良好！良好！良好！良好！Else Else If x=70 Then If x=70 Then Label1.Caption=Label1.Caption=一般！一般！一般！一般！Else Else If x=60 Then If x=60 Then Label1.Caption=Label1.Caption=及格！及格！及格！及格！Else Else If x=0 Then If x=0 Then Label1.Caption=Label1.Caption=不及格！不及格！不及格！不及格！Else Else Label1.Caption=Label1.Caption=输入有误！输入有误！输入有误！输入有误！End If End If End If End If End If End If End If End If End If End IfEnd IfEnd If语句格式：语句格式：IF IF THEN 1 THEN 1ELSEIF ELSEIF THEN 2 THEN 2ELSEELSE 其他语句列其他语句列END IFEND IF说明：说明：IF语句的嵌套格式ELSEIF条件条件1条件条件n语句列语句列1语句列语句列n其他语句列其他语句列下一语句下一语句YYNN嵌套ELSEIF举例用户输入一个数，如果是正数，打印是个正数；用户输入一个数，如果是正数，打印是个正数；如果是如果是0 0，打印是个零；如果是负数，打印是负数，打印是个零；如果是负数，打印是负数Dim x As Singlex=Val(Text1.Text)If x 0 ThenLabel1.Caption=正数正数ElseIf x=0 ThenLabel1.Caption=零零ElseLabel1.Caption=负数负数End IfDim x As Singlex=Val(Text1.Text)If x 0 ThenLabel1.Caption=正数正数Else If x=0 Then Label1.Caption=零零 Else Label1.Caption=负数负数 End IfEnd If嵌套ELSEIF举例Dim x As Singlex=Val(Text1.Text)If x 100 Then Label1.Caption=输入有误！输入有误！ElseIf x=90 Then Label1.Caption=优秀！优秀！ElseIf x=80 Then Label1.Caption=良好！良好！ElseIf x=70 Then Label1.Caption=一般！一般！ElseIf x=60 Then Label1.Caption=及格！及格！ElseIf x=0 Then Label1.Caption=不及格！不及格！Else Label1.Caption=输入有误！输入有误！End If用户输入一个成绩，用户输入一个成绩，若在若在9090到到100100之间，打印优秀；之间，打印优秀；若在若在8080到到8989之间，打印良好；之间，打印良好；若在若在7070到到7979之间，打印一般；之间，打印一般；若在若在6060到到6969之间，打印及格；之间，打印及格；若在若在6060以下，打印不及格；其以下，打印不及格；其它情况，打印输入有误它情况，打印输入有误多分支语句 当判断条件较多时，如果采用当判断条件较多时，如果采用IF语句来设计程序，会出现各方语句来设计程序，会出现各方面的麻烦；而多分支语句可以利用格式中的多个条件来判断与执行，面的麻烦；而多分支语句可以利用格式中的多个条件来判断与执行，效率较高效率较高语句格式：语句格式：SELECT CASE SELECT CASE CASE CASE 11 CASE CASE 22 CASE CASE ElSEElSE END SELECTEND SELECT说明：说明：P83P83条件条件1条件条件n语句列语句列1语句列语句列n其他语句列其他语句列下一语句下一语句YYNN多分支语句举例用户输入一个数，如果是正数，打印是个正数；如果是用户输入一个数，如果是正数，打印是个正数；如果是0 0，打印是个，打印是个零；如果是负数，打印是负数零；如果是负数，打印是负数Dim x As Singlex=Val(Text1.Text)If x 0 Then Label1.Caption=正数正数Else If x=0 Then Label1.Caption=零零 Else Label1.Caption=负数负数 End IfEnd IfDim x As Singlex=Val(Text1.Text)Select Case xCase Is 0 Label1.Caption=正数正数Case Is=0 Case 0 Label1.Caption=零零Case Is 0 Label1.Caption=负数负数End Select多分支语句举例用户输入一个成绩，用户输入一个成绩，若在若在9090到到100100之间，打印优秀；之间，打印优秀；若在若在8080到到8989之间，打印良好；若之间，打印良好；若在在7070到到7979之间，打印一般；若在之间，打印一般；若在6060到到6969之间，打印及格；若在之间，打印及格；若在6060以下，打印不及格；其它情况以下，打印不及格；其它情况，打印输入有误，打印输入有误Select Case x Case Is 100 Label1.Caption=输入有误输入有误 Case Is=90 Label1.Caption=优秀优秀 Case Is=80 Label1.Caption=良好良好 Case Is=70 Label1.Caption=一般一般 Case Is=60 Label1.Caption=及格及格 Case Else Label1.Caption=不及格不及格End Select多分支语句举例用户输入一个年份和月份，用户输入一个年份和月份，由程序输入该年该月有多少天由程序输入该年该月有多少天!Dim d As Integery=Val(Text1.Text):m=Val(Text2.Text)Select Case mCase 1,3,5,7,8,10,12 d=31Case 4,6,9,11 d=30Case 2 If y Mod 4=0 And y Mod 100 0 Or y Mod 400=0 Then d=29 Else d=28 End IfEnd SelectP=Str(y)&年年&Str(m)&月有月有&Str(d)&天天!Label1.Caption=p滚动条有些控件不能自动支持滚动的功能，有些控件不能自动支持滚动的功能，VB提供的滚动条有水平滚提供的滚动条有水平滚动条动条(HScrollBar)和垂直滚动条和垂直滚动条(VScrollBar)两种两种常用属性有常用属性有(均为整型数均为整型数)：uValue 滚动条的当前值，即滑块的位置滚动条的当前值，即滑块的位置uLargeChange 单击滚动条的前后部位时，单击滚动条的前后部位时，Value的改变量的改变量uSmallChange 单击滚动条的两端箭头时，单击滚动条的两端箭头时，Value的改变量的改变量uMax Value的最大值的最大值uMin Value的最小值的最小值常用事件：常用事件：uScroll 当当拖动滚动条滑块拖动滚动条滑块时触发的事件时触发的事件uChange 当当滚动条滑块位置改变滚动条滑块位置改变时触发的事件时触发的事件滚动条程序示例Private Sub HScroll1_Scroll()Text1.FontSize=HScroll1.ValueEnd Sub若改为滚动条的若改为滚动条的Change事件，效果会有什么变化？事件，效果会有什么变化？使用计时器控件计时器计时器(Timer)(Timer)控件可以在程序运行中控件可以在程序运行中以规定的时间以规定的时间以规定的时间以规定的时间间隔间隔间隔间隔产生一个事件。这对不需要与用户交互的代码的产生一个事件。这对不需要与用户交互的代码的执行非常有用。执行非常有用。计时器在设计时显示为一个小时钟图标，计时器在设计时显示为一个小时钟图标，而在运行时而在运行时则看不到则看不到，常用来做一些后台处理。，常用来做一些后台处理。如果需要显示时间，则应当使用标签或文本框如果需要显示时间，则应当使用标签或文本框计时器控件的常用属性uIntervalInterval属性是决定属性是决定TimerTimer控件的计时事件调用控件的计时事件调用间隔的毫秒数间隔的毫秒数格式：格式：对象对象.Interval=.Interval=毫秒数毫秒数 说明：说明：当毫秒数为当毫秒数为0 0（缺省）时，（缺省）时，TimerTimer控件无效。控件无效。uEnabledEnabled属性（属性（True/FalseTrue/False）决定决定IntervalInterval的设的设置是否有效置是否有效只要只要TimerTimer控件的控件的EnabledEnabled属性被设置为属性被设置为TrueTrue，而且而且IntervalInterval属性属性00，则以则以IntervalInterval属性指定的时间间属性指定的时间间隔发生一次隔发生一次TimerTimer事件事件设计一个闪烁字幕Private Sub Form_Load()FontName=幼圆幼圆FontBold=TrueFontSize=100End SubPrivate Sub Timer1_Timer()Form1.ForeColor=RGB(Int(Rnd*256),Int(Rnd*256),Int(Rnd*256)Form1.CurrentX=Form1.Width/10 输出的水平坐标输出的水平坐标Form1.CurrentY=Form1.Height/16 输出的垂直坐标输出的垂直坐标Print 闪烁字幕闪烁字幕End Sub每隔每隔0.5秒闪烁一次，程秒闪烁一次，程序运行前，序运行前，Timer的的Enabled和和Interval属性属性的值应为多少？的值应为多少？设计一个计时器每隔一秒钟，文本框中的数字增每隔一秒钟，文本框中的数字增一，单击一，单击“暂停暂停”按钮就停止按钮就停止Private Sub Command1_Click()Timer1.Enabled=TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled=FalseEnd SubPrivate Sub Timer1_Timer()Text1.Text=Text1.Text+1End Sub程序运行前，程序运行前，Timer的的Enabled和和Interval属性属性的值应为多少？的值应为多少？框架控件Frame框架控件是一个左上方有标题文字的方框。框架控件是一个左上方有标题文字的方框。它是一个容器控件。可以对窗体上的控件它是一个容器控件。可以对窗体上的控件进行视觉上的分组。进行视觉上的分组。在框架内可以在框架内可以直接绘制直接绘制控件，也可以将已控件，也可以将已有控件有控件粘贴粘贴到框架内到框架内框架可以提供总体的激活和屏蔽框架可以提供总体的激活和屏蔽常用属性有：常用属性有：Name 框架的名称框架的名称Caption 框架上显示的标题文字框架上显示的标题文字Visual 运行后是否可见运行后是否可见Enabled 框架和框架内的所有控件是否屏蔽框架和框架内的所有控件是否屏蔽提供简单选择的控件u选项按钮（选项按钮（Option Button）又称单选按钮，选项按钮总是作为又称单选按钮，选项按钮总是作为一个组的组成部分工作的。一个组的组成部分工作的。选项按钮组选项按钮组是一组互是一组互排斥排斥的选项按钮的选项按钮;选择一个选项按钮会立即选择一个选项按钮会立即清除该组中的其它按钮清除该组中的其它按钮;每次只能选一个选项而且必须选择一个每次只能选一个选项而且必须选择一个选项（问题：在窗体上的是一组？在一个框架内的是一组？）选项（问题：在窗体上的是一组？在一个框架内的是一组？）u常用属性：常用属性：Caption属性：属性：单选按钮旁边的标题文字单选按钮旁边的标题文字value属性：表示该按钮是否被选中。选中为属性：表示该按钮是否被选中。选中为True,否则为否则为FalseAlignment属性：单选按钮标题属性：单选按钮标题 的对齐方式的对齐方式Style属性：表示控件的外观（标准格式或图形方式）属性：表示控件的外观（标准格式或图形方式）可以将选项按钮设计成可以将选项按钮设计成图形按钮的形式，图形按钮的形式，将将Style改为改为1-Graphical(图形方式图形方式)，再依次修改其，再依次修改其Caption属性属性u单选按钮使用最多的是单选按钮使用最多的是click事件事件单选按钮程序示例Private Sub Option1_Click()Private Sub Option1_Click()Text1.FontName=Text1.FontName=宋体宋体宋体宋体 End SubEnd SubPrivate Sub Option2_Click()Private Sub Option2_Click()Text1.FontName=Text1.FontName=幼圆幼圆幼圆幼圆 End SubEnd SubPrivate Sub Option3_Click()Private Sub Option3_Click()Text1.FontName=Text1.FontName=楷体楷体楷体楷体_GB2312_GB2312End SubEnd Sub提供简单选择的控件u复选框（复选框（CheckBox）控件：根据需要进行多项选择控件：根据需要进行多项选择u可以只选一个，也可全选，还可全不选可以只选一个，也可全选，还可全不选u当某一个复选框被选中时，复选框中出现一个当某一个复选框被选中时，复选框中出现一个“”u 常用属性：常用属性：Caption属性属性：复选框旁边的标题文字：复选框旁边的标题文字value属性：属性：表示该按钮是否被选中。表示该按钮是否被选中。0默认设置，未选中状态默认设置，未选中状态1选中状态选中状态2禁止状态，不可用禁止状态，不可用Alignment属性属性：复选框旁边的标题文字的对齐方式：复选框旁边的标题文字的对齐方式Style属性：属性：表示控件的外观（标准格式或图形方式）表示控件的外观（标准格式或图形方式）u复选框按钮使用最多的是复选框按钮使用最多的是click事件，在事件中需要对其事件，在事件中需要对其Value属性属性值做判断，从而根据用户的选中状态决定程序如何执行值做判断，从而根据用户的选中状态决定程序如何执行复选按钮程序示例Private Sub Check1_Click()Privat
