单选题
某人在窗体上画了一个名称为Timer1的计时器和一个名称为Label1的标签，计时器的属性设置为Enabled=True，Interval=0，并编程下列。希望在程序运行时，可以每2秒在标签上显示一次系统当前时间。
某人在窗体上画了一个名称为Timer1的计时器和一个名称为Label1的标签，计时器的属性设置为Enabled=True，Interval=0，并编程下列。希望在程序运行时，可以每2秒在标签上显示一次系统当前时间。
Private Sub Timer1_Timer( )
Label1.Caption=Time＄
End Sub
在程序执行时发现未能实现以上目的，那么，他应做的修改是（ ）。
发布于 2022-05-11 10:18:38
登录后免费查看答案
关注者
0
被浏览
11
1 个回答
推荐阅读
-
在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer1，在属性窗口中把计时器的Interval属性设置为1000，Enabled属性设置为False。程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序：Private Sub Command1_Click()Timer1.（ ）End SubPrivate Sub Timer1_Timer()Text1.Text = TimeEnd Sub在下划线处应填入的内容是（ ）。
2022-05-11 关注 0 浏览14 1答案
-
设窗体上有一个标签Labell和一个计时器Timer1，Timer1的Interval属性被设置为1000，Enabled属性被设置为True。要求程序运行时每秒在标签中显示一次系统当前时间。以下可以实现上述要求的事件过程是
2022-05-11 关注 0 浏览22 1答案
-
在窗体上画一个名称为Label1、标题为“VisualBasic考试”的标签，两个名称分别为Command1和Command2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timer1的计时器控件，并把其Interval属性设置为500，如图所示。 编写如下程序：Private Sub Form_Load()Timer1.Enabled=FalseEnd SubPrivate Sub Command1_Click()Timer1.Enabled=TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled=FalseEnd SubPrivate Sub Timer1_Timer()If Label1.Left<Width ThenLabel1.Left = Label1.Left + 20ElseLabel1.Left=0End IfEnd Sub程序运行后单击“开始”按钮，标签在窗体中移动。对于这个程序，以下叙述中错误的是
2022-05-11 关注 0 浏览17 1答案
-
窗体上有一个名为Command1的命令按钮和一个名为Timer1的计时器，并有下面的事件过程：Private Sub Command1_Click（ ）Timer1．Enabled=TrueEnd SubPrivate Sub Form_Load（ ）Timer1．Interval=10Timer1．Enabled=FalseEnd SubPrivate Sub Timer1 Timer（ ）Command1．Left=Command1．Left+10End Sub程序运行时，单击命令按钮，则产生的结果是（ ）。
2022-05-11 关注 0 浏览15 1答案
-
在窗体上画一个标签、一个计时器和一个命令按钮，其名称分别为labl1、timer1和command1，如图1所示。程序运行后，如果单击命令按钮，则标签开始闪烁，每秒钟“欢迎”二字显示、消失各一次，如图2所示。以下是实现上述功能的程序，请填空。 private sub form_load()label1.capti_dj="欢迎"timer1.enabled=falsetimer1.interval= ______end subprivate sub timer1_timer()label1.visible= ______end subprivate sub command1_click()______end sub
2022-05-11 关注 0 浏览15 1答案
-
在窗体上有一个文本框控件，名称为TxtTime：一个计时器控件，名称为Timerl，要求每一秒钟在文本框中显示一次当前的时间。程序为：Private Sub Timer1_ ()TxtTime.text=TimeEnd Sub在下划线上应填入的内容是
2022-05-11 关注 0 浏览16 1答案
-
窗体上有1个名称为Text1的文本框；1个名称为Timer1的计时器控件，其Interval 属性值为5000，Enabled属性值是True。Timer1的事件过程如下：Private Sub Timer1 Timer（ ）Static flag As IntegerIf Flag=0 Then Flag=1Flag=-flagIf flag=1 ThenText1．ForeColor=＆HFF＆ ＆HFF＆为红色ElseText1．ForeColor=＆HCOO＆ ＆HCOO＆为绿色End IfEnd Sub以下叙述中正确的是（ ）。
2022-05-11 关注 0 浏览14 1答案
-
在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置语句是
2022-05-11 关注 0 浏览11 1答案
-
在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Co mmand1，然后编写下列程序：Private Sub func（LAs Label）L .Caption ＝＂1234＂End SubPrivate Sub Form＿Load（）Label1．Caption ＝＂ABCDE＂Label2．Caption ＝10End SubPrivate Sub Co mmand1＿Click（）a＝Val（Label2．Caption）Call func（Label1）Label2．Caption ＝aEnd Sub程序运行后，单击命令按钮，则在两个标签中显示的内容分别为（ ）。
2022-05-11 关注 0 浏览12 1答案
-
在窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后编写如下事件过程：Private Sub Command1_Click()s = 0For i = 1 To 15x = 2 * i - 1If x Mod 3 = 0 Then s = s + 1Next iLabel1.Caption = sEnd Sub程序运行后，单击命令按钮，则标签中显示的内容是
2022-05-11 关注 0 浏览13 1答案
