更多"文本框Text1的KeyDown事件过程如下： Private Su"的相关试题:
[单项选择]文本框Text1的KeyDown事件过程如下：
Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer)
End Sub
其中参数KeyCode的值表示的是发生此事件时( )
A. 是否按下了Alt键或Ctrl键
B. 按下的是哪个数字键
C. 所按的键盘键的键码
D. 按下的是哪个鼠标键
[单项选择]文本框Text1的KeyDown事件过程如下：
Private Sub Text 1_KeyDown(KeyCode As Integer,Shift As Integer)
…
End Sub
其中参数KeyCode的值表示的是发生此事件时( )。
A. 是否按下了＜Alt＞键或＜Ertl＞键
B. 按下的是哪个数字键
C. 所按的键盘键的键码
D. 按下的是哪个鼠标键
[单项选择]设在窗体上有个文本框，然后编写如下的事件过程：
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Const Alt=4
Const Key_F2=&H71
altdown%=(Shift And Alt)＞0
t2down%=(KeyCode:Key_F2)
If altdown% And f2down% Then
Text1.Text="BBBBB"
End If
End Sub
上述程序运行后，如果按Shift+F2键，则在文本框中显示的是( )。
A. Alt+F2
B. BBBBB
C. 随机出几个数
D. 文本框内容无变化
[单项选择]窗体上添加一个文本框Text1，编写如下代码：
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Print Chr(KeyCode+5) & KeyCode
End Sub
程序运行时，在文本框中输入“ab”，则在窗体上输出为( )。
A. F65
B. F65
C. G66
D. G65
[单项选择]窗体上添加一个文本框Text1，编写下列代码：
Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)
Print Chr(KeyCode+5)& KeyCode
End Sub
程序运行时，在文本框中输入“ab”，则在窗体上输出为( )。
A. F65
B. F65
C. G66
D. G65
[单项选择]在窗体上画一个名称为Text1的文本框，然后编写如下的事件过程：
Pfivate Sub Text1_KeyPress(Keyascii As Integer)
…
End Sub
若焦点位于文本框中，则能够触发此事件的操作是( )。
A. 单击文本框
B. 双击文本框
C. 单击文本框
D. 按键盘上的某个键
[单项选择]窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp的事件过程如下：
Private Sub Text1_KeyUp(KeyCode As Integer,shift As Integer)
Dim C As string
Text2.Text=Chr(Asc(c)+2)
End Sub
当向文本框Text1中输入小写字母a时，文本框Text2中显示的是( )
A. A
B. a
C. C
D. c
[单项选择]在窗体上画一个名称为Text1的文本框，然后编写如下的事件过程：
Private Sub Text1_KeyPress(Keyascii As Integer)
...
End Sub
若焦点位于文本框中，则能够触发此事件的操作是( )。
A. 左键单击文本框
B. 左键双击文本框
C. 右键单击文本框
D. 按下键盘上的某个键
[单项选择]在窗体上放一个文本框Text1，在文本框中输入456，并有如下事件过程：
Private Sub Form_Click（ ）
x=InputBox("请输入一个整数")
Print x+Text1.Text
End Sub
单击该窗体，在输入对话框中输入123，单击“确定”按钮后，窗体上显示是( )。
A. 123
B. 456
C. 579
D. 123456
[单项选择]在窗体上有一个文本框，其名称为Text1，编写下列事件过程：
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim str As String
str=Chr(KeyAscii)
KeyAscii=Asc(UCase(str))
Text1.Text=Stririg(2,KeyAscii)
End Sub
程序运行后，如果在键盘上输入字母“a”，则在文本框Text3中显示的内容为( )。
A. aaa
B. AAA
C. AA
D. aa
[单项选择]在窗体上画一个文本框，其名称为Text1，然后编写如下事件过程：
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim str As String
Str=Chr(KeyAscii)
KeyAscii=Asc(UCase(str))
Text1.Text=String(2, KeyAscii)
End Sub
程序运行后，如果在键盘上输入字母“b”，则在文本框Text1中显示的内容是( )。
A. bbb
B. BBB
C. BB
D. bb
[单项选择]窗体上有1个名称为Text1、内容为空的文本框。编写如下事件过程：
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
Print Text1. Text;
End Sub
运行程序，并在文本框中输入“123”，则在窗体上的输出结果为( )。
A. 123
B. 112
C. 12123 D) 112123
[单项选择]窗体中有命令按钮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)
[单项选择]在窗体上画一个文本框(其Name属性为Text1)，然后编写如下事件过程：
Private Sub Form_Load（ ）
Text1.Text=""
Text1.SetFocus
For i=1 To 9
Sum=Sum+i
Next i
Text1.Text=Sum
End Sub
上述程序的运行结果是
A. 在文本框Text1中输出45
B. 在文本框Text1中输出0
C. 出错
D. 在文本框Text1中输出不定值
