更多"窗体上有两个名称分别为Text1、Text2的文本框，一个名称为Com"的相关试题:
[单项选择]窗体上有三个文本框Text1、Text2和Text3以及一个命令按钮Command1，设文本框Text1中内容为 12，文本框Text2中内容为34。下面程序的执行结果为______。Private Sub Command1_ Cilick（ ） Text3.Text = Str＄(Val(Text1.Text)) + Val(Text2.Text) Print val(Text3,Text)End Sub
A. 12
B. 34
C. 46
D. 1234
[单项选择]在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框 的Text属性设置为空白，然后编写如下事件过程：
Private Sub Command1_Click（ ）
a = InputBox("Enter an integer") b = InputBox("Enter an integer") Text1.Text = b + a
End Sub 程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示 的内容是______。
A. 108
B. 18
C. 810
D. 出错
[单项选择]在窗体上有文本框Text1和命令按钮Command1，并有如下事件过程： Private Sub Command1_Click（ ） Dim i As Integer, n As Integer For j=0 To 50 i=i+3 n=n+1 If i＞10 Then Exit For Next Text1.Text=Str(n) End Sub
A. 2
B. 3
C. 4
D. 5
[单项选择]
窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp事件过程如下：
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
Dim c As String
c=UCase(Chr(KeyCode))
Text2.Text=Chr(Asc(c)+2)
End Sub
当向文本框Text1中输入小写字母a时，文本框Text2中显示的是（）。
A. A
B. a
C. C
D. c
[单项选择]窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp事件过程如下：
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
Dim c As String
c=UCase(Chr(KeyCode))
Text2.Text=Chr(Asc(c)+2)
End Sub
当向文本框Text1中输入小写字母a时，文本框Text2中显示的是( )。
A. A
B. a
C. C
D. c
[单项选择]窗体上有两个名称分别为Text1、Text2的文本框，一个名称为Commandl的命令按钮。 运行后的窗体外观如下图所示。 设有如下的类型声明： Type Person name As String*8 major As String*20 End Type 当单击“保存”按钮时，将两个文本框中的内容写入一个随机文件Test290.dat中。设文本框中的数据已正确地赋值给Person类型的变量P。则能够正确地把数据写入文件的程序段是( )。
A. Open"c:/Test29.dat"ForRandom As #1 Put#1，1，p Close#1
B. Open"c:/Test29.dat"ForRandomAs#1 Get#1，1，p Close#1
C. Open"c:/Test29.dat"ForRandomAs#1Len=Len( Put#1，1，p Close#1
D. Open"c:/Test29.dat"ForRandomAS#1Len=Len( Get#1，1，p Close#1
[单项选择]在窗体上画一个文本框，一个命令按钮和一个标签，其名称分别为Text1、Command1和Label1，文本框的Text1属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click（ ） x=Int(Val(Text1.Text)+0.5) Label1.Caption=Str(x) End Sub 程序运行后，在文本框中输入28.653，单击命令按钮，标签中显示的内容是______。
A. 27
B. 28
C. 29
D. 30
[单项选择]
窗体上有名称为Command1的命令按钮和名称为Text1的文本框
Private Sub Command1_Click（ ）
Text1.Text=”程序设计”
Text1.SetFocus
End Sub
Private Sub Text1_GotFocus（ ）
Text1.Text=”等级考试”
End Sub
运行以上程序，单击命令按钮后
A. 文本框中显示的是“程序设计”，且焦点在文本框中
B. 文本框中显示的是“等级考试”，且焦点在文本框中
C. 文本框中显示的是“程序设计”，且焦点在命令按钮上
D. 文本框中显示的是“等级考试”，且焦点在命令按钮上
[单项选择]在窗体上按顺序，分别画出变量按钮Command1、文本框Text1和Text2。为了将Text2的Tab顺序设置为第一，应将Text2的TabIndex属性设置为
A. 0
B. 1
C. 2
D. 3
[单项选择]在窗体上画一个文本框，一个命令按钮和一个标签，其名称分别为Text1、Command1和Labell，文本框的Text1属性设置为空白，然后编写如下事件过程： Private Sub Command1 Click（ ） x=Int(Val(Text1.Text)+0.5) Labell.Caption=Str(x) End Sub 程序运行后，在文本框中输入28.653，单击命令按钮，标签中显示的内容是：_______。
A. 27
B. 28
C. 29
D. 30
[单项选择]在窗体上画一个文本框，一个命令按钮和一个标签，其名称分别为Text1、Command1和Labe11，文本框的Text1属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click（ ） x=Int(Val(Text1.Text)+0.5) Labe11.Caption=Str(x) End Sub 程序运行后，在文本框中输入28.653，单击命令按钮，标签中显示的内容是______。
A. 27
B. 28
C. 29
D. 30
[单项选择]在窗体中添加了一个文本框和一个命令按钮(名称分别为Text1和Command1)，并编写了相应的事件过程。运行此窗体后，在文本框中输入一个字符，则命令按钮上的标题变为“Access模拟”。以下能实现上述操作的事件过程是( )。
A. Private Sub Command1_Click() Caption="Access模拟" End Sub
B. Private Sub Text1_Click() Command1.Caption="Access模拟" End Sub
C. Private Sub Command1_Change() Caption="Access模拟" End Sub
D. Private Sub Text1_Change() Command1.Caption="Access模拟" End Sub
