编制子过程,通过调用子过程：⑴产生30个1～100之间的随机数；⑵统计并输出其中奇数和偶数的个数.

Private Function fun(a As Integer,b as integer) As IntegerDim i As Integer,Dim a(1 To 30) As Integer,s as integer,m as integerRandomizeFor i = 1 To 30a(i) = Int(100 * Rnd)if a(i)/2=0 thens=s+1elsem =m+1end ifa=s,b=mEnd FunctionPrivate Sub Command1_Click()call function(a,b)end su