阅读以下说明和Visual Basic 码,将应填入(n)处的字名写在对应栏内 [说明] 已有一个工程文件,窗体上有两个图片框,名称为P1,P2。分别用来表示信号灯合汽车,其中在P1中轮流装入“黄灯.ico”、“红灯.ico”、“绿灯.ico”文件来实现

admin2009-02-15  32

问题 阅读以下说明和Visual Basic 码,将应填入(n)处的字名写在对应栏内
[说明] 已有一个工程文件,窗体上有两个图片框,名称为P1,P2。分别用来表示信号灯合汽车,其中在P1中轮流装入“黄灯.ico”、“红灯.ico”、“绿灯.ico”文件来实现信号灯的切换;还有两个计时器 Timer1 和Timer2,Timer1 用于变换信号灯,黄灯1秒,红灯2秒,绿灯3秒;Timer2用于控制汽车向左移动。运动时,信号灯不断变换,单击“开车”按钮后,汽车开始移动,如果移动到信号灯前或信号灯下,遇到红灯或黄灯,则停止移动。下面是实现上述功能的程序,请填空。
   Private Sub Timer41_ Timer()
             a=a+1
            If  (1)  Then
               a=1
            End If
            Select Case a
                Case 1
                    P1. Picture = LoadPicture( “黄灯.ico” )
                Case 2, 3
                    P1. Picture = LoadPicture( “红灯”.ico” )
                Case4, 5, 6
                    P1. Picture = LeadPicture( “绿灯. ico” )
                         (2)  
            End Select
       End Sub
       Private Sub Timer2_Timer( )
            If  (3)  And (P2. Left > P1. Left And P2. Left < P1. Left + P1. Width) Or P2. Left < = 100 Then
                Timer2. Enabled = False
            Else
                 (4)  
            End If
   End Sub

选项

答案a>6 If b Then Timer2. Enabled =b (a(4) P2. Move P2. Left - 10, P2. Top, P2. Width, P2. Height

解析
转载请注明原文地址:https://jikaoti.com/ti/B2i7FFFM
0

最新回复(0)