VB编程填空题

(7)在窗体上画一个标签、一个计时器和一个命令按钮，其名称分别为labl1、timer1和command1，如图1所示。程序运行后，如果单击命令按钮，则标签开始闪烁，每秒钟“欢迎”二字显示、消失各一次，如图2所示。以下是实现上述功能的程序，请填空。 
　　private sub form_load() 
　　label1.caption="欢迎" 
　　timer1.enabled=false 
　　timer1.interval= 【7】 
　　end sub 
　　private sub timer1_timer() 
　　label1.visible= 【8】 
　　end sub 
　　private sub command1_click() 
　　【9】 
　end sub 
 
详细讲解哈7、8、9空

追问：第7、8空都错了    我也是那样做的，但答案不是……

答案：我亲自试了来的，不行找我，程序代码是：Private Sub form_load()
    Labl1.Caption = "欢迎"
    Timer1.Enabled = False
    Timer1.Interval = 500
    End Sub
    Private Sub timer1_timer()
    Labl1.Visible = False
    End Sub
    Private Sub command1_click()
    Timer1.Enabled = True
    Timer1.Interval = 500
    If Labl1.Visible = False Then
    Labl1.Visible = True
    Else
    Labl1.Visible = False
    End If
    End Sub
也就是第七个空填500，因为在1秒内要实现亮灭，所以每种状态占1S的一半就是500，第八个空填False，也就是初始化时没有显示出字，第九个空要填Timer1.Enabled = True
    Timer1.Interval = 500
    If Labl1.Visible = False Then
    Labl1.Visible = True
    Else
    Labl1.Visible = False
    End If
也就是给一个判断让他自己执行亮灭，当你点击按钮时他就自己判断执行亮灭，如果没有判断实现不了的，希望采纳
我可以讲给你听。7，1000 8，true 9 ，timer1.enable=true 
7，500  8，false  9 ，timer1.enable=true 

上一个：vb编程题
下一个：VB编程问题……