用VBA产生1到6之间的随机数用Int((Rnd() * 6) + 1)随机性太差,有没有更好的办法尽量接近真实随机数我用了Randomize,我的代码如下,结果c中的随机在多次运行中有间隔或不间隔次重复的现象,请指教S

x��SQk�P�+�1�
����u���-{o5�@�b�=�R�����nm�aZ�t5��E�3����sӘ2PJ������s��}�|7�������d�v��2-:K����{�5�&f�YCVs�嵖�u-)��K"D@�z�M���-1��~��<����:�]��hR����7>r�sz]�Y��������L�ԏ��S����6>ы]2ؗ�ۯ�n%��gȊZ�4ٕ�=�����'f���A9���I�L�e��8ލ-y�>3 �v���F�V���)g��x� !%A�s!�TSJ��
��)H2l�ayY?�EX�
���^���� �A ��Y��r5$U�V��E ��(���f��� ʧ�G�����-���f�$�Y��.��Ghzh�Wɨ��|]�����5$�(K�k�9~�妩�p#|���r� �13�e�{y����D�v�%�\r���?6$o|§u�{7�GMf���Ύ>e{�E�b������N�_�pQB <�l�%�g�������;�y��