Dim intArray(100)為單個，sglAverage為單個
私有子命令1_Click()
隨機化(計時器)
Dim i為整數，intSum為整數
我。圖片1。Cls
對於i = 1至100
intArray(i) = Int(Rnd(i) * 5 + 95)
我。圖片1。打印庫存(I)；
如果我Mod 10 = 0那麽我。圖片1。打印
intSum = intSum + intArray(i)
接下來我
sglAverage = intSum / 100
Label1。Caption = " Sum = " & ampintSum
標簽2。Caption = "平均= " & ampsglAverage
末端接頭
私有子命令2_Click()
Dim i為整數，k0為整數，k(4)為整數
對於i = 0到4
我。圖2(壹)。Cls
接下來我
對於i = 1至100
if sqr((intarray(I)-sglaverage)^ 2)>= 1.67那麽
？k(0) = k(0) + 1
？我。圖片2(0)。打印庫存(I)；
？如果k(0) Mod 10 = 0那麽我。圖片2(0)。打印
else if sqr((intarray(I)-sglaverage)^ 2)>= 1.33且sqr((intarray(I)-sglaverage)^ 2)& lt；那麽1.67
？k(1) = k(1) + 1
？我。圖片2(1)。打印庫存(I)；
？如果k(1) Mod 10 = 0那麽我。圖片2(1)。打印
else if sqr((intarray(I)-sglaverage)^ 2)>= 1和sqr((intarray(I)-sglaverage)^ 2)& lt；那麽1.33
？k(2) = k(2) + 1
？我。圖2(2)。打印庫存(I)；
？如果k(2) Mod 10 = 0那麽我。圖2(2)。打印
else if sqr((intarray(I)-sglaverage)^ 2)>= 0.67和sqr((intarray(I)-sglaverage)^ 2)& lt；那麽1
？k(3) = k(3) + 1
？我。圖2(3)。打印庫存(I)；
？如果k(3) Mod 10 = 0那麽我。圖2(3)。打印
其他
k(4) = k(4) + 1
？我。圖2(4)。打印庫存(I)；
？如果k(4) Mod 10 = 0那麽我。圖2(4)。打印
如果…就會結束
接下來我
對於i = 0到4
我。標簽8(壹)Caption = "***米" &；k(壹)
接下來我
末端接頭