Dim n，sum，s，arr()，I
做
S =輸入框(“輸入工資”)
如果Val =-1，則退出Do
n = n + 1
ReDim保留數組(1到n)
arr(n) = Val(s)
總和=總和+數組(n)
環
n = 0
總和=總和/下限(arr)
打印“人數”:&；UBound(arr)，“平均工資:“&；總和
打印“平均工資以上職工工資”:
對於i = 1到UBound(arr)
如果arr(i)>sum然後打印arr(I)；
然後
末端接頭