“如果a，b，c相等，那么y＝a＋b＋c”，能实现该功能的VB语句是

A．If a=b And b=c Then y=a+b+c

B．If a=b=c Then y=a+b+c

C．If a＝b Or b=c Or a=c Then y=a+b+c

D．Ifa－b＝b－c Then y=a+b+c

有一个对象属性面板如图所示，这是（   ）

A．窗体控件

B．属性控件

C．按钮控件

D．标签 Lable 控件

有一个对象属性面板如图所示，能将其中的属性名 caption 获得赋值为“正确“的是（   ）

A．Command1.Text=“转换”	B．Lable.Caption=“转换”
C．Command1.Caption=“转换”	D．Lable.Text=“转换”

“如果 a，b，c 中任意一个为 0，那么 y＝y2＋1”。能实现该功能的 VB 语句是(    )

A．If a ＝ 0 And b ＝ 0 And c = 0 Then y ＝ y*y ＋ 1

B．If a * b * c＝ 0 Then y ＝ y^2 ＋ 1

C．If a ＝ 0, b ＝ 0, c = 0 Then y ＝ y^2 ＋ 1

D．If a ＝ b ＝ c = 0 Then y ＝ y*y ＋ 1

在 Visual Basic 程序中要用到存储范围为-150000～150000 的某一整数变量，则该变量的类型应该定义为

A．Integer

B．Long

C．Single

D．Boolean

有如下的程序段：
Private Sub Command1_Click() Dim a As String, b As String
a = Text1.Text : b = Text2.Text
Text3.Text = a + b
End Sub
运行程序，在对象 Text1 和 Text2 中分别输入 2 和 3，则单击命令按钮 Command1 后，对象 Text3 中显示

A．23

B．5

C．2

D．3

某算法的部分流程图如图所示，执行这部分流程后，变量s，i的值分别是(　　)

A．14、6

B．14、8

C．8、6

D．8、8

利用VB程序计算三角形面积。在文本框Text1、Text2、Text3中分别输入三角形三条边长a，b，c，半周长p ＝ (a ＋ b ＋ c) / 2，单击按钮Command1计算三角形的面积s＝，并把结果显示在文本框Text4中。界面如图a所示，请回答下列问题：
  
(1)结合图b，若要把窗体背景色改为白色，可通过其__________属性进行设置。
(2)实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim a, b, c, p, s As Integer
a ＝ Val(Text1.Text)
b ＝_____________
c ＝ Val(Text3.Text)
p ＝(a ＋ b ＋ c) / 2
If a＋b>c And a＋c>b And b＋c>a And a>0 And b>0 And c>0 Then
　s ＝_____________
　   Text4.Text ＝_____________
Else
　   Text4.Text ＝”输入边长不能组成三角形！”
End If
End Sub

某算法的流程图如图所示，执行该算法后，输出s的值是(　　)

A．6

B．12

C．18

D．36

在下面列出的四个程序段中，不能正确地将 x和y两个变量中的数据进行交换的是（  ）

A．x=y   y=x	B．x=x+y    y=x-y    x=x-y
C．m=x   x=y   y=m	D．m=y    y=x    x=m