单项选择题

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

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

<上一题目录下一题>

热门试题

单项选择题

有下列函数过程： Function fun1(ByVal x As Integer,ByVal y As Integer)As Integer Do While y＜＞0 reminder=x MOd y x=y y=reminder Loop fun1=x End Function 在下列按钮单击事件中调用该函数，则该程序的运行结果是( )。 Private Sub Command1_Click() Dim a As Integer Dim b As Integer a=100 b=25 x=fun1(a,b) Print x End Sub

A．0
B．25
C．50
D．100

单项选择题

在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为Option1，程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换，请选择空白处合适的语句( )。 Private Sub Option1_Click(Index AS Integer) Select Case______ Case 0 a= 宋体 Case 1 a= 黑体 Case 2 a= 楷体 GB2312 End Select Text1.______=a End Sub

A．Option Text
B．Index Text
C．Index Font
D．Option Font

相关试题