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

没问题啊,如图Private Sub Command1_Click()Dim x(1 To 30) As IntegerDim sum As Integer, ave As IntegerDim i As IntegerDim&...