第17节 VB拓展应用——动态效果 学案（含答案）

1、第17节VB拓展应用动态效果学习目标知识条目考试要求考试属性考试形式计时器Timer应用学考加试客观、主观Shape熟悉无考试要求无考试要求1计时器控件计时器控件在VB中名称为Timer，在程序运行时会以固定间隔时间重复执行Timer事件中的代码，是高中VB学习中唯一具有动态程序效果的控件。Timer的常用属性是Enabled和Interval。应用举例Timer1.EnabledFalse 让计时器Timer1不可用，所有事件停止。Timer1.Interval1000Interval属性设为1000，则其Timer事件每隔1秒执行一次，由于精度限制，计时器Interval最小的有效数值在2

2、0左右，即Timer事件最快大概每隔0.02秒执行一次。2Shape控件Shape控件的作用是在窗体中产生一个标准的形状，如正方形和圆形，此控件没有明确的考试要求。常用的属性有Shape(产生的形状)，Top和Left(顶部和左侧的坐标)。例1观察下图，以下有关这个控件的说法正确的是()A这个控件的名称为Timer1 TimerB当前这个控件处于活动状态C这个控件中的事件需要300秒才执行一次D这个控件的大小为120例2以下程序模拟时钟，在Text1中显示时间，请回答相关问题并给划线处填上合适的代码，使程序完整。Dim s As Integer，m As Integer，h As Intege

3、rPrivate Sub Timer1 Timer()ss1If Thenmm1：s0If m Mod 60 0 Then End IfEnd IfText1.Text Str(h) ”小时” Str(m) ”分” Str(s) ”秒”End Sub(1)变量h的初始值为 。(2)当s4000时，h 。(3) 。 。一、基础巩固1计时器控件在程序运行时 (填可见/不可见)。2计时器的Timer事件会重复运行，需要设置全局变量，全局变量默认初始值为 。3如果想让计时器的Timer事件每隔0.5秒运行一次，则Interval属性值应设置为 。4在程序运行中，如果想让计时器停止使用，可以设置为 。5

4、在使用控件Shape时，基本图形包括椭圆、 、 、 。6要在窗体中显示图片，可以使用控件 、 。二、能力提升7以下程序的功能是在文本框Text1中生成算式，Text2中输入结果，并手工判断，在下方Label2中显示结果，请根据截图和程序代码回答问题：Dim sum As Integer，a As Integer，b As IntegerDim zq As Integer，cw As Integer ，s As IntegerPrivate Sub Command1 Click()a Int(Rnd() * 10)：b Int(Rnd() * 9)Text1.Text Str(a) ” Str(

5、b)End SubPrivate Sub Command2 Click()If Thenzq zq 1正确结果1Else cw cw 1End IfLabel2.Caption ”当前正确”Str(zq) ”错误” Str(cw) ”时间” Str(s) ”秒”End SubPrivate Sub Timer1 Timer() End Sub(1)为了使程序中时间与现实时间流速一致，计时器的Interval属性值应为 。(2)按钮上的“生成题目”四个字应该修改按钮的 。(3)程序中两个划线处需填上的代码分别为 。 。8下列程序创建一个手电筒的效果，点击Command1打开，点击Command2

6、关闭灯光，阅读程序，回答相关问题：Private Sub Command1 Click()Pic.Visible TrueEnd SubPrivate Sub Command2 Click() End SubPrivate Sub Timer1 Timer()Static i As IntegerDim x，y，color As Integeri i 1Text1.Text Str(i)For x 100 To 4000y Fix(x / 3)color Fix(255 * x / 4000)Pic.Circle (Pic.Width x，y)，(x 100) / 7，RGB(255，colo

7、r,130) End Sub(1)上述程序中，事件的个数为 。(2)给程序划线处填空 。 。9阅读下列程序，回答问题。Dim t As IntegerPrivate Sub Timer1 Timer()Dim i As Integert t 1Shape1.Top 2000 Cos(t / 20) * 1000Shape1.Left 1000 Sin(t / 20) * 1000Shape1.Height 1000Shape1.Width 1000Shape1.Shape VBShapeCircleShape1.BorderColor VBRedCommand1.Caption Str(t)E

8、nd Sub(1)阅读代码，这个形状是一个()A圆 B椭圆C正方形 D正弦曲线(2)已知变量t在10秒钟可以从0变到200，则计时器Timer的Interval属性值为 。答案精析典例精析例1B此题考查Timer控件的基础知识，A中，这个控件名称为Timer1，类型为Timer，B中，这个控件的Enabled属性为True，可随时触发事件，Interval属性为300，意味着Timer事件中的代码每隔0.3秒会被触发运行1次，C错，Left和Top属性值是指控件左侧和上方离边缘的距离，D错。例2(1)0(2)1(3)s60或者s Mod 600hh1：m0解析全局变量不需要赋初始值，默认初始值

9、为0，所以(1)处h0；s4000时，h4000BH600(小时)，所以(2)处h1；(3)处理由是60秒为1分钟，理由是60分钟为1小时，此时h1，分钟初始值为0。达标检测1不可见203500解析Interval属性为1000时，Timer事件每隔1秒运行1次，最小精度只能到20左右，即最快0.02s左右运行一次。4设置计时器对象Enabled的属性为False，如Timer1.EnabledFalse5长方形正方形圆形6ImagePicture7(1)1000(2)Caption (3)Val(Text2.Text)abss1解析(1)处Interval属性1000刚好是1秒运行一次；(2)处按钮上的文字是修改Caption属性；(3)处Text2是手工计算结果，a和b是生成的数字，两者判断是否相等，处是时间流速，点击批改按钮更新时间。8(1)3(2)Pic.Visible FalseNext x9(1)A(2) 50解析看代码Shape1.Shape VBShapeCircle表示是圆形，所以(1)处选A，(2)处变量t每秒变20，则事件每秒运行20次，Interval值为1000/2050。