单项选择题

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

Private Sub Timer1_ ______
TextTime.Text=Time
End Sub
在下划线上应填入的内容是( )。

<上一题目录下一题>

热门试题

单项选择题

窗体上有Text1、Text2两个文本框及一个命令按钮Command1，编写下列程序： Dim y As Integer Private Sub Command1_Click() Dim x As Integer x=2 Text1.Text=p2(pl(x),y):Text2.Text=pl(x) End Sub Private Function pl(x As Integer)As Integer x=x+y:y=x+y pl=x+y End Function Private Function p2(x As Integer,y As Integer)As Integer p2=2*x+y End Function 程序运行后，第一次单击和第二次单击命令按钮后，文本框Text1和Text2内的值分别是( )。

A．2 4
2 4
B．2 4
4 8
C．10 10
58 58
D．4 4
8 8

单项选择题

在窗体上有一个文本框Text1，Text属性值为空，然后编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim str As String,n As Integer str=UCase(Cbr(KeyAscii)) n=Len(str) Text1.Text=String(n,str) End Sub 程序运行后，如果在文本框中输入字母“p”，则在文本框中显示的内容为( )。

A．pp
B．pP
C．PP
D．Pp

相关试题