如何用VB写计算概率的代码,10%成功率如何算法