从事危险化学品的生产经营单位，应有安全管理机构或者配备专职安全管理人员；从业人员在（）人以下的，有专职或兼职安全管理人员；个体工商户可委托具有国家规定资格的人员提供安全管理服务。

A.300

B.100

C.30

D.10

要求产生10个随机整数，存放在数组arr中，从键盘输入要删除的数组元素的下标，将该元素中的数组删除，后面元素中的数据依次前移，并显示删除后剩余的数据，现有如下程序：

Option Base 1

Private Sub Command1_Click()

Dim arr(10) AS Integer

For i=1 to 10

arr(i)=int (Rnd*100)

Print arr(i);

Next

x=inputbox(“输入1到10的一个整数：”)

For i=x+1 to 10 ‘循环2

arr(i-1)=arr(i)

Next

For i=1 to 10 ‘循环3

Print arr(i);

Next

End Sub

程序运行后发现显示的结果不正确，应该进行的修改是（　　）。

A．产生随机数时不使用Int函数

B．循环2的初始值应为i=x

C．数组定义改为Dim a(11) as integer

D． 循环3是循环终值应改为9