更多"在表单中有命令按钮Commandl和文本框Text1，将文本框的Inp"的相关试题:
[单项选择]在窗体上有一个文本框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文本框，一个Command1命令按钮，并有以下程序：
Private Sub Command1_Click（ ）
Dim n
If Text1.Text＜＞"123456"Then
n=n+1
Print"口令输入错误" & n & "次"
End If
End Sub
希望程序运行时得到左图所示的效果，即：输入口令，单击“确定口令”命令按钮，若输入的口令不是“123456”，则在窗体上显示输入错误口令的次数。但上面的程序实际显示的是右图所示的效果，程序需要修改。下面修改方案中正确的是( )
A. 在Dim n语句的下面添加一句：n=0
B. 把Print"口令输入错误"&n&"次"改为Print"口令输入错误"+n+"次"
C. 把Print"口令输入错误"&n&"次"改为Print"口令输入错误"&Str(n)＆"次"
D. 把Dim n改为Static n
[单项选择]窗体上有1个名称为Text1的文本框；1个名称为Timer1的计时器控件，其Interval属性值为5000，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=＆HCOO＆ '＆HCOO＆为绿色'
End If
End Sub
以下叙述中正确的是( )
A. 每次执行此事件过程时，Flag的初始值均为0
B. Flag的值只可能取0或1
C. 程序执行后，文本框中的文字每5秒改变一次颜色
D. 程序有逻辑错误，Else分支总也不能被执行
[填空题]设窗体上有Text1文本框和Command命令按钮，并有以下程序：
Private Sub Command1_Click（ ）
Iemp$=“”
For k=1 To Len(Text1)
Ch$=Mid(Text1,k,1)
If Not found(temp,ch)Then
Temp=temp& （ 13 ）
End if
Next k
Text1= （ 14 ）
End Sub
Private Function found(str As String,ch As String)As Boolean
For K=1 To Len(str)
If ch=Mid(Str,k,1) Then
Found= （ 15 ）
Exit Function
End If
Next k
Found=False
End Function
运 行时，在文本框中输入若干英文字母，然后单击命令按钮，则可以删去文本框中所有重复的字母。例如，若文本框中原有字符串为“abcddbbc”，则单击命 令按钮后文本框中字符串为“abcd“。其中函数found的功能是判断字符串str中是否有字符ch，若有，函数返回True，否则返回False。请 填空。
[单项选择]假定一个表单里有一个文本框Text1和一个命令按钮组CommandGroup1，命令按钮组是一个容器对象，其中包含Cbmmand1和Command2两个命令按钮，如果要在Command1命令按钮的某个方法中访问文本框的Value属性值，下面表达式中正确的是( )。
A. This.ThisForm.Text1.Value
B. This.ParentParent.Text1.Value
C. ParentParent.Text1.Value
D. ThisParent.Text1.Value
[单项选择]假设在一个表单里有一个文本框Text1和一个命令按钮组CommamdGroup1。命令按钮组是一个容器对象，其中包含Command1和Commsnd2两个命令按钮。如果要在Command1命令按钮的某个方法中访问文本框的Value属性值，正确的语句是( )。
A. This.ThisForm.Text1.Value
B. ThisParent.Parent.Text1.Value
C. ParentParent.Text1.Value
D. ThisParent.Text1.Value
[单项选择]窗体中有命令按钮Command1和文本框Text1，事件过程如下。
Function result(ByVal x As Integer)As Boolean
If x Mod 2=0 Then
result=True
Else
result=False
End If
End Function
Private Sub Command1_Click（ ）
x=Val(InputBox("请输入一个整数"))
If Then
Text1=Str(x)＆"是偶数."
Else
Text1=Str(x)＆"是奇数."
End If
End Sub
运行程序，单击命令按钮，输入19，在Text1中会显示“19是奇数.”。那么在程序的空白处应填写( )。
A. result(x)="偶数"
B. result(x)
C. result(x)="奇数"
D. NOT result(x)
[单项选择]
窗体上有1个名称为Text1的文本框；1个名称为Timer的计时器控件，其Interval属性值为5000，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=&HPP& ’&HFF&为红色
Else
Text1.ForeColor=&HC000& ’&HC000&为绿色
End If
End Sub
以下叙述中正确的是（）
A. 每次执行此事件过程时，flag的初始值均为0
B. flag的值只可能取0或1
C. 程序执行后，文本框中的文字每5秒改变一次颜色
D. 程序有逻辑错误，Else分支总也不能被执行
[单项选择]窗体上有一个名称为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秒改变一次颜色
[单项选择]VB中有3个键盘事件：KeyPress、KeyDown、KeyUp，若光标在Text1文本框中，则每输入一个字母( )
A. 这3个事件都会触发
B. 只触发KeyPress事件
C. 只触发KeyDown、KeyUp事件
D. 不触发其中任何一个事件
[单项选择]VB中有3个键盘事件：KeyPress、KeyDown和KeyUp，若光标在Text1文本框中，则每输入一个字母时，下列选项正确的是______。
A. 只触发KeyPress事件
B. 只触发KeyDown、KeyUp事件
C. 这3个事件都会触发
D. 不触发其中任何一个事件
[填空题]在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：
Private Sub Command1_Click（ ）
S$=InputBox("请输入一个字符串")
Text1.Text=S$
End Sub
Private Sub Text1_Change（ ）
Label1.Caption=UCase(Mid(Text1.Text,7))
End Sub
程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串"Visual Basic"，则在标签中显示的内容是______。
