[单项选择]窗体上有一个由两个文本框组成的控件数组，名称为Text1，并有如下事件过程：
Private Sub Text1_Change(Index As Integer)
Select Case Index
Case 0
Text1 (1). FontSize = Text1 (0). FontSize * 2
Text1 (1). Text = Text1 (0). Text
Case 1
Text1 (0). FontSize = Text1 (1). FontSize / 2
Text1 (0). Text = Text1 (1). Text
Case Else
MsgBox "执行Else分支"
End Select
End Sub
关于上述程序，以下叙述中错误的是( )。
A. Index用于标识数组元素
B. 本程序中Case Else分支的语句永远不会被执行
C. 向任何一个文本框输入字符，都会在另一个文本框中显示该字符
D. 下标为0的文本框中显示的字符尺寸将越来越小

更多"窗体上有一个由两个文本框组成的控件数组，名称为Text1，并有如下事件"的相关试题:

[单项选择]窗体上有名称为Commandl的命令按钮和名称为Text1的文本框 Private Sub Command1_Cliek（　） Text1.Text="程序设计" Text1.SetFocus End Sub Private Sub Text1_GotFocus（　） Text1.Text="等级考试" End Sub 运行以上程序，单击命令按钮后（）
A. 文本框中显示的是“程序设计”，且焦点在文本框中
B. 文本框中显示的是“等级考试”，且焦点在文本框中
C. 文本框中显示的是“程序设计”，且焦点在命令按钮上
D. 文本框中显示的是“等级考试”，且焦点在命令按钮上

查看答案

[单项选择]窗体上有名称为Command1的命令按钮和名称为Text1的文本框（）。Private Sub Command1_Click（　）Text1.Text="程序设计" Text1.SetFocus End Sub Private Sub Text1_GotFocus（　）Text1.Text="等级考试"End Sub 运行以上程序，单击命令按钮后（）。
A. 文本框中显示的是“程序设计”，且焦点在文本框中
B. 文本框中显示的是“等级考试”，且焦点在文本框中
C. 文本框中显示的是“程序设计”，且焦点在命令按钮上
D. 文本框中显示的是“等级考试”，且焦点在命令按钮上

查看答案

[单项选择]在窗体上有一个文本框，其名称为Text1，编写下列事件过程：
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim str AS String
str=Chr(KevAscii)
KevAscii=ASC(UCase(str))
Text1. Text=String(2，KeyAscii)
End Sub
程序运行后，如果在键盘上输入字母“a”，则在文本框Text3中显示的内容为( )。
A. aaa
B. AAA
C. AA
D. aa

查看答案

[单项选择]在窗体上有两个文本框：Text1和Text2，然后编写如下事件过程：
Private Sub Form_Load（　）
Show
Text1.Text="":Text2.Text="":Text2.SetFocus
End Sub
Private Sub Text2_KeyDown(KeyCode As Integer,Shift As Integer)
Text1.Text=Text1.Text+Chr(KeyCode-4)
End Sub
程序运行后，如果在Text2文本框中输入“ertyu”，则Text1文本框中的内容为( )。
A. anpuq
B. ANPUQ
C. ERTYU
D. ertyu

查看答案

[单项选择]在窗体上画一个名称为Text1的文本框，然后编写如下事件过程： Private Sub Text1_ KeyPress (KeyAscii As Integer) Dim ch As String ch = Chr (KeyAscii) KeyAscii = Asc (UCase(ch)) Text1. Text = String(1, KeyAscii) End Sub程序运行后，使文本框拥有焦点，然后按键盘上的B键，则在文本框中显示的内容是 ______ 。
A. b
B. bb
C. BB
D. B

查看答案

[单项选择]在窗体上画 1 个文本框，其名称为 Text1，然后编写如下过程： Private 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
B. A
C. A
D. A

查看答案

[单项选择]在窗体上面有一个文本框，其名称为Text1，编写如下事件过程：
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dims str As String
str=Chr(KeyAscii)
KeyAseii=Asc(UCase(str))
Text1.Text=String(2，KeyAscii)
End Sub
程序运行后，如果在键盘上输入字母“a”，则在文本框Text3中显示的内容为( )。
A. aaa
B. AAA
C. AA
D. aa

查看答案

[填空题]在窗体上画 1 个文本框，名称为 Text1，然后编写如下程序： Private Sub Form_Load（　） Open "d:/temp/dat.txt" For Output As #1 Text1.Text = "" End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If _________= 13 Then If UCase(Text1.Text) = _________Then Close #1 End Else Write #1, _________ Text1.Text = "" End If End If End Sub 以上程序的功能是，在D盘temp目录下建立1个名为dat.txt的文件，在文本框中输入字符，每次按回车键（回车符的ASCII码是13）都把当前文本框中的内容写入文件dat.txt，并清除文本框中的内容；如果输入"END"，则结束程序。请填空。

查看答案

[单项选择]在窗体上画一个文本框，其名称为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

查看答案

我来回答:

提交