在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Commandl Click()
Dim a()
a=Array(1,3,5,7)
s=0
For i=1 To 3
S=S*10+a(i)
Next i
Print s
End Sub
程序运行后，输出结果为( )。

A．可以同时选定不相邻的多个记录
B．可以在表中的任意位置插入新记录
C．删除有自动编号的表时，再添加新记录时，自动编号将自动使用删除的编号
D．修改记录时，自动编号型字段不能修改

A．有0个或1个
B．有0个或多个
C．有且只有1个
D．有1个或1个以上