有VB程序段如下：
s＝"2019.06 Visual Basic6.0"：n＝0
For i＝1 To Len(s)
ch＝Mid(s，i，1)
If ch>＝"0" And ch<＝"9"Then
m＝Asc(ch)－Asc("0")＋1
a(m)＝a(m)＋1
End If
Next i
For i＝1 To 10
If a(i)>1Then n＝n＋i
Next i
数组a各元素的初始值都为0，执行该程序段后，则变量n的值为(    )

A．2

B．4

C．8

D．10

常见的骰子是一个正六面体，六个面的点数分别是1～6这六个数，能正确模拟掷一次骰子得到点数的VB表达式是（）

A．Int(Rnd(5))+1

B．Int(Rnd*6)+1

C．Int(Rnd(6)+1)

D．Int(Rnd*7)

在VB语言中，表示“ a>0且b<12”的正确表达式是（   ）。

A．b<12 or a>0

B．b>12 and a<0

C．a>12 or a<0

D．a>0 and b<12

在Visual Basic中,若x表示能被5整除的正整数,则下列逻辑表达式的值一定为真的是(　　)

A．x / 5=0

B．x Mod 5=0

C．Int(x\5)=0

D．5 Mod x=0

利用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