产生30个1--100之间的随机整数,计算这30个数的平均值,找出30个数中数值大于平均值的数据,并统计出这些数

产生30个1--100之间的随机整数,计算这30个数的平均值,找出30个数中数值大于平均值的数据,并统计出这些数Dim x(1 To 30) As IntegerDim sum As Integer,ave As IntegerDim i As IntegerDim count As Integersum = 0For i = 1 To 30Randomizex(i) = Int(Rnd * 100) + 1sum = sum + x(i)Form1.Print x(i); Space(2);If i Mod 5 = 0 Then Form1.PrintNext iave = sum / 30Form1.Print "平均值："; aveForm1.Print "在平均值之上的数据是:"For i = 1 To 30If x(i) > ave Thencount = count + 1Form1.Print x(i); Space(2);If count Mod 5 = 0 Then Form1.PrintEnd IfNext iForm1.PrintForm1.Print "共有"; count; "个在平均值之上."这个也调试不出来,