更多"在窗体上画1个文本框，名称为Text1，然后编写如下程序： Priva"的相关试题:
[单项选择]在窗体上画 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
[填空题]在窗体上画 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"，则结束程序。请填空。
[单项选择]在窗体上画1个文本框，名称为Text1，然后编写如下程序：
Private Sub Form Load（ ）
Open "C:/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
"Text1.Text=""
End If
End If
End Sub
程序的功能是，存C盘根目录下建立1个名为dat.txt的文件，在文本框中输入字符，每次按回车键(回车符的ASCII码是13)都把当前文本框中的内容写入文件dat.txt中，并清空文本框中的内容；如果输入“END”，则结束程序，请选择适合空白处的语句( )。
A. KeyAscii "END"
B. Text1.Text "END"
C. Text1.Text 13
D. KeyAscii 13
[单项选择]在窗体上画一个文本框，其名称为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
[单项选择]在窗体上画一个名称为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_Ke!tDown(KeyCode As Integer,Shift As Integer) Print "Visual Basic"; End Sub 程序运行后，如果按A键，然后单击窗体，则在窗体上显示的内容是 ______。
A. Visual Basic
B. 程序设计
C. A程序设计
D. Visual Basic程序设计
[单项选择]在窗体上画一个名称为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"VisualBasic";
End Sub
程序运行后，如果按A键，然后单击窗体，则在窗体上显示的内容是______。
A. Visual Basic
B. 程序设计
C. A程序设计
D. Visual Basic程序设计
[填空题]在窗体上画一个文本框，名称为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 (8) =13 Then
If UCase(Text1.Text)= (9) Then
Close #1
End
Else
Write #1, (10)
Text1.Text=""
End If
End If
End Sub
以上程序的功能是：在D盘的temp目录下建立一个名为dat.txt的文件，在文本框中输入字符，每次按回车键(回车符的ASCII码是13)都把当前文本框中的内容写入文件dat.txt，并清除文本框中的内容；如果输入END，则结束程序。请填空。
[单项选择]窗体上有名称为Commandl的命令按钮和名称为Text1的文本框 Private Sub Command1_Cliek（ ） Text1.Text="程序设计" Text1.SetFocus End Sub Private Sub Text1_GotFocus（ ） Text1.Text="等级考试" End Sub 运行以上程序，单击命令按钮后（）
A. 文本框中显示的是“程序设计”，且焦点在文本框中
B. 文本框中显示的是“等级考试”，且焦点在文本框中
C. 文本框中显示的是“程序设计”，且焦点在命令按钮上
D. 文本框中显示的是“等级考试”，且焦点在命令按钮上
[填空题]
在窗体上画—个文本框，名称为Text1，然后编写如下程序：
Private Sub Form_Load（ ）
Open"d:/temp/dat.txt"For Output As #1
Text1.Text=""
End Sub
Private Sub Text1_KeyPress(Key Ascii As Integer)
IfKeyAscii=13 Then
If UCase(Text1.Text)= 【14】 Then
Close #1
End
Else
Write #1, 【15】
Text1.Text=""
End If
End If
End Sub
以上程序的功能是：在D盘temp文件夹下建立—个名为dat.txt的文件，在文本框中输入字符，每次按回车键都把当前文本框中的内容写入文件dat.txt，并清除文本框中的内容；如果输入“END”，则不写入文件，直接结束程序。请填空。
[单项选择]在窗体上画一个文本框(Text1)，然后编写如下事件过程：
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim char As String
char = Chr(KeyAscii)
KeyAscii = Asc(UCase(char))
Print String(4, KeyAscii)
End Sub
程序运行后，在输入文本框Text1中输入"A"，则程序在窗体上的输出结果为________。
A. a
B. A
C. aaaa
D. AAAA
[单项选择]在窗体上画一个文本框，然后编写如下事件过程：
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim char As String
char=Chr(KeyAscii)
KeyAscii=Asc(UCase(char))
Text1.Text=String(6，KeyAscii)
End Sub
程序运行后，如果在键盘上输入字母“a”，则文本框中显示的内容为 ______。
A. a
B. A
C. aaaaaaa
D. AAAAAAA
