[单项选择]在窗体上画两个单选按钮，名称分别为Option1,Option2，标题分别为“宋体”和“黑体”；一个复选框，名称为Check1,标题为“粗体”；一个文本框，名称为Text1，Text属性为“改变文字字体”。要求程序运行时，“宋体”单选按钮和“粗体”复选框被选中，则能够实现上述要求的语句列是( )。
A. Option1.Value=True Check1.Value=False
B. Option1.Value=True
C. Option2.Value=False
D. Option1.Value=True

[单项选择]在窗体上画两个单选按钮，名称分别为Option1和Option2，标题分别为“黑体”和“楷体”；一个复选框，名称为Cheek1，标题为“粗体”。要求程序运行时，“黑体”单选按钮和“粗体”复选框被选中，则能够实现上述要求的语句序列是( )
A. Optionl.Value=True
B. Optionl.Value=True
C. Option2.Value=False
D. Optionl.Value=True

[单项选择]在窗体上画两个单选按钮，名称分别为Option1，Option2，标题分别为“宋体”和“黑体”；一个复选框，名称为Check1，标题为“粗体”；一个文本框，名称为Text1，Text属性为“改变文字字体”。要求程序运行时，“宋体”单选按钮和“粗体”复选框被选中，则能够实现上述要求的语句序列是______。
A. Option1.Value=True
B. Option1.Value=True
C. Option2.Value=False
D. Option1.Value=True

[单项选择]在窗体上画两个单选按钮，名称分别为Option1和OPtion2，标题分别为“黑体”和“楷体”；一个复选框，名称为Check1，标题为“粗体”。要求程序运行时，“黑体”单选按钮和“粗体”复选框被选中，则能够实现上述要求的语句序列是( )。
A. Option1.Value=Tree
B. Option1.Value=True
C. Option2.Value=False
D. Option1.Value=True

[单项选择]在窗体上画一个命令按钮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、Command2，并编写如下程序
Const n=5,m=4
Dim a(m,n)
Private Sub Command1_Click（　）
k=1
For i=1 To m
Forj=1 To n
a(i,j)=k
k=k+1
Next j
Next i
End Sub
Private Sub Command2_Click（　）
summ=0
For i=1 Tom
For j=1 To n
If i=1 Or i=m Then
summ=summ+a(i,j)
Else
If j=1 Or j=n Then
summ=summ+a(i,j)
End If
End If
Next j
Next i
Print summ
End Sub
过程Command1 Click（　）的作用是在二锥数组a中存放—个m行n列的矩阵；过程Command2 Click（　）的作用是（）。

A. 计算矩阵外围一圈元素的累加和
B. 计算矩外围一圈以外的所有元素的累加和
C. 计算矩阵第1列和最后—列元素的累加和
D. 计算矩阵第1行和最后—行元素的累加和

[单项选择]在窗体上画两个命令按钮，名称分别为Command1、Command2，并编写如下程序：
Const n=5，m=4
Dim a(m，n)
Private Sub Command1_Click（　）
k=1
For i=1 To m
Forj=1 To n
a(i，j)=k
k=k+l
Next j
Next i
End Sub
Private Sub Command2_Click（　）
summ=0
For i=1 To m
For j=1 To n
If i=1 Or i=m Then
summ=summ+a(i，j)
Else
If j=1 Or j=n Then
summ=summ+a(i，j)
End If
End If
Next j
Next i
Print summ
End Sub
过程Command1_Click（　）的作用是在二维数组a中存放一个m行n列的矩阵；过程Command2_Click（　）的作用是______。
A. 计算矩阵外围一圈元素的累加和
B. 计算矩阵除外围一圈以外的所有元素的累加和
C. 计算矩阵第一列和最后一列元素的累加和
D. 计算矩阵第一行和最后一行元素的累加和

[单项选择]在窗体上画两个名称分别为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、Label1和Label2，然后编写如下事件过程；
Private Sub Command1_Click（　）
a=0
For i=1 To 10
a=a+1
b=0
For j＝1 To 10
a=a+1
b=b+2
Next j
Next i
Label1.Caption=Str(a)
Label2.Caption=Str(b)
End Sub
程序运行后，单击命令按钮，在标签Label1和Label2中显示的内容分别是（）。

A. 10和20
B. 20和110
C. 200和110
D. 110和20

[单项选择]在窗体上画—个名称为Command1的命令按钮，再画两个名称分别为Label1、Label2的标签，然后编写如下程序代码： Private X As Integer Private Sub Command1_Click（　） X=5:Y=3 Call proc(X,Y) Label1.Caption=X Label2.Caption=Y End Sub Private Sub proc(a As Integer,ByVal b As Integer) X=a*a Y=b+b End Sub 程序运行后，单击命令按钮，则两个标签中显示的内容分别是______。
A. 25和3
B. 5和3
C. 25和6
D. 5和6

[单项选择]在窗体上画一个名称为Command1的命令按钮，再画两个名称分别为Label1、Label2的标签，然后编写如下程序代码：
Private X As Integer
Private Sub Command1_Click（　）
X=5:Y=3
Call proc(x,y)
Label1.Caption=x
Labet2.Caption=y
End Sub Private Sub proc(a As Integer，ByVal b As Integer)
X=a*a
Y=b+b
End Sub
程序运行后，单击命令按钮，则两个标签中显示的内容分别是( )
A. 25和3
B. 5和3
C. 25和6
D. 5和6

[单项选择]

在窗体上画一个命令按钮和两个文本框，其名称分别为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、Text I和Text2,在属性窗口中把窗体的KeyPreview属性设置为True，然后编写如下程序：
　　Dim S I As String, S2 As String
　　Private Sub Form Load（）
　　Text 1 .Text=""
　　Text2.Text=""
　　Text 1．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 Forin_ KeyPress（KeyAscii As Integer）
　　S1=S1＆Chr（KeyAscii）
　　End Sub
　　Private Sub Command l Click
　　Text l .Text=Sl
　　Text2.Text=S2
　　S1=""
　　S2=""
　　End Sub
　　程序运行后，先后按“a”、“b”、“c”键，然后单击命令按钮，在文本框Textl和Text2中显示的内容分别为（）

A. abc和ABC
B. 空白
C. ABC和abc
D. 出错

[单项选择]在窗体上画一个命令按钮和两个文本框，其名称分别为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. 空白
B. abc和ABC
C. 出错
D. ABC和abc