当前位置: X题卡 > 所有题目 > 题目详情

设窗体上有一个标签Label1和一个计时器Timer1,Timer1的Interval属性被设置为1000,Enabled属性被设置为True。要求程序运行时每秒在标签中显示一次系统当前时间。以下可以...

查看本题答案

你可能感兴趣的试题

每秒钟显示一次系统时间  每10秒钟显示一次系统时间  每秒钟标签向右移一段距离  每秒钟标签向左移一段距离  
Private Sub Timer1_Timer( )     Label1.CaDtion=True     End Sub  Private Sub Timer1_Timer( )     Label1.Caption=Time$     End Sub  Private Sub Timetd_Timer( )     Label1.Interval=1     End Sub  Private Sub Timer1 Timer( )     For k=1 To Timer1.Interval     Label1.Caption=Timer     Next k     End Sub  
不停地依次显示字符“A”、“B”、“C”、“D”,直至窗体被关闭  依次显示字符“A”、“B”、“C”、“D”各一次  每隔1秒显示字符“A”一次  每隔1秒依次显示26个英文字母中的一个  
Timer1. Enable=True  Label1.Enable=True  Timer1. Enable=False  Label1. Enable=False  
通过属性窗口把计时器的Interval属性设置为2000  通过属性窗口把计时器的Enabled属性设置为False  把事件过程中的Label1.Caption=TimeS语句改为Timer1.Interval=Time$  把事件过程中的Label1.Caphon=TimeS语句改为Label1.Caption=Timer1.Time  
通过属性窗口把计时器的Interval属性设置为2000  通过属性窗口把计时器的Enabled属性设置为False  把事件过程中的Label1.Caption=Time$语句改为Timer1.Interval=Time$  把事件过程中的Label1.Caption=Time$语句改为Label1.Caption=Timer1.Time  
Private Sub Timer1_Timer()  Label1.Caption=True  End Sub  Private Sub Timer1_Timer()  Label1.Caption=Time$  End Sub  Private Sub Timer1_Timer()  Label1.Interval=1  End Sub  Private Sub Timer1_Timer()  For k=1 To Timer1.Interval  Label1.Caption=Timer  Next k  End Sub  
Private Sub Tiiner1_Timer( )  Label1. Caption = True  End Sub  private Sub Timer1_Timer ( )  Label1. Caption = Time $  End Sub  Private Sub Timerl_Timer( )  Label1. Interval = 1  End Sub  Private Sub Timer1_Timer( )  For k = 1 To Timer1. Interval  Label1. Caption = Timer  Next k  End Sub  
通过属性窗口把计时器的Enabled属性设置为False  通过属性窗口把计时器的Interval属性设置为5000  在Timer1_Timer的事件过程中添加语句Timer1.Interval=500  把事件过程中的Label1.Caption=Time$语句改为Label1.Caption=Timer1.Time  
Private Sub Timer1_Timer() LabelCaption=True End Sub  Private Sub Timer1_Timer() LabelCaption=Time$ End Sub  Private Sub Timer1_Timer() LabelInterval=1 End Sub  Private Sub Timer1_Timer() For k=1 To TimerInterval Label1.Caption=Timer Next K End Sub  
Private Sub Timer1_Timer() Labell.Caption=True End Sub  Private Sub Timer1_Timer() Labell.Caption=Time$ End Sub  Private Sub Timer1_Timer() Labell.Interval=1 End Sub  Private Sub Timer1_Timer() For k=1 To Timerl.Interval Label1.Caption=Timer Next K End Sub  
Private Sub Timer1_Timer()  Label1.Caption=True  End Sub  Private Sub Timer1_Timer()  For k=1 To Timer1.Interval  Label1.Caption=Timer  Next k  End Sub  Private Sub Timer1_Timer()  Label1.Caption=Timer1.Interval  End Sub  Private Sub Timer1_Timer()  Label1.Caption=Time $  End Sub  
通过属性窗口把计时器的Interval属性设置为2000  通过属性窗口把计时器的Enabled属性设置为False  把事件过程中的Label1.Caption=Time$语句改为Timer1.Interval=Time$  把事件过程中的Label1.Caption=Time$语句改为Label1.Caption=Timer1.Time  
Private Sub Timer1_Timer() Labell.Caption=True End Sub  Private Sub Timer1_Timer() Labell.Caption=Time$ End Sub  Private Sub Timer1_Timer() Labell.Interval=1 End Sub  Private Sub Timer1_Timer() For k=1 To Timerl.Interval Label1.Caption=Timer Next K End Sub  
通过属性窗口把计时器的Interval属性设置为2000  通过属性窗口把计时器的Enabled属性设置为False  把事件过程中的Label1.Caption=Time$语句改为Timer1.Interval=Time$  把事件过程中的Label1.Caption=Time$语句改为Label1.Caption=Timer1.Time  
通过属性窗口把计时器的Interval属性设置为2000  通过属性窗口把计时器的Enabled属性设置为False  把事件过程中的Label1.Caption=TimeS语句改为Timer1.Interval=Time$  把事件过程中的Label1.Caphon=TimeS语句改为Label1.Caption=Timer1.Time  

热门试题

更多