扑克vb源码？ 扑克软件开发？ 关于VB,如何利用rnd()函数模拟发牌一个简单一点的算法：先把52张牌存到数组A（51）中。随机产生一个0到51之间的整数N，把A（N）挑出来，其余51张牌重新归拢到A（50）中，并且去掉A（51）；随机产生一个0到50之间的整数N，把A（N）挑出来，其余50张牌重新归拢到A（49）中...
