题目内容
（请给出正确答案）
在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程： Private Sub TxtA_KeyPress(KeyAscii As Integer) …… End Sub 假定焦点已经位于文本框中，则能够触发KeyPress事件的操作是______。
A．单击鼠标
B．双击文本框
C．鼠标滑过文本框
D．按下键盘上的某个键
如果结果不匹配，请 联系老师 获取答案
更多“在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程…”相关的问题
A．Private Sub Text1_Change（）
Command1.Caption = "计算机等级考试"
End Sub
B．Private Sub Command1_ Click （）
Caption = "计算机等级考试"
End Sub
C．Private Sub Form1_ Click （）
Text1.Caption = "计算机等级考试"
End Sub
D．Private Sub Command1_ Click （）
Text1.Text = "计算机等级考试"
End Sub
在窗体上画1个命令按钮和1个文本框，其名称分别为Command1和Text1，然后编写如下代码：
Dim SaveAll As String
Private Sub Command1_Click（）
Text1.Text=Left（UCase（SaveAll），4）
End Sub
Private Sub Text1_KeyPress（KeyAscii As Integer）
SaveAll=SaveAll+Chr（KeyAscii）
End Sub
程序运行后，在文本框中输入abcdefg，单击命令按钮，则文本框中显示的内容是______。
设窗体上有一个名为Text1的文本框，并编写如下程序：
Private Sub Form_Load（）
Show
Text1.Text = ""
Text1.SetFocus
End Sub
Private Sub Form_MouseUp（Button As Integer, _
Shift As Integer, X As Single, Y As Single）
Print "程序设计"
End Sub
Private Sub Text1_KeyDown（KeyCode As Integer, Shift As Integer）
Print "Visual Basic";
End Sub
程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上显示的内容是（）。
A．Visual Basic
B．程序设计
C．Visual Basic程序设计
D．a程序设计
A.Me="Access Test"
B.Me.Caption="Access Test"，
C.Me.text="Access Test"
D.Me.Name="Access Test"
Private Sub Text1_LostFocus（）
Call CheckInput（Text1，500）
End Sub
Private Sub Text2_LostFocus（）
Call CheckInput（Text2，1000）
End Sub
Sub CheckInput（t As ？，x As Integer）
If Val（t.Text）＞x Then
MsgBox"请重新输入!"
End If
End Sub
A．Text
B．SelText
C．Control
D．Form
A.文本框的MultiLine属性值为True
B.文本框的Looked属性值为Tree
C.文本框的MultiLine属性值为False
D.文本框的Looked属性值为False
以下叙述中正确的是（）。
A.窗体的 Name 属性指定窗体的名称，用来标识一个窗体
B.窗体的 Name 属性值是显示在窗体标题栏中文本
C.可以在运行期间改变窗体的 Name 属性的值
D.窗体的 Name 属性值可以为空
在窗体上添加有一个命令按钮，(名为Command1)，然后编写如下事件过程： Private Sub Command1_Click() For i=1 To 4 x=4 For j=1 To 3 x=3 For k=1 To 2 x=x+6 Next k Next j Next I MsgBox x End Sub 打开窗体后，单击命令按钮，消息框的输出结果是 ______。
A．7
B．15
C．157
D．538
在窗体中有一个命令按钮command1，编写事件代码如下： Private Sub Command1_Click() Dim s As Integer s=P(1)+P(2)+P(3)+P(4) Debug.Print s End Sub Public Function P(N As Integer) Dim Sum As Integer Sum=0 For i=1 To N Sum=Sum+1 Next i P=Sum End Function 打开窗体运行后，单击命令按钮，输出的结果是()。
A．15
B．20
C．25
D．35
窗体上放置有一个 TEdit类的控件Edit1，并定义了 Edit1的OnEnter 事件，下面说法正确的是：（）
A.当鼠标在窗体上移动时产生 Edit1OnEnter 事件
B.其他三项都不对
C.当Edit1 获得焦点时产生 Edit10Enter事件
D.当鼠标移动到 Edit1 的上面时产生Edit1OnEnter 事件
以下叙述中错误的是()。
A．在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件
B．以.BAS为扩展名的文件是标准模块文件
C．窗体文件包含该窗体及其控件的属性
D．一个工程中可以含有多个标准模块文件
