更多"在运行程序时，在文本框中输入新的内容，或在程序代码中改变Text的属性"的相关试题:
[单项选择]在运行程序时，在文本框中输入新的内容，或在程序代码中改变Text的属性值，相应会触发到( )。
A. GotFocus事件
B. Click事件
C. Change事件
D. DblClick事件
[单项选择]在运行程序时，在程序代码中改变文本框的Text属性值，或在文本框中输入新的内容，相应会触发( )事件。
A. GotFocus
B. Click
C. Change
D. DblClick
[单项选择]如果文本框的INPUTMASK属性值是#99999，允许在文本框中输入的是( )。
A. +12345
B. abc123
C. $12345
D. abcdef
[单项选择]在表单中有命令按钮Commandl和文本框Text1，将文本框的InputMask属性值设置为$9,999.9，然后在命令按钮的Click事件中输入代码ThisForm.Text1.Value=12 3456.789，当运行表单时，单击命令按钮，此时文本框中显示的内容为______。
A. $123456.789
B. $23456.7
C. 123456.7
D. **，***．*
[单项选择]将文本框的PasswordChar属性值设置为星号(*)，那么，当在文本框中输入“电脑2004”时，文本框中显示的是( )。
A. 电脑 2004
B. *****
C. ********
D. 错误设置，无法输入
[填空题]下面的程序代码实现将一个一维数组中元素向右循环移动，移位次数由文本框Text1输入。例如数组各元素的值依次为0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10; 移动三次后，各元素的值依次为 8, 9, 10, 0, 1,2 3,4,5,6,7。
Private Sub MoveRight (x（ ） As Integer)
Dim i As Integer
Dim j As Integer
Dim k As Integer
i = UBound (x)
j = x(i)
For k = i To 【7】 Step -1
【8】
Next k
x(LBeund(x)) = j
End Sub
Private Sub Command1_click（ ）
Dim a(10) As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
For i = 0 To 10
a(i) = i
Next i
j = Val(Text1. Text)
k=0
Do
k=k+1
Call MoveRight(a)
Loop Until k = j
For i = 0 To 10
Print a(i);
Next i
End Sub
[填空题]
下面的程序代码实现将一个一维数组中元素向右循环移动，移位次数由文本框Text输入。例如数组各元素的值依次为0，1，2，3，4，5，6，7，8，9，10；移动三次后，各元素的值依次为8，9，10，0，1，2，3，4，5，6，7。
Private Sub Moveright(x（ ）As Integer)
Dim i As
Integer
Dim j As Integer
Dim k As
Integer
i=UBound(x)
j=x(i)
For
k=i To (6) Step-1
(7)
Next k
x(LBound(x))=j
End Sub
Private Sub Command1_Click（ ）
Dim
a(10)As Integer
Dim i As Integer
Dim j As
Integer
Dim k As Integer
For i=0 To 10
a(i)=i
Next i
j=Val(Text1.Text)
k=0
Do
k=k+1
Call MoveRight(a)
Loop Until
k=j
For i=0 To 10
Print a(i)；
Next i
End Sub
[填空题]下面的程序代码实现将一个一维数组中元素向右循环移动，移动次数由文本框Text1输入。例如数组各元素的值依次为0，1，2，3，4，5，6，7，8，9，10；移动三次后，各元素的值依次为8，9，10，0，1，2，3，4，5，6，7。
Private Sub MoveRight(x（ ）As Integer)
Dim i As Integer
Dim j As Integer
Dim k As Integer
i＝UBound(x)
j＝x(i)
For k＝i To 【9】 Step—1
【10】
Next k
x(LBound(x))＝j
End Sub
Private Sub Command1_Click（ ）
Dim a(10) As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
For i＝0 To 10
a(i)＝i
Next i
j＝Val(Text1.Text)
k=0
Do
k＝k+1
Call MoveRight(a)
Loop Until k＝j
For i=0 To 10
Print a(i);
Next i
End Sub
[单项选择]在窗体上有一个文本框Text1，Text属性值为空，然后编写如下事件过程：
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim str As String，n As Integer
str=UCase(Chr(KeyAscii))
n=Len(str)
Text1.Text=String(n，str)
End Sub
程序运行后，若在文本框中输入单字母“p”，则在文本框Text1中显示的内容为( )。
A. pp
B. pP
C. PP
D. Pp
[单项选择]在窗体上有一个文本框Text1，Text属性值为空，然后编写下列事件过程：
Private Sub Text1 KeyPress(KeyAscii As Integer)
Dim str As String,n As Integer
str=UCase(Chr(KeyAscii))
n=Len(str)
Text1.Text=String(n,str)
End Sub
程序运行后，若在文本框中输入单字母“p”，则在文本框Text1中显示的内容为( )。
A. pp
B. pP
C. PP
D. Pp
[单项选择]窗体上有一个名称为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秒改变一次颜色
