题目内容
（请给出正确答案）
窗体上画一个名称为Text1的文本框，然后编写如下事件过程： Private Sub Form. Load() Show TextSetFocus End Sub Private Sub Text1_ KeyPress (KeyAscii As Integer) Dim ch As String ch = Chr (KeyAscii) KeyAscii = Asc(UCase(ch)) Pint Chr(KeyAscii + 4) End Sub程序运行后，在文本框中输入abcde，则在窗体上显示的内容是______。
A．abcde
B．efghi
C．EFGHI
D．ABCDE
简答题官方参考答案
（由简答题聘请的专业题库老师提供的解答）
更多“窗体上画一个名称为Text1的文本框，然后编写如下事件过程：Private Sub Form. Load（) Show TextSet”相关的问题
在窗体上画四个文本框，并用这四个文本框建立一个控件数组，名称为Text1(下标从0开始，依次增大)，然后编写如下事件过程： Private Sub Command1_Click() For Each TextBox In TeXt1 Text1(i)=Text1(i).Index i=i+1 Next End Sub 程序运行后，单击命令按钮，四个文本框中显示的内容分别为 ______。
A．0 1 2 3
B．1 2 3 4
C．0 1 3 2
D．出错信息
在窗体上画一个文本框(名称为Text1)和一个标签(名称为Label1)，程序运行后如果在文本框中输入文本，则标签中立即显示相同的内容。以下可以实现上述操作的事件过程是（）。
A.Private Sub Text1 Change（）
Label1．Caption=Text1．Text
End Sub
B.Private Sub Label1 Change（）
Label1．Caption=Text1．Text
End Sub
C.Private Sub Text1 Click（）
Label1．Capnon=Text1．text
End Sub
D.Private Sub Label1 Click（）
Label1．Caption=Text1．Text
End sot
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1 Click() Dim i As Integer,n As Integer For i=0 To 50 i=i+3 n＝n+1 If i＞10 Then Exit For Next Text1.Text=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是______。
A．5
B．4
C．3
D．2
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用(灰色)。当向文本框中输入任何字符时，命令按钮Command1变为可用。请在【 】处填入适当的内容，将程序补充完整。 Private Sub Form_Load() Command1.Enabled=False End Sub Private Sub Text1【 】() Command1.Enabled=True End Sub
在窗体上画一个文本框(名称为Text1)和一个标签(名称为Label1)，程序运行后如果在文本框中输入文本，则标签中立即显示相同的内容。以下可以实现上述操作的事件过程是()。
A．Private Sub Text1_Change() Label1．Caption=Text1．Text End Sub
B．Private Sub Label 1_Change() Label1．Caption=Text1．Text End Sub
C．Private Sub Text1_Click() Label1．Caption=Text1．text End Sub
D．Private Sub Label1_Click() Label1．Caption=Text1．Text End sot
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编如下事件过程：
Private Sub Command1_Click()
Dim i As Integer, n As Integer
n=0
For i=0 To 50
i=i+3
n=n+1
If i＞10 Then Exit For
Next i
Text1.Text=Str(n)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是______。
在窗体上画一个名称为Text1的文本框，然后编写如下的事件过程：Pfivate Sub Text1_KeyPress(Keyascii As Integer) … End Sub 若焦点位于文本框中，则能够触发此事件的操作是()。
A．单击文本框
B．双击文本框
C．单击文本框
D．按键盘上的某个键
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() Dimarrayl(10，10)As Integer Dimi As Integer,j As Integer Fori=1 To 3 Forj=2 To 4 arrayl(i，j)=i+j Nextj Nexti Text1.Text=axvay
A．15
B．14
C．13
D．12
在窗体上画一个名称为Text1的文本框和一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() Dimarrayl(10,10)As Integer Dimi As Integer,j As Integer Fori=1 To 3 Forj=2 To 4 arrayl(i,j)=i+j Nextj Nexti Text1.Text=array
A．12
B．13
C．14
D．15
在窗体上画一个文本框(名称为Text1)和一个标签(名称为Labe11)，程序运行后，在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数。下列可以实现上述操作的事件过程是（）。
A.Private Sub Text1 Change（） Labe11．Caption=Str(Len(Text1．Text)) End Sub
B.Private Sub Text1 Click（） Labe11．Caption=str(Len(Text1．Text)) End Sub
C.Private Sub Text1 Change（） Labe11．Caption=Text1．Text End Sub
D.Private Sub Labe1 1_Change（） Labe11．Caption=Str(Len(Text1．Text)) End Sub
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写．如下事件过程： Private Sub Command1_Click() Dim array1(10，10)As Integer Dim i As Integer, j As Integer For i=1 To 3 For j=2 To 4 array1(i,j)=i+j Next j Next i Text1.Text=array1(2，3)+arrayl(3，4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是______。
A．12
B．13
C．14
D．15
警告：系统检测到您的账号存在安全风险
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
