更多"在窗体上画两个名称为Text l、Text 2的文本框和一个名称为Co"的相关试题:
[单项选择]在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程：
Private Sub Command1_Click（ ）
x=InputBox("Enter an integer")
y=InputBox("Enter an integer")
Text1.Text=y+x
End Sub
程序运行后，单击命令按钮，如果在输入对话框中分别输入7和30，则在文本框中显示的内容是______。
A. 307
B. 37
C. 703
D. 出错
[单项选择]在窗体上画一个命令按钮和一个文本框(名称分别为Command1和Text1)，并把窗体的KeyPreview属性设置为True，然后编写下列代码：
Dim SaveAll As String
Private Sub Form_Load（ ）
Show
Text1.Text=" "
Text1.SetFocus
End Sub Private Sub Command1_Click（ ）
Text1.Text=LCase(SaveAll)+SaveAll
End Sub Private Sub Form_KeyPress(KeyAscii As Integer)
SaveAll=SaveAll+Chr(KeyAscii)
End Sub
程序运行后，直接用键盘输入VB，再单击命令按钮，则文本框中显示的内容为( )
A. vbVB
B. 不显示任何信息
C. VB
D. 出错
[单项选择]在窗体上画一个命令按钮command1和两个文本框，名称分别为Text1和Text2。编写如下两个事件过程：
Dim Str1 As String，str2 As String
Private Sub form_load（ ）
Text1.Text=" "
Text2.Text=" "
Text1.Enabled=False
Text2.Enabled=False
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
str1=str1&Chr(KeyAscii)
End Sub
Private Sub Form_KeyDown(KeyCode As Integer，Shift As Integer)
str2=str2 & Chr(KeyCode)
End Sub
Private Sub Command1_Click（ ）
Text1.Text=str1
Text2.Text=str2
str1=" "
str2=" "
End Sub
当在设计阶段的窗体的KeyPreview属性设置为True时，程序运行过程中，在键盘上输入小写字母abc，然后单击命令按钮，则文本框Text1中显示的内容为
A. abc
B. 不显示任何信息
C. ABC
D. 出错
[单项选择]在窗体上画一个命令按钮Command1和两个文本框，名称分别为Text1和Text2。编写如下两个事件过程：
Dim Str1 As String, str2 As String
Private Sub form_load（ ）
Text1.Text=“”
Text2.Text=“”
Text1.Enabled=False
Text2.Enabled=False
End Sub
Private Sub Form_KeyPress(KeyAsai As Integer)
str1=str1&Chr(KeyAscii)
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
str2=str2＆Chr(KeyCodel
End Sub
Private Sub Command1_Clickt)
Text1.Text=str1
Text2.Text=str2
str1=“”
str2:“”
End Sub
当在设计阶段的窗体的KeyPreview属性设置为True时，程序运行过程中，在键盘上输入小写字母abc,然后单击命令按钮，则文本框Text1中显示的内容为( )。
A. abc
B. 不显示任何信息
C. ABC
D. 出错
[单项选择]在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，在文本框中输入以下字符串：
Microsoft Visual Basic Programming
然后编写如下事件过程：
Private Sub Command1_CIick（ ）
Open"d:/temp/outf. txt" For Output As #1
For i=1 To Len(Text1. Text)
c=Mid(Text1. Text, i, 1)
If c＞="A" And c＜="Z" Then
Print #1, LCase(C)
End If
Next i
Close
End Sub
程序运行后，单击命令按钮，文件outf. txt中的内容是______。
A. MVBP
B. mvbp
C. M
D. m
[单项选择]在窗体上画一个命令按钮Command1和一个文本框Text1，然后编写下列程序：
Private Sub Command1 click（ ）
A=InputBox("请输入日期(1～31)")
t="旅游景点："_
&Ⅱf(A＞0 And A＜=10,"长城","")_
&Ⅱf(A＞10 And A＜=20,"故宫","")_
&Ⅱf(A＞20 And A＜=30,"颐和园","")
Text1.Text=t
End Sub
程序运行后，如果从键盘输入5，则在文本框中显示的内容是( )。
A. 旅游景点：长城
B. 旅游景点：长城颐和园
C. 旅游景点：颐和园
D. 旅游景点：故宫
[单项选择]在窗体上画一个命令按钮Command1和一个文本框Text1，然后编写如下程序：
Private Sub Command1_Click（ ）
A=InputBox("请输入日期(1～31)")
t="旅游景点:"
& IIf(A＞0 And A＜=10,"长城","")_
& IIf(A＞10 And A＜=20,"故宫","")_
& IIf(A＞20 And A＜=30,"颐和园","")
Text1.Text=t
End Sub
程序运行后，如果从键盘输入5，则在文本框中显示的内容是( )。
A. 旅游景点：长城
B. 旅游景点：长城颐和园
C. 旅游景点：颐和园
D. 旅游景点：故宫
