[单项选择]在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后输写如下程序：
Private Sub Command1_Click（　）
Dim x,y，Z As Integer
x=5
y=7
z=0
Text1.Text=“”
Call Fun1(x,y,z)
Text1.Text=Str(Z)
End Sub
Sub Fun1(ByVal a As Integer,ByVal b As Integer,c As Integer)
c=a+b
End Sub
程序运行后，如果单击命令按钮，则在文本框中显示的内容是( )。
A. 0
B. 12
C. Str(z)
D. 没有显示

[单项选择]在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后输写如下程序：
Private Sub Command1_Click（　）
Dim x,y,z As Integer
x=5
y=7
z=0
Text1.Text=" "
Call Fun1(x,y,z)
Text1.Text=Str(z)
End Sub
Sub Fun1(ByVal a As Integer, ByVal b As Integer,c As Integer)
c=a+b
End Sub
程序运行后，如果单击命令按钮，则在文本框中显示的内容是______。
A. 0
B. 12
C. Str(z)
D. 没有显示

[单项选择]在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后输写如下程序：Private Sub Command1_Click（　） Dim x，y，z As Integer 　　x=5 　　y=7　　z=0 　　Text1.Text=""　　Call Funl(x,y,z)　Text1.Text=Str(z)End SubSub Funl(ByVal a As Integer，ByVal b As Integer，c As Integer) 　　C=a+b End Sub程序运行后，如果单击命令按钮，则在文本框中显示的内容是（）
A. 0
B. 12
C. Str(Z)
D. 没有显示

[单项选择]在窗体上画一个命令按钮和一个文本框，其名称分别为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的文本框和一个名为Command1的命令按钮。要求：程序运行时，单击命令按钮，能将事先输入到文本框中的内容一个字符一个字符地写入顺序文件Test.dat中，如图所示。请在空格处填上适当的内容，则在以下横线处合适的语句是( )。
Private Sub Command1_Click（　）
Open "c:/test.dat"For______As#1
For i=1 To Len(Text1.Text)
Next i
Close #1
End Sub
A. Input Print#1,Mid(Text1.Text,i,1)
B. Output Print#1,Mid(Text1.Text,i,1)
C. Output Print#1,Left(Text1.Text,i,1)
D. Output Input#1,Mid(Text1.Text,i,1)

[单项选择]在窗体上画两个名称分别为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，然后编写如下程序：
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. 旅游景点：故宫

[单项选择]在窗体上画一个命令按钮和一个文本框(名称分别为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的文本框，然后编写如下事件过程：
Private Sub Command1_Click（　）
n=Text1.Text
Select Case n
Case 1 To 20
x=10
Case 2, 4, 6
x=20
Case Is＜10
x=30
Case 10
x=40
End Select
Text2. Text=x
End Sub
程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是______。
A. 10
B. 20
C. 30
D. 40

[单项选择]在窗体上画两个名称为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 +l Loop Text1.Text=Str(x) Text2.Text=Str(n) End Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别是( )。
A. 9和2
B. 27和3
C. 195和3
D. 600和4

[单项选择]

在窗体上画1个命令按扭(名称为Command1)和1个文本框(名称为Text1)，然后编写如下事件过程：
Private Sub Command1_click（　）
x=Val(Text1.Text)
Select Case x
Case 1,3
y=x*x
Case Is＞=10,Is＜=-10
y=x
Case-10 To 10
y=-x
End Select
End Sub
程序运行后，在文本框中输入3，然后单击命令按扭，则以下叙述中正确的是（）。

A. 执行y=x*x
B. 执行y=-x
C. 先执行y=x*x，再执行y=-x
D. 程序出错

[单项选择]在窗体上画1个命令按钮和1个文本框，其名称为Command1和Text1，再编写如下程序：
Dim ss As String
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Chr(KeyAscii)＜＞" "Then ss=ss+Chr(KeyAscii)
End Sub
Private Sub Command1_Click（　）
Dim m As String，i As Integer
For i=Len(ss) To 1 Step-1
m=m+Mid(ss,i,1)
Next
Text1.Text=UCase(m)
End Sub
程序运行后，在文本框中输入“Number 100”，并单击命令按钮，则文本框中显示的就是( )
A. NUMBER 100
B. REBMUN
C. REBMUN 100
D. 001 REBMUN

[填空题]

窗体中有一个名为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中显示的内容是（）。

[单项选择]在窗体上画1个命令按钮和1个文本框，其名称分别为Command1和Text1，再编写如下程序： Dim ss As String Private Sub Text1_KeyPress(KeyAscii As Integer) If Chr(KeyAscii) ＜＞"" Then ss=ss+Chr(KeyAscii) End Sub Private Sub Command1_Click（　） Dim m As String，i As Integer For i=Len(ss) To 1 Step-1 m=m+Mid(ss，i，1) Next Text1.Text=UCase(m) End Sub 运行程序后，在文本框中输入“Number100”，并单击命令按钮，则文本框中显示的是（）
A. NUMBER 100 
B. REBMUN 
C. REBMUN 100 
D. 001 REBMUN

[填空题]

在窗体上画1个命令按钮和1个文本框，其名称分别为Command1和Text1，然后编写如下代码：
Dim SaveAll As String
Private Sub Command1 Click（　）
Text1.Text=Left(UCase(SaveAll),4)
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
SaveAll=SaveAll＋Chr(KeyAscii)
End Sub
程序运行后，在文本框中输入abcdefg，单击命令按钮，则文本框中显示的内容是（）。

[单项选择]在窗体上画一个命令按钮(名称为Command1)和1个文本框(名称为Text1)，然后编写如下事件过程：
Private Sub Command1_Click（　）
x=Val(Text1.Text)
Select Case x
Case 1,3
y=x*x
Case Is＞=10, Is＜=-10
y=x
Case -10 To 10
y=-x
End Select
End Sub
程序运行后，在文本框中输入3，然后单击命令按钮，则下列叙述中正确的是
A. 执行y=x*x
B. 执行y=-x
C. 先执行y=x*x，再执行y=-x
D. 程序出错