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);
然後
末端接頭