单项选择题

在窗体上有一个文本控件，名称为TextTime，一个计时器控件，名称为Timer1。要求每一秒在文本框中显示一次当前的时间。

Private Sub Timer1______
TextTime. Text=Time
End Sub
在横线上应填上的内容是( )。

<上一题目录下一题>

热门试题

单项选择题

下列程序要求用户输入一个年份，并能够判断用户输入的年份是否是闰年，横线处应填( )。 Sub EnSure() Dim year As Integer year=Val(InputBox( 请输入年份： )) If(year Mod 4=0______year Mod 100＜＞0)______(year Mod 400=0)Then Print 您输入的是闰年 Else Print 不是闰年，是普通年份 End If End Sub

A．And And
B．And Or
C．Or Or
D．Or Or

单项选择题

有下列事件过程： Private Sub Command1_Click() b==10 Do Until b=-1 a=InputBox( 请输入a的值 ) a=Val(a) b=InputBox( 请输入b的值 ) b=Va(b) a=a*b Loop Print a End Sub 程序运行后，依次输入数值30，20，10，-1后，输出结果是( )。

A．600
B．-10
C．200
D．-6000

相关试题