个位数字是6，且能被3整除的3位数共有多少个？下面程序用于解决这一问题，在划线处填入合适的语句或表达式，设共有n个这样的数，Visual Basic程序如下：
Sub Command1_Click()
Dim i As Integer, n As Integer
m = 106
n = __________
Do While m <= 996
If _______________________ Then n =" n" + 1
m=m+10
Loop
Text1.Text = Str(n) zxxk
End Sub

数组的维数由（_______）的个数决定，数组的最小下标从1开始，要在声明段中用（___________________）语句说明.

在VB中，下列选项不能实现交换变量a和b的值的是_______。

A．a=a+b:b=a-b:a=a-b

B．t=b:b=a:a=t

C．t=a:a=b:b=t

D．a=b:b=a-b:b=a

下列可以作为Visual Basic变量名的是（ ）

A．5AD

B．A+C

C．Ab_3

D．B&C

下面的程序代码是通过函数求出二个整数型变量a、b中的较大值，其中所定义的函数名是（   ）
Function max(a, b As Integer) As Integer
If a > b Then max = a  Else  max = b
End Function
Private Sub Command1_Click()
Dim a As Integer, b As Integer, s as integer
a =" Val(Text1.Text):" b = Val(Text2.Text)
s =" max(a," b)
Text3.Text = s
End Sub

A．Command1_Click

B．function

C．max

D．max(a, b As Integer)