虽然星穹圣诗已经是几个月前的事情了
但毕竟米哈游不只一次用这样的模式贩售时装
未来可能也会持续有类似的补给活动
最近刚好在研究EXCEL的VBA
所以心血来潮，想试着写写看试抽补给的宏
由于我还是VBA新手，所以可能写法上有误
如果有这方面的专家，还请不令指正
————————————————————————-
关于补给规则的部分我就不再赘述，直接粘贴每次补给的机率：
————————————————————————-
以下是VBA的补给试抽逻辑，没兴趣的可以跳到最下面：
1.由于小数点比较繁琐，因此把机率先乘以10，变成千分率。A到J分别代表10种奖励
2.在进行第一次补给时，先定义一个字符串，该字符串为A(重复0次)B(重复0次)C(重复0次)D(重复3次)E(重复5次)……(以此类推)。也就是说，这个字符串会是「DDDEEEEEFFFFFFGGGGGGGGG….」
3.计算2.字符串共有几个字符，得一个字符数counts
4.从1~counts中随机抽一个数字num
5.在2.的字符串中，由左而右数到第num个字母，该字母就是第一次抽奖抽重的奖励。
6.进行第二抽，先剔除掉第一次抽奖抽到的奖励，并重复进行动作2~5
7.持续剔除已经抽掉的奖励，并重复进行到第10抽
8.抽完10抽后即为一轮，用户可预先设置要跑几轮。
————————————————————————-
以下是使用方法与载点：
下载EXCEL文件后启用宏，请按下左上角的「开始补给」按钮，并输入想要抽几轮（若要抽几百几千轮的话，可能会需要数分钟的时间）
下方会出现试抽的结果
最后附上EXCEL载点
EXCEL
还有VBA，不会用的可以无视
—————————————————————————————————————
最后一些题外话
根据我试抽个几千次的结果
第8与第10抽拿到最大奖的机率各约20%
第9抽抽中的机率约为50%
不过我必须再强调一次
因为我是VBA菜鸟，所以我也不确定我写得有没有误
因此只给大家做个参考，我也不细谈机率数字
以免万一有误，不小心误导别人
若有好心的大大能给点指正
我会再持续上传修正的版本
3Q~
