任意6个值,我就以随机产生6个两位正整数为例好了,代码如下：Private Sub Command1_Click()Dim a(6) As IntegerFor i = 1 To 6Randomizea(i) = Int(Rnd * 90) + 10Print a(i);Next iPrintMax = a(1)Min = a(1)For i =...