更多"在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text"的相关试题:
[单项选择]在窗体上画一个命令按钮和一个文本框，其名称分别为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. 出错
[单项选择]
窗体上有名称分别为Text1、Text2的文本框，名称为Command1的命令按钮。运行程序，在Text1中输入
“FormList”，然后单击命令按钮，执行如下程序：
Private Sub Command1_Click（ ）
Text2.Text=UCase(Mid(Text1.Text，5，4))
End Sub
在Text2中显示的是（）。
A. form
B. list
C. FORM
D. LIST
[单项选择]在窗体上画两个名称分别为Text1，Text2的文本框和一个名称为Command1命令按钮，然后编写如下事件过程：
Private Sub Command1_Click（ ）
Dim x As Integer,n As Integer
x=1
n=0
Do While x＜20
x=x*3
n=n+1
Loop
Text1.Text=str(x)
Text2.Text=Str(n)
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别是( )。
A. 15和1
B. 27和3
C. 195和3
D. 600和4
[单项选择]
在窗体上画一个命令按钮和两个文本框，其名称分别为Command1、Text1和Text2，然后编写如下程序： Dim S1 As String,S2 As String
Private Sub Form_Load（ ）
Text1.Text＝""
Text2.Text＝""
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)
S2=S2 & Chr(Keycode)
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
S1=S1 & Chr(KeyAscii)
End Sub
Private Sub Command1_Click（ ）
Text1.Text=S2
Text2.Text=S1
S1＝""
S2＝""
End Sub
程序运行后，在Text1中输入“abc”，然后单击命令按钮，在文本框Text1和Text2中显示的内容分别为（）。
A. abc和ABC
B. abc和abe
C. ABC和abc
D. ABC和ABC
[单项选择]在窗体上画一个命令按钮和两个文本框，其名称分别为Command1、Text1和Text2，在属性窗口中把窗体的KeyPreview属性设置为True，然后编写如下程序：
Dim S1 As String,S2 As String
Private Sub Form_Load（ ）
Text1.Text=" "
Text2.Text=" "
Text1.Enabled=False
Text2.Enabled=False
End Sub
Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer)
S2=S2&Chr(KeyCode)
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
S1=S1&Chr(KeyAscii)
End Sub
Private Sub Command1_Click（ ）
Text1.Text=S1
Text2.Text=S2
S1=" "
S2=" "
End Sub
程序运行后，先后按“a”、“b”、“c”键，然后单击命令按钮，在文本框Text1和Text2中显示的内容分别为( )
A. abc和ABC
B. 空白
C. ABC和abc
D. 出错
[单项选择]窗体上有两个名称分别为Text1、Text2的文本框，一个名称为Command1的命令按钮。设有如下的类型声明：
Type Person
name As String *8
major As String*20
End Type
当单击"保存"按钮时，将两个文本框中的内容写入一个随机文件C:///Testl.dat中。设文本框中的数据已正确地赋值给Person类型的变量p。则能够正确地把数据写入文件的程序段是______。
A. Open "c: /Test1.dat" For Random As#1
B. Open "c: /Test1.dat" For Random As#1 Len=
C. Open "c:/Test1.dat" For Random As#1
D. Open "c:/Test1.dat" For Random As#1 Len=
[单项选择]在窗体上有两个名称分别为Text1、Text2的文本框，—个名称为Command1的命令按钮。运行后的窗体外观如图所示。 设有如下的类型和变量声明： Private Type Person name As String*8 major As String*20 End Type Dim p As Person 设文本框中的数据已正确地赋值给Person类型的变量p，当单击“保存”按钮时，能够正确地把变量中的数据写入随机文件Test2.dat中的程序段是______。
A. Open "c:/Test2.dat" For Output As #1 Put #1,1,p Close #1
B. Open "c:/Test2.dat" For Random As #1 Get #1, 1, p Close #1
C. Open "c:/Test2.dat" For Random As #1 ten=ten( Put #1,1,p Close #1
D. Open "c:/Test2.dat" For Random As #1 Len=Len( Get #1, 1, p Close #1
[单项选择]在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为Command1)，然后编写下列事件过程：
Private Sub Command1_Click（ ）
x=0
DO While x＜50
x=(x+2)*(x+3)
n=n+1
Loop
Text1.Text=Str(n)
Text2.Text=Str(x)
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别为( )
A. 1和0
B. 2和72
C. 3和50
D. 4和168
[填空题]
在窗体中有两个文本框分别为Text1和Text2，一个命令按钮Command1,编写如下两个事件过程：
Private Sub Command1_Click( )
a = Text1.Value + Text2.Value
MsgBox a
End Sub
Private Sub Form_Load( )
Text1.Value = “”
Text2.Value = “”
End Sub
程序运行时，在文本框Text1中输入78，在文本框中Text2输入87，单击命令按钮，消息框中输出的结果为（）。
[填空题]
窗体中有一个名为Command1的命令按钮和一个名为Text1的文本框，事件代码如下：
Private Sub Command1_Click （ ）
Dim a(10) As Integer , b(10) As Integer
n=3
For i=1 T0 5
a(i)= i
b(n) = 2*n+i
Next i
Me!Text1 = a(n) + b(n)
End Sub
打开窗体，单击命令按钮，文本框Text1中显示的内容是（）。
[单项选择]在窗体上画一个命令按钮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. 出错
[单项选择]
设窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮，并有以下事件过程：
Private Sub Command1_Click（ ）
x!=Val(Text1. Text)
Select Case x
Case Is＜-10, Is＞=20
Print "输入错误"
Case Is＜0
Print 20-x
Case Is＜10
Print 20
Case Is＜=20
Print x+10
End Select
End Sub
程序运行时，如果在文本框中输入-5，则单击命令按钮后的输出结果是（）。
A. 5
B. 20
C. 25
D. 输入错误
