更多"某表单上有一个文本框控件，若要该文本框的初值设置为当前系统日期，则可以"的相关试题:
[单项选择]组合框控件是将( )组合成一个控件。
A) 列表框控件和文本框控件 B) 标签控件和列表框控件
C) 标签控件和文本框控件 D) 复选框控件和选项按钮控件
[填空题]以下所列程序的功能是：在窗体上有一个文本框控件，程序运行后，用户可以利用鼠标左键来拖动该文本框控件(注意：拖动时，文本框移动的距离和方向由鼠标指针移动的距离和方向来确定)，按下鼠标右键则可以在文本框中显示出当前文本控件的位置。
Public yx As Integer
Public yy As Integer
Private Sub Form_ MouseMove(Button AS Integer，Shift As Integer，_
X As Single，Y As Single)
If Button=1 Then
Text1．Left= 【11】
Text1．Top= 【12】
End If
End Sub
Private Sub Form_ MouseDown (Button As Integer，Shift As Integer，_
X As Single，Y As Single)
If 【13】 Then
yx=Text1．Left-X
yy=Text1．Top-Y
End If
If Button=2 Then
Text1．Text=“X坐标：”+Str(Text1．Left)+“Y坐标：”+Str(Text1．Top)
End If
End Sub
[填空题]在窗体上有一个文本框控件，要求每隔一秒在文本框中显示一次当前时间，除了要设置窗体的计时器间隔为1秒外，还需要设计______事件。
[填空题]在窗体上有一个文本框控件，要求每隔一秒在文本框中显示一次当前时间，除了要没置窗体的计时器间隔为1秒外，还需要设计______事件。
[单项选择]要使文本框获得输入焦点，则应采用文本框控件的
A. GotFocus方法
B. LostFocus方法
C. KeyPress方法
D. SetFocus方法
[单项选择]窗体上有一个由两个文本框组成的控件数组，名称为Text1，并有如下事件过程：
Private Sub Text1_Change(Index As Integer)
Select Case Index
Case 0
Text1 (1). FontSize = Text1 (0). FontSize * 2
Text1 (1). Text = Text1 (0). Text
Case 1
Text1 (0). FontSize = Text1 (1). FontSize / 2
Text1 (0). Text = Text1 (1). Text
Case Else
MsgBox "执行Else分支"
End Select
End Sub
关于上述程序，以下叙述中错误的是( )。
A. Index用于标识数组元素
B. 本程序中Case Else分支的语句永远不会被执行
C. 向任何一个文本框输入字符，都会在另一个文本框中显示该字符
D. 下标为0的文本框中显示的字符尺寸将越来越小
[单项选择]窗体上有一个名称为Text1的文本框；一个名称为Timer1的计时器控件，其Interval属性值为2000,Enabled属性值是True。Timer1的事件过程如下：
Private Sub Timer1_Timer（ ）
Static flag As Integer
If flag=0 Then flag=1
flag=-flag
If flag=1 Then
Text1.ForeColor=＆HFF＆'＆HFF＆为红色
Else
Text1.ForeColor=＆HC000＆'＆HC000＆为绿色
End If
End Sub
以下叙述中正确的是______。
A. flag的值只可能取0或1
B. 程序有逻辑错误，Else分支总也不能被执行
C. 每次执行此事件过程时，flag的初始值均为1
D. 程序执行后，文本框中的文字每2秒改变一次颜色
[单项选择]在窗体上画四个文本框，并用这四个文本框建立一个控件数组，名称为Text1(下标从0开始，依次增大)，然后编写如下事件过程：
Private Sub Command1_Click（ ）
For Each TextBox In TeXt1
Text1(i)=Text1(i).Index
i=i+1
Next
End Sub
程序运行后，单击命令按钮，四个文本框中显示的内容分别为 ______。
A. 0 1 2 3
B. 1 2 3 4
C. 0 1 3 2
D. 出错信息
[单项选择]
窗体上有名称为Text1、Text2的2个文本框，有一个由3个单选按钮构成的控件数组 Option1，如图1所示。程序运行后，如果单击某个单选按钮，则执行Text1中的数值与该单选按钮所对应的运算(乘以1、10或100)，并将结果显示在Text2中，如图2所示，为了实现上述功能，在程序中的问号（ ）处应填入的内容是（）。 Private Sub Option1 Click(Index As Integer)
If Text1.Text＜＞""Then
Select Case
Case 0
Text2.Text=Val(Text1.Text)
Case 1
Text2.Text=Val(Text1.Text)*10
Case 2
Text2.Text=Val(Text1.Text)*100
End Select
End If
End Sub
A. Index
B. Option1.Index
C. Option1(Inde
D. Option1(IndValue
[单项选择]在窗体上画4个文本框，并用这4个文本框建立一个控件数组，名称为Text1 (下标从0开始，自左至右顺序增大)，然后编者按写如下事件过程：
Private Sub Command1_Cliek（ ）
For Each TextBox In Text1
Text1(i)=Text1(i).Index
i=i+1
Next
End Sub
程序运行后，单击命令按钮，4个文本框中显示的内容分别为( )。
A. 0 1 2 3
B. 1 2 3 4
C. 0 1 3 2
D. 出错信息
[单项选择]在窗体上画4个文本框，并用这4个文本框建立一个控件数组，名称为Text1(下标从0开始，自左至右顺序增大)，然后编写如下事件过程：
Private Sub Command1_Click（ ）
For Each Text Box In Text1
Text1(i)=Text1(i).Index
i=i+1
Next
End Sub
程序运行后，单击命令按钮，4个文本框中显示的内容分别为( )。
A. 0 1 2 3
B. 1 2 34
C. 0 1 3 2
D. 出错信息
