vb随机得到一个自定义函数里面的任意一值

因没有看到你的代码，只能是给点参考建议了。
假设你的reasoncode函数产生N个数值，那么
则用 rnd*n 来取得一个随机数，然后根据这个随机数去对应reasoncode里的数值就行了。