VB用控件数组快速产生随机数并求和视频