题目内容
（请给出正确答案）
在窗体上画1个文本框，其名称为Text1，然后编写如下过程： Pfivme Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Text1_KeyUp(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode＋2) End Sub 程序运行后，把焦点移到文本框中，此时如果敲击“A”键，则输出结果为______。
A．A A
B．A B
C．A C
D．A D
如果结果不匹配，请 联系老师 获取答案
更多“在窗体上画1个文本框，其名称为Text1，然后编写如下过程：…”相关的问题
在窗体上画一个文本框(其名称为Text1)和一个标签(其名称为Labell)，程序运行后，如果在文本框中输入指定的信息，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是______。
A． Private Sub Text1 Click() Labell.Caption=Text1.Text End Sub
B．Private Sub Text1_Change() Labell.Caption=Text1.Text End Sub
C．Private Sub Labell_Change() Labell.Caption=Text1.Text End Sub
D．Private Sub Labell_Click() Labell.Caption=Text1.Text End Sub
在窗体上画一个文本框，其名称为Text1，然后编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim sb As String Str=Chr(KcyAscii) KeyAscii=Asc(UCase(str)) Text1.Text=String(2，KeyAscii) End Sub 程序运行后，如果在键盘上输入字母“b”，则在文本框Text1中显示的内容是
A．bbb
B．BBB
C．BB
D．bb
在窗体上画l个命令按钮和l个文本框，其名称为Command1和Text1，再编写如下程序：
Dim ss As String
Private Sub Text1 KeyPress(KeyAscii As Integer)
If Chr(KeyAscii)＜＞""Then ss=ss+Chr(KeyAscii)
End Sub
Private Sub Command1 Click（）
Dim m As String，i As Integer
For i=Len(ss)To 1 Step-1
m=m+Mid(SS，i，1)
Next
Text1．Text=UCase(m)
End Sub
程序运行后，在文本框中输入“Number 100”，并单击命令按钮，则文本框中显示的就是（）。
A.NUMtBER l00
B.REBMUN
C.REBM UN l00
D.001 REBMUN
窗体上画一个文本框(其名称为Text1)和一个标签(其名称为Labell)。要求程序运行后，如果在文本框中输入字符，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是 ______。
A．Private Sub Text1_Change() Labell.Caption=Text1.Text End Sub
B．Private Sub Text1_Click() Labell.Caption=Text1.Text End Sub
C．Private Sub Labell_Change() Labell.Caption=Text1.Text End Sub
D．Private Sub Labell_Click() Labell.Caption=Text1.Text End Sub
A．Private Sub Text1_Click（）
Label1.Caption=Textl.Text
End Sub
B．Private Sub Text1_Change（）
Label1.Caption=Text1.Text
End Sub
C．Private Sub Label1_Ctrange（）
Label1.Caption=Text1.Text
End Sub
D．Private Sub Label1_Click（）
Label1.Caption=Text1.Text
End Sub
Private Sub Form_Click（）
Open "d:\test\smtext1.txt" For Input As #1
Do While Not ______
Line Input #1, aspect$
whole$ = whole$ + aspect$ + Chr$（13） + Chr$（10）
Loop
Text1.Text = whole$
Close #1
Open "d:\test\smtext2.txt" For Output As #1
Print #1, ______
Close #1
End Sub
上述程序的功能是，把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。请填空。
在窗体上画3个标签、3个文本框(名称分别为Text1、Text2和Text3)和1个命令按钮(名称为Command1)，外观如图所示。
.jpg)
编写如下程序 Private Sub Form. Load() Text1.Text=" " Text2.Text=" " Text3.Text=" " End Sub Private Sub Command1 Click() x=Val(Text1.Text) y=Val(Text2.Text) Text3.Text=f(x,y) End Sub Function f(ByVal x As Integer,ByVal y As Integer) Do While y＜＞0 tmp=x Mod y x=y y=tmp Loop f=x EndFunction 运行程序，在Text1文本框中输入36，在Text2文本框中输入24，然后单击命令按钮，则在Text3文本框中显示的内容是______。
A．4
B．6
C．8
D．12
Private Sub Command1_Click（）
x=Val（Text1.Text）
Select Case x
Case 1，3
y=x*x
Case Is＞=10，Is＜=-10
y=x
Case -10 To 10
y=-x
End Select
End Sub
程序运行后，在文本框中输入3，然后单击命令按钮，则以下叙述中正确的是（）。
A．执行y=x*x
B．执行y=-x
C．先执行y=x*x，再执行y=-x
D．程序出错
