Random的NextDouble（)表示产生一个0至1之间的实数

此题为判断题(对，错)。

A. 0

B. 1

C. 2

D. 3

A、-1 0 0 1 2 3

B、-1 0 1 2 3 2

C、-1 0 1 1 2 1

D、-1 0 0 1 1 2

Private Sub a3()

Dim x(1 To 10)As Integer,a(1 To 100)As Integer

Dim P As Integer,j As Integer

For j=1 To 100

a(j)=______

P=a(j)Mod 10

If P=0 Then P=10

______

Next j

For j=1 To 10

Debug.Print x(j);

Next j

End Sub