Dim a( 1 To 4) As Integer,m As Integer,n As Integer
m=100:n=4
Randomize
For i=1 To n-1
x=Int(Rnd *n) + 2
a(i)=m\x
m=m-a(i)
Next i
a(i)=m
该程序段运行后,数组a中各元素的值不可能的是( )